[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT
Fejl:Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.
GemProfil.asp, line 76
hele scriptet:
<html>
<head>
<title>Gem Match Resultater</title>
<LINK href="../../dream/ss_wci.css" type=text/css rel=stylesheet>
<base target="_self">
</head>
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed">
<%
matchnavn = request.form("matchnavn")
dato = request.form("dato")
gruppea = request.form("gruppea")
no1a = request.form("no1a")
navn1a = request.form("navn1a")
point1a = request.form("point1a")
no2a = request.form("no2a")
navn2a = request.form("navn2a")
point2a = request.form("point2a")
no3a = request.form("no3a")
navn3a = request.form("navn3a")
point3a = request.form("point3a")
no4a = request.form("no4a")
navn4a = request.form("navn4a")
point4a = request.form("point4a")
no5a = request.form("no5a")
navn5a = request.form("navn5a")
point5a = request.form("point5a")
gruppeb = request.form("gruppeb")
no1b = request.form("no1b")
navn1b = request.form("navn1b")
point1b = request.form("point1b")
no2b = request.form("no2b")
navn2b = request.form("navn2b")
point2b = request.form("point2b")
no3b = request.form("no3b")
navn3b = request.form("navn3b")
point3b = request.form("point3b")
no4b = request.form("no4b")
navn4b = request.form("navn4b")
point4b = request.form("point4b")
no5b = request.form("no5b")
navn5b = request.form("navn5b")
point5b = request.form("point5b")
gruppec = request.form("gruppec")
no1c = request.form("no1c")
navn1c = request.form("navn1c")
point1c = request.form("point1c")
no2c = request.form("no2c")
navn2c = request.form("navn2c")
point2c = request.form("point2c")
no3c = request.form("no3c")
navn3c = request.form("navn3c")
point3c = request.form("point3c")
no4c = request.form("no4c")
navn4c = request.form("navn4c")
point4c = request.form("point4c")
no5c = request.form("no5c")
navn5c = request.form("navn5c")
point5c = request.form("point5c")
matchleder = request.form("matchleder")
info = request.form("info")
sponsorimg = request.form("sponsorimg")
If Request("mode") = "ny" then
if matchnavn <> "" and dato <> "" and gruppea <> "" and no1a <> "" and navn1a <> "" and point1a <> "" and no2a <> "" and navn2a <> "" and point2a <> "" and no3a <> "" and navn3a <> "" and point3a <> "" and no4a <> "" and navn4a <> "" and point4a <> "" and no5a <> "" and navn5a <> "" and point5a <> "" and gruppeb <> "" and no1b <> "" and navn1b <> "" and point1b <> "" and no2b <> "" and navn2b <> "" and point2b <> "" and no3b <> "" and navn3b <> "" and point3b <> "" and no4b <> "" and navn4b <> "" and point4b <> "" and no5b <> "" and navn5b <> "" and point5b <> "" and gruppec <> "" and no1c <> "" and navn1c <> "" and point1c <> "" and no2c <> "" and navn2c <> "" and point2c <> "" and no3c <> "" and navn3c <> "" and point3c <> "" and no4c <> "" and navn4c <> "" and point4c <> "" and no5c <> "" and navn5c <> "" and point5c <> "" and matchleder <> "" and info <> ""and sponsorimg <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb")
SQL= "INSERT INTO match (matchnavn, dato, gruppea, no1a, navn1a, point1a, no2a, navn2a, point2a, no3a, navn3a, point3a, no4a, navn4a, point4a, no5a, navn5a, point5a, gruppeb, no1b, navn1b, point1b, no2b, navn2b, point2b, no3b, navn3b, point3b, no4b, navn4b, point4b, no5b, navn5b, point5b, gruppec, no1c, navn1c, point1c, no2c, navn2c, point2c, no3c, navn3c, point3c, no4c, navn4c, point4c, no5c, navn5c, point5c, matchleder, info, sponsorimg)"
SQL = SQL & " VALUES ('" & request.form("matchnavn") & "','" & request.form("dato") & "','" & request.form("gruppea") & "'," & request.form("no1a") & ",'" & request.form("navn1a") & "'," & request.form("point1a") & "," & request.form("no2a") & ",'" & request.form("navn2a") & "'," & request.form("point2a") & "," & request.form("no3a") & ",'" & request.form("navn3a") & "'," & request.form("point3a") & "," & request.form("no4a") & ",'" & request.form("navn4a") & "'," & request.form("point4a") & "," & request.form("no5a") & ",'" & request.form("navn5a") & "'," & request.form("point5a") & ",'" & request.form("gruppeb") & "'," & request.form("no1b") & ",'" & request.form("navn1b") & "'," & request.form("point1b") & "," & request.form("no2b") & ",'" & request.form("navn2b") & "'," & request.form("point2b") & "," & request.form("no3b") & ",'" & request.form("navn3b") & "'," & request.form("point3b") & "," & request.form("no4b") & ",'" & request.form("navn4b") & "'," & request.form("point4b") & "," & request.form("no5b") & ",'" & request.form("navn5b") & "'," & request.form("point5b") & ",'" & request.form("gruppec") & "'," & request.form("no1c") & ",'" & request.form("navn1c") & "'," & request.form("point1c") & "," & request.form("no2c") & ",'" & request.form("navn2c") & "'," & request.form("point2c") & "," & request.form("no3c") & ",'" & request.form("navn3c") & "'," & request.form("point3c") & "," & request.form("no4c") & ",'" & request.form("navn4c") & "'," & request.form("point4c") & "," & request.form("no5c") & ",'" & request.form("navn5c") & "'," & request.form("point5c") & ",'" & request.form("matchleder") & "','" & request.form("info") & "','" & request.form("sponsorimg") & "')"
Conn.Execute (SQL)
conn.Close
Set conn = nothing
Set SQL = nothing
response.redirect ("RetListe.asp")
else
response.write "Du skal udfylde *alle* felter!<br>"
response.write "<a href='java script:history.go(-1)'>Tilbage</a>"
end if
ElseIf Request("mode") = "gem" then
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("xxxx.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL="UPDATE match SET "
SQL = SQL & "matchnavn='" & matchnavn & "', "
SQL = SQL & "dato='" & dato & "', "
SQL = SQL & "gruppea='" & gruppea & "', "
SQL = SQL & "no1a='" & no1a & "', "
SQL = SQL & "navn1a='" & navn1a & "', "
SQL = SQL & "point1a='" & point1a & "', "
SQL = SQL & "no2a='" & no2a & "', "
SQL = SQL & "navn2a='" & navn2a & "', "
SQL = SQL & "point2a='" & point2a & "', "
SQL = SQL & "no3a='" & no3a & "', "
SQL = SQL & "navn3a='" & navn3a & "', "
SQL = SQL & "point3a='" & point3a & "', "
SQL = SQL & "no4a='" & no4a & "', "
SQL = SQL & "navn4a='" & navn4a & "', "
SQL = SQL & "point4a='" & point4a & "', "
SQL = SQL & "no5a='" & no5a & "', "
SQL = SQL & "navn5a='" & navn5a & "', "
SQL = SQL & "point5a='" & point5a & "', "
SQL = SQL & "gruppeb='" & gruppeb & "', "
SQL = SQL & "no1b='" & no1b & "', "
SQL = SQL & "navn1b='" & navn1b & "', "
SQL = SQL & "point1b='" & point1b & "', "
SQL = SQL & "no2b='" & no2b & "', "
SQL = SQL & "navn2b='" & navn2b & "', "
SQL = SQL & "point2b='" & point2b & "', "
SQL = SQL & "no3b='" & no3b & "', "
SQL = SQL & "navn3b='" & navn3b & "', "
SQL = SQL & "point3b='" & point3b & "', "
SQL = SQL & "no4b='" & no4b & "', "
SQL = SQL & "navn4b='" & navn4b & "', "
SQL = SQL & "point4b='" & point4b & "', "
SQL = SQL & "no5b='" & no5b & "', "
SQL = SQL & "navn5b='" & navn5b & "', "
SQL = SQL & "point5b='" & point5b & "', "
SQL = SQL & "gruppec='" & gruppec & "', "
SQL = SQL & "no1c='" & no1c & "', "
SQL = SQL & "navn1c='" & navn1c & "', "
SQL = SQL & "point1c='" & point1c & "', "
SQL = SQL & "no2c='" & no2c & "', "
SQL = SQL & "navn2c='" & navn2c & "', "
SQL = SQL & "point2c='" & point2c & "', "
SQL = SQL & "no3c='" & no3c & "', "
SQL = SQL & "navn3c='" & navn3c & "', "
SQL = SQL & "point3c='" & point3c & "', "
SQL = SQL & "no4c='" & no4c & "', "
SQL = SQL & "navn4c='" & navn4c & "', "
SQL = SQL & "point4c='" & point4c & "', "
SQL = SQL & "no5c='" & no5c & "', "
SQL = SQL & "navn5c='" & navn5c & "', "
SQL = SQL & "point5c='" & point5c & "', "
SQL = SQL & "matchleder='" & matchleder & "', "
SQL = SQL & "info='" & info & "', "
SQL = SQL & "sponsorimg='" & sponsorimg & "' "
SQL = SQL & " where id = " & CInt(Request.Querystring("id"))
'response.write sql
Set RS = Conn.Execute(SQL)
response.redirect ("RetListe.asp")
else
end if
%>
</body>
</html>
