Hallo
Leider bekomme ich beim Abspeichern von Daten in eine Datenbank immer die gleiche Meldung:
"Kompilierungsfehler in Microsoft VBScript- Fehler '800a03ea'
Syntaxfehler
/iisHelp/common/500-100.asp, line 160
elseIf (objASPError.Description > "") Then
^
Microsoft OLE DB Provider for ODBC Drivers- Fehler '80040e07'
[Microsoft][ODBC Microsoft Access Driver] Datentypen in Kriterienausdruck unverträglich.
/shop4/scripte/ware_sqlinsert_shop.asp, line 54"
Was mache ich falsch? Irgendwo ist ein Überlegungsfehler (eher kein Tippfehler?!) drin, aber ich finde ihn nicht! Wer kann mir helfen?
Mein Code:
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "kunden_shop","username","passwort" 'die letzten zwei sind optional
Name=Replace(Request.Form("Name"),"'","''")
'***Verhindert Fehler bei Formularweren mit Hochkommas, z.B. D'Angello
'***Replace erstetzt die Hochkommas durch 2 Hochkommas
Vorname=Replace(Request.Form("Vorname"),"'","''")
Adresse=Replace(Request.Form("Adresse"),"'","''")
PLZ=Replace(Request.Form("PLZ"),"'","''")
Ort=Replace(Request.Form("Ort"),"'","''")
Land=Replace(Request.Form("Land"),"'","''")
Telefon=Replace(Request.Form("Telefon"),"'","''")
Email=Replace(Request.Form("Email"),"'","''")
Anzahl=Replace(Request.Form("Anzahl"),"'","''")
Artikel=Replace(Request.Form("Artikel"),"'","''")
ArtNr=Replace(Request.Form("ArtNr"),"'","''")
Einzelpreis=Replace(Request.Form("Einzelpreis"),"'","''")
Gesamtpreis=Replace(Request.Form("Gesamtpreis"),"'","''")
x="Insert into adressen(Name,Vorname,Adresse,PLZ,Ort,Land,Telefon,Email)"
y=" Values('"&Name&"','"&Vorname&"','"&Adresse&"','"&PLZ&"','"&Ort&"','"&Land&"','"&Telefon&"','"&Email&"')"
conn.execute(x&y)
a="Insert into bestellung(Anzahl,Artikel,ArtNr,Einzelpreis,Gesamtpreis)"
b=" Values('"&Anzahl&"','"&Artikel&"','"&ArtNr&"','"&Einzelpreis&"','"&Gesamtpreis&"')"
conn.execute(a&b)
conn.close
set conn=nothing
%>