UPDATE statement fejl
Hejsa.Jeg får følgende fejl:
Microsoft JET Database Engine error '80040e14'
Syntax error in UPDATE statement.
/rediger_admin.asp, line 127
Jeg kan simpelthen ikke se hvad der er galt :((
I denne kode:
<%@language=vbscript%>
<% Response.Buffer= true%>
<html>
<head>
<title>Rediger biler i databasen</title>
</head>
<body>
<%
'on error resume next
if Request.Form("kommando") <> "opdater" then
set objConn = server.CreateObject("ADODB.connection")
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database/uploaddb.mdb") & ";"
set rs = server.CreateObject("ADODB.recordset")
'Opret forbindelse til databasen
objConn.Open strConnect
rs.Open "SELECT * FROM tblFiler", objConn
%>
<p>Indtast data i nedenstående formular og tryk på "OPDATER" for at lagre dem i databasen:</p>
<form method="post" action='<%=Request.ServerVariables("SCRIPT_NAME")%>' name="brugerdata">
<table border="0" width="100%">
<tr>
<td width="1%">Mærke:</td>
<td width="59%"><input name="txtMaerke" size="30" value='<%=rs("Maerke")%>'
></td>
</tr>
<tr>
<td width="1%">Model:</td>
<td width="59%"><input name="txtModel" size="30" value='<%=rs("Model")%>'
></td>
</tr>
<tr>
<td width="1%">Farve:</td>
<td width="59%"><input name="txtFarve" size="30" value='<%=rs("Farve")%>'
></td>
</tr>
<tr>
<td width="1%">Pris:</td>
<td width="59%"><input name="txtPris" size="30" value='<%=rs("Pris")%>'
></td>
</tr>
<tr>
<td width="1%">Kilometer:</td>
<td width="59%"><input name="txtKm" size="30" value='<%=rs("Km")%>'
></td>
</tr>
<tr>
<td width="1%">Type:</td>
<td width="59%"><input name="txtType" size="30" value='<%=rs("Type")%>'
></td>
</tr>
<tr>
<td width="1%">Synet:</td>
<td width="59%"><input name="txtSynet" size="30" value='<%=rs("Synet")%>'
></td>
</tr>
<tr>
<td width="1%">Aar:</td>
<td width="59%"><input name="txtAar" size="30" value='<%=rs("Aar")%>'
></td>
</tr>
<tr>
<td width="1%">Md:</td>
<td width="59%"><input name="txtMd" size="30" value='<%=rs("Md")%>'
></td>
</tr>
<tr>
<td width="1%">Døre:</td>
<td width="59%"><input name="txtDors" size="30" value='<%=rs("Dors")%>'
></td>
</tr>
<tr>
<td width="1%">Bem:</td>
<td width="59%"><input name="txtBem" size="100" value='<%=rs("Bem")%>'
></td>
</tr>
</table>
<p><input type="submit" value="Opdater" name="cmdOpdater"></p>
<input type="hidden" value="opdater" name="kommando">
<input type="hidden" value='<%=rs("ID")%>' name="id">
</form>
<%
rs.Close
objConn.close
set rs= nothing
set objConn=nothing
else
'Opret et Connection-objekt
set objConn = server.CreateObject("ADODB.connection")
'Opret en data Connection
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database/uploaddb.mdb") & ";"
objConn.Open strConnect
'Gem formulardata
id =Request.Form("id")
mo =Request.Form("txtModel")
ma =Request.Form("txtMaerke")
fa =Request.Form("txtFarve")
pr =Request.Form("txtPris")
km =Request.Form("txtKm")
ty =Request.Form("txtType")
sy =Request.Form("txtSynet")
aa =Request.Form("txtAar")
md =Request.Form("txtMd")
dr =Request.Form("txtDors")
be =Request.Form("txtBem")
strSQL= "UPDATE tblFiler SET Model='" & mo & "', "
strSQL= strSQL & "Maerke ='" & ma & "', "
strSQL= strSQL & "Farve ='" & fa & "', "
strSQL= strSQL & "Pris ='" & pr & "', "
strSQL= strSQL & "Km ='" & km & "', "
strSQL= strSQL & "Type ='" & ty & "', "
strSQL= strSQL & "Synet ='" & sy & "', "
strSQL= strSQL & "Aar ='" & aa & "', "
strSQL= strSQL & "Md ='" & md & "', "
strSQL= strSQL & "Dors ='" & dr & "', "
strSQL= strSQL & "Bem ='" & be & "', "
strSQL= strSQL & "WHERE id=" & id
objConn.Execute(strSQL)
objConn.Close
set cn=nothing
Response.Redirect "oversigt_admin.asp"
end if
%>
</body>
</html>
