Syntaks fejl?
Jeg får denne fejlmeddelse:--------------------------
Microsoft OLE DB Provider for ODBC Drivers fejl \'80040e14\'
[Microsoft][ODBC Microsoft Access-driver] Der er en syntaksfejl i INSERT INTO-sætningen.
linje 24
-------------------------------------------------
Der er min kode:
------------------
<HTML>
<head>
<title>EP-Produkter Assens A/s Admin.</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"../css/ep.css\">
</head>
<BODY BGCOLOR=\"#FFFFFF\">
<%
set conn = Server.CreateObject(\"ADODB.Connection\")
Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Upload.OverwriteFiles = false
Upload.SetMaxSize 300000, True
Upload.SaveVirtual (\"../images\")
set persistfil_billede = upload.files(\"file1\")
if persistfil_billede is nothing then
conn.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../varer.mdb\")
conn.Execute(\"insert into varer(beskrivelse, titel, varenummer1, varenummer2, varenummer3, varenummer4, varenummer5, varenummer6, varenummer7, varenummer8, varenummer9, varenummer10, varenummer11, varenummer12,, varenummer13, varenummer14, varenummer15, varenummer16, varenummer17, varenummer18, varenummer19, varenummer20, tekst1, tekst2, tekst3, tekst4, tekst5, tekst6, tekst7, tekst8, tekst9, tekst10, tekst11, tekst12, tekst13, tekst14, tekst15, tekst16, tekst17, tekst18, tekst19, tekst20) \" &_
\"values(\'\" & upload.form(\"beskrivelse\") & \"\', \'\" & upload.form(\"titel\") & \"\', \'\" & upload.form(\"varenummer1\") & \"\', \'\" & upload.form(\"varenummer2\") & \"\', \'\" & upload.form(\"varenummer3\") & \"\', \'\" & upload.form(\"varenummer4\") & \"\', \'\" & upload.form(\"varenummer5\") & \"\', \'\" & upload.form(\"varenummer6\") & \"\' , \'\" & upload.form(\"varenummer7\") & \"\', \'\" & upload.form(\"varenummer8\") & \"\', \'\" & upload.form(\"varenummer9\") & \"\', \'\" & upload.form(\"varenummer10\") & \"\', \'\" & upload.form(\"varenummer11\") & \"\', \'\" & upload.form(\"varenummer12\") & \"\' , \'\" & upload.form(\"varenummer13\") & \"\', \'\" & upload.form(\"varenummer14\") & \"\', \'\" & upload.form(\"varenummer15\") & \"\', \'\" & upload.form(\"varenummer16\") & \"\', \'\" & upload.form(\"varenummer17\") & \"\', \'\" & upload.form(\"varenummer18\") & \"\', \'\" & upload.form(\"varenummer19\") & \"\', \'\" & upload.form(\"varenummer20\") & \"\', \'\" & upload.form(\"tekst1\") & \"\' , \'\" & upload.form(\"tekst2\") & \"\', \'\" & upload.form(\"tekst3\") & \"\', \'\" & upload.form(\"tekst4\") & \"\', \'\" & upload.form(\"tekst5\") & \"\', \'\" & upload.form(\"tekst6\") & \"\', \'\" & upload.form(\"tekst7\") & \"\', \'\" & upload.form(\"tekst8\") & \"\', \'\" & upload.form(\"tekst9\") & \"\', \'\" & upload.form(\"tekst10\") & \"\', \'\" & upload.form(\"tekst11\") & \"\' , \'\" & upload.form(\"tekst12\") & \"\' , \'\" & upload.form(\"tekst13\") & \"\' , \'\" & upload.form(\"tekst14\") & \"\' , \'\" & upload.form(\"tekst15\") & \"\' , \'\" & upload.form(\"tekst16\") & \"\' , \'\" & upload.form(\"tekst17\") & \"\' , \'\" & upload.form(\"tekst18\") & \"\' , \'\" & upload.form(\"tekst19\") & \"\',\'\" & upload.form(\"tekst20\") & \"\')\")
if Err <> 0 Then
Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
Else
Response.Write headerfont & \"<br>Tilføjet...</strong></font>\"
End If
conn.Close
set conn = nothing
else
MyConn = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"../varer.mdb\")
For Each File in Upload.Files
File.ToDatabase MyConn, \"insert into varer(images, beskrivelse, titel, varenummer1, varenummer2, varenummer3, varenummer4, varenummer5, varenummer6, varenummer7, varenummer8, varenummer9, varenummer10, varenummer11, varenummer12,, varenummer13, varenummer14, varenummer15, varenummer16, varenummer17, varenummer18, varenummer19, varenummer20, tekst1, tekst2, tekst3, tekst4, tekst5, tekst6, tekst7, tekst8, tekst9, tekst10, tekst11, tekst12, tekst13, tekst14, tekst15, tekst16, tekst17, tekst18, tekst19, tekst20) \" &_
\"values(\'\" & File.ExtractFileName & \"\', \'\" & upload.form(\"beskrivelse\") & \"\', \'\" & upload.form(\"titel\") & \"\', \'\" & upload.form(\"varenummer1\") & \"\', \'\" & upload.form(\"varenummer2\") & \"\', \'\" & upload.form(\"varenummer3\") & \"\', \'\" & upload.form(\"varenummer4\") & \"\', \'\" & upload.form(\"varenummer5\") & \"\', \'\" & upload.form(\"varenummer6\") & \"\' , \'\" & upload.form(\"varenummer7\") & \"\', \'\" & upload.form(\"varenummer8\") & \"\', \'\" & upload.form(\"varenummer9\") & \"\', \'\" & upload.form(\"varenummer10\") & \"\', \'\" & upload.form(\"varenummer11\") & \"\', \'\" & upload.form(\"varenummer12\") & \"\', \'\" & upload.form(\"varenummer13\") & \"\', \'\" & upload.form(\"varenummer14\") & \"\', \'\" & upload.form(\"varenummer15\") & \"\', \'\" & upload.form(\"varenummer16\") & \"\', \'\" & upload.form(\"varenummer17\") & \"\', \'\" & upload.form(\"varenummer18\") & \"\', \'\" & upload.form(\"varenummer19\") & \"\', \'\" & upload.form(\"varenummer20\") & \"\', \'\" & upload.form(\"tekst1\") & \"\' , \'\" & upload.form(\"tekst2\") & \"\', \'\" & upload.form(\"tekst3\") & \"\', \'\" & upload.form(\"tekst4\") & \"\', \'\" & upload.form(\"tekst5\") & \"\', \'\" & upload.form(\"tekst6\") & \"\', \'\" & upload.form(\"tekst7\") & \"\', \'\" & upload.form(\"tekst8\") & \"\', \'\" & upload.form(\"tekst9\") & \"\', \'\" & upload.form(\"tekst10\") & \"\', \'\" & upload.form(\"tekst11\") & \"\', \'\" & upload.form(\"tekst12\") & \"\' , \'\" & upload.form(\"tekst13\") & \"\' , \'\" & upload.form(\"tekst14\") & \"\', \'\" & upload.form(\"tekst15\") & \"\', \'\" & upload.form(\"tekst16\") & \"\', \'\" & upload.form(\"tekst17\") & \"\', \'\" & upload.form(\"tekst18\") & \"\', \'\" & upload.form(\"tekst19\") & \"\',\'\" & upload.form(\"tekst20\") & \"\')\"
if Err <> 0 Then
Response.Write headerfont & \"<br>Der er sket en fejl! : \" & Err.Description
Else
Response.Write headerfont & \"<br>Tilføjet...<a href=upload_2.asp>Tilbage</a></strong></font>\"
End If
Next
end if
%>
</BODY>
</HTML>
