Hallo Liste
Kann mir jemand sagen weshalb ich mit diesem Source nicht eine Checkbox in der DB
aktivieren kann?
<%
If Request.Form("email") <> "" Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Access Driver
(*.mdb)};DBQ=d:\webroot2\wwwsvetel\neunewsletter\db\newsletter.mdb;") ' *** Datenquelle
email = Request.Form("email")
InseratIntranet = Request.Form("InseratIntranet")
if InseratIntranet=vbNullString then InseratIntranet=False else InseratIntranet=True
aFieldnames = split("InseratIntranet;InseratInternet",";")
If Request.Form("aFieldnames")="True" then
aFieldnames=True
else
aFieldnames=False
end if
Set rs = conn.Execute("SELECT * FROM newsletter WHERE email LIKE '" & email & "'")
If rs.EOF Then
response.write("INSERT INTO newsletter (email,InseratIntranet) VALUES ('" & email &
"'," & InseratIntranet & ")")
conn.Execute("INSERT INTO newsletter (email,InseratIntranet) VALUES ('" & email &
"',CBool(" & CLng(InseratIntranet) & "))")
response.write ("SELECT * FROM newsletter WHERE email LIKE '" & email &"'")
Set rs1 = conn.Execute("SELECT * FROM newsletter WHERE email = '" & email & "'")
..
cu sebi
| 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
