Hidden-Felder in Datenbank speichern

[Matthias]

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

%>