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
