Muss es nicht so heissen ...
If Request.Form("InseratIntranet")="Falsch" then
InseratIntranet=False
else
InseratIntranet=True
end if
Offenbar gibt das Feld der Checkbox diesen Wert mit. Sende doch mal den
Ausschnitt aus deinem Formular zu.
Gru� Martin
-----Urspr�ngliche Nachricht-----
Von: Sebastian Svetel [mailto:[EMAIL PROTECTED]]
Gesendet: Montag, 26. November 2001 11:35
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] AW: RE: AW: Insert Into mit Checkboxen
email = text
InseratIntranet = ja/nein (oder geht sogar etwas anderes?)
cu sebi
-----Urspr�ngliche Nachricht-----
Von: Roman Pittroff [mailto:[EMAIL PROTECTED]]
Gesendet: Montag, 26. November 2001 11:28
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] RE: AW: Insert Into mit Checkboxen
Du vielleicht nicht aber wir :-)
INSERT INTO newsletter (email,InseratIntranet) VALUES
('[EMAIL PROTECTED]','Falsch')
Sag mal welche felder typen das in db sind
email = text
InseratIntranet = ??
Gruss
Roman Pittroff
Consulting
Bangkok, Thailand
-----Original Message-----
From: Sebastian Svetel [mailto:[EMAIL PROTECTED]]
Sent: Monday, November 26, 2001 5:29 PM
To: ASP Diskussionsliste fuer Anfaenger
Subject: [aspdebeginners] AW: Insert Into mit Checkboxen
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 & "'")
| 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
| 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
