Insert into (Apostroffer)

smid dine requests over i nogen lokale variabler.

Det HAR jeg prøvet og det giver samme resultat. Det er mine apostroffer det er galt med.

Alle felt som er defineret som tekst/notat skal det \' omkring.
Tal felter skal der ikke:
strSQL = \"Insert into MinTabel(\"

strSQL = strSQL & \"Fornavn, \"
strSQL = strSQL & \"Efternavn, \"
strSQL = strSQL & \"Adresse, \"
strSQL = strSQL & \"Husnummer) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & Request.Form(\"Fornavn) & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"Efternavn) & \"\', \"
strSQL = strSQL & \"\'\" Request.Form(\"Adresse) & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"Husnummer)  & \"\');\"

du skal havde & omkring request.form(\"var\"):
\"\" & Request.Form & \"\"  for tal
\"\'\" & Request.Form & \"\'\"  for teskts

Conn.Execute(strSQL)

det fordi du har skrevet request.form inde i strengen:
str = \" request.form(\"felt\") \" 
så bliver str til strengen request.form(\"felt\")

hvorimod
str = request.form(\"felt\")
så blivr str = indholdet af request.form(\"felt\"), det som er tastet ind fra formen.

jeg har i mit svar antaget alle dine felter er tekst.

Tak! - Jeg afprøver det lige .. :-)

Virker stadig ikke. Får fejlmeddelelsen: Tegnet \')\' var ventet

har har over set et &

strSQL = \"Insert into MinTabel(\"

strSQL = strSQL & \"Fornavn, \"
strSQL = strSQL & \"Efternavn, \"
strSQL = strSQL & \"Adresse, \"
strSQL = strSQL & \"Husnummer) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & Request.Form(\"Fornavn) & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"Efternavn) & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"Adresse) & \"\', \"
strSQL = strSQL & \"\'\" & Request.Form(\"Husnummer) & \"\');\"

Det havde jeg opdaget og rettet, så det er ikke det. Jeg prøver istedet at gemme min Requests i nogle variabler. Vil du se om du kan bygge sætningen korrekt op?:

strFornavn = Request.Form(\"Fornavn\")
strEfternavn = Request.Form(\"Efternavn\")
strAdresse = Request.Form(\"Adresse\")
strHusnummer = Request.Form(\"Husnummer\")

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DSN=DSN_Kontakt\",\"Admin\",\"\"

strSQL = \"Insert into t_Kontakt (\"

strSQL = strSQL & \"Fornavn, \"
strSQL = strSQL & \"Efternavn, \"
strSQL = strSQL & \"Adresse, \"
strSQL = strSQL & \"Husnummer) \"

strSQL = strSQL & \"values( \"

strSQL = strSQL & \"\'\" & strFornavn &\"\', \"

strSQL = strSQL & \"\'\" & strEfternavn &\"\', \"

strSQL = strSQL & \"\'\" & strAdresse &\"\', \"

strSQL = strSQL & \"\'\" & strHusnummer &\"\');\"

Conn.Execute(strSQL)

Ja der ser rigtigt ud.

virker det også

Ja det skulle også gerne virke..