wahrscheinlich hast du ein end if zuviel drinnen.
Versuch mal das in dieser zeile 505 zu l�schen.
-----Urspr�ngliche Nachricht-----
Von: Sebastian Svetel [mailto:[EMAIL PROTECTED]]
Gesendet: Dienstag, 25. September 2001 11:21
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] Checkboxproblem
Hallo Liste
Kann mir jemand sagen, was an nachstehendem Source falsch ist. Ich erhalte
stehts die end if Meldung und weiss einfach nicht wieso..
Anweisung erwartet
/wwwsvetel/newsletter/default.asp, line 505
End If
Source:
EMail = Request.Form("Email")
Gruppe = Request.Form("Group")
InseratIntranet = Request.Form("InseratIntranet")
CHtml = CHtml & "<DIV ALIGN='center'>" & vbcrlf
If Request.Form("Email")="" Then
CHtml = CHtml & "<BR><B>Sie m�ssen eine Emailadresse eingeben.</B>"
CHtml = CHtml & "<A HREF='javascript:history.go(-1)'>BACK</A></B>" &
vbcrlf
elseif Request.Form("InseratIntranet")="True" then
rs("InseratIntranet")=True
else
rs("InseratIntranet")=False
End if
Else
If Request.Form("Group") = "" Then
CHtml = CHtml & "<BR><B>Sie m�ssen eine Kategorie ausw�hlen.</B>"
CHtml = CHtml & "<A HREF='javascript:history.go(-1)'>BACK</A></B>" &
vbcrlf
Else
strSQL = "SELECT Newsletter.EMail FROM Newsletter WHERE EMail = '" &
EMail & "'"
Set rs = Conn.Execute(strSQL)
If rs.EOF Then
strSQL = "INSERT INTO Newsletter (EMail, Section, Created, CodeNo,
Gruppe, InseratIntranet)" 'ge�ndert Alex
strSQL = strSQL & " VALUES ('" & EMail & "', '" & Section & "', '" &
Date() & "', '" & UP & "' , '" & Gruppe & "', '" & InseratIntranet & "'); "
Conn.Execute(strSQL)
CHtml = CHtml & "Ihre Email Adresse " & "<FONT COLOR='#FF0000'><B>"
& EMail & "</B></FONT>" & " wurde erfolgreich in unsere Datenbank eingef�gt
!"
Else
CHtml = CHtml & "Ihre Email Adresse " & "<FONT COLOR='#FF0000'><B>"
& EMail & "</B></FONT>" & " existiert bereits in der Datenbank !"
End If
End if
End If
CHtml = CHtml & "</DIV>" & vbcrlf
End If
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
