Hidden-Felder in Datenbank speichern

[Matthias]

Hallo
Ich erhalte beim Abspeichern von Daten mit Hidden-Feldern immer dieselbe 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"

Line 54 ist: conn.execute(a&b)

Was mache ich nur falsch? Irgendwo habe ich einen Überlegungsfehler (eher kein Tippfehler?!) drin! Wer kann mir helfen?
Besten Dank

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

%>

[Spam Detector]

Das ist jetzt schon der dritte Thread zu dem Thema.
Es reicht.

/?t=29965&m=161985
/?t=30080&m=162484

[susanne]

Hallo Matthias,
ich vermute, dass ein Datentyp in Deinem INSERT nicht mit den Datentypen der Datenbank übereinstimmt, wahrscheinlcih das Währungsformat.
Du kannst das überprüfen mit if IsCurrency (Variable).. und die Datentypen auch explizit zuweisen.
Susanne

Hallo
Ich erhalte beim Abspeichern von Daten mit Hidden-Feldern immer dieselbe 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"

Line 54 ist: conn.execute(a&b)

Was mache ich nur falsch? Irgendwo habe ich einen Überlegungsfehler (eher kein Tippfehler?!) drin! Wer kann mir helfen?
Besten Dank

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

%>