Yep
nun schlauer bin ich auch nicht geworden. Folgender SQL wird nun ausgewiesen:
INSERT INTO newsletter (email,InseratIntranet) VALUES ('[EMAIL PROTECTED]','Falsch')
und immer noch die Fehlermeldung [Microsoft][ODBC Microsoft Access Driver] Datentypen
in Kriterienausdruck unvertr�glich.
noch ne Idee?
der Source:
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 Request.Form("InseratIntranet")="True" then
InseratIntranet=True
else
InseratIntranet=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 &
"','" & InseratIntranet & "')")
Set rs1 = conn.Execute("SELECT * FROM newsletter WHERE email = '" & email & "'")
-----Urspr�ngliche Nachricht-----
Von: Roman Pittroff [mailto:[EMAIL PROTECTED]]
Gesendet: Montag, 26. November 2001 10:50
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] RE: AW: RE: AW: Insert Into mit Checkboxen
Ganz einfach so
response.write ("SELECT * FROM newsletter WHERE email LIKE '" & email &
"'")
....
Gruss
Roman Pittroff
Consulting
Bangkok, Thailand
-----Original Message-----
From: Sebastian Svetel [mailto:[EMAIL PROTECTED]]
Sent: Monday, November 26, 2001 4:35 PM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] AW: RE: AW: Insert Into mit Checkboxen
Sorry,
ist zwar ne bl�de Frage von mir aber wie gebe ich den SQL mit
response.write aus?
so?
Response.Write rs
Set rs = conn.Execute("SELECT * FROM newsletter WHERE email LIKE '" &
email & "'")
If rs.EOF Then
conn.Execute("INSERT INTO newsletter (email,InseratIntranet) VALUES
('" & email & "','" & InseratIntranet & "')")
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
| 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
