Hjælp til opdatering af Access DB
Jeg har et problem mht. opdatering af access DB..Er der nogen der kan hjælpe ??
-----------------------
Kode:
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Salgsliste</title>
</head>
<body>
<%
mode=request("m")
if mode="gem" then
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/fpdb/sha.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL="UPDATE tblBILSALG SET "
SQL = SQL & "oprettet='" & Request.form("oprettet") & "', "
SQL = SQL & "Mærke='" & Request.form("Mærke") & "', "
SQL = SQL & "Type='" & Request.form("Type") & "', "
SQL = SQL & "Brændstof='" & Request.form("Brændstof") & "', "
SQL = SQL & "Farve='" & Request.form("Farve") & "', "
SQL = SQL & "Årgang='" & Request.form("Årgang") & "', "
SQL = SQL & "Kilometer='" & Request.form("Kilometer") & "', "
SQL = SQL & "Pris='" & Request.form("Pris") & "', "
SQL = SQL & "Synet='" & Request.form("Synet") & "', "
SQL = SQL & " where ID_bil =" & request("ID_bil")
Set RS = Conn.Execute(SQL)
%>
<meta http-equiv="refresh" content="2;URL=lukker.asp">
<font color="#FF0000">Dine ændringer er nu gemt.</font><b>
<% else %>
<%
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/fpdb/sha.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "SELECT * from tblBILSALG where Id_bil = " & Request.Querystring("ID_bil")
set RS = Conn.Execute(SQL)
Session("editID") = Request.Querystring("ID_bil")
%>
<form method="POST" action="fjernsalgsliste.asp?m=gem&id_bil=<%=rs("ID_bil") %>">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="719" height="44">
<tr>
<td height="22">Oprettet:</td>
<td height="22"><input type="text" name="oprettet" size="50" value="<%=rs("oprettet") %>"></td>
</tr>
<tr>
<td height="22">Mærke:</td>
<td height="22"><b>
<input type="text" name="Mærke" size="50" value="<%=rs("Mærke") %>"></b></td>
</tr>
<tr>
<td height="22">Model:</td>
<td height="22"><b>
<input type="text" name="model" size="50" value="<%=rs("Model") %>"></b></td>
</tr>
<tr>
<td height="22">Type:</td>
<td height="22"><b>
<input type="text" name="Type" size="50" value="<%=rs("Type") %>"></b></td>
</tr>
<tr>
<td height="22">Brændstof:</td>
<td height="22"><b>
<input type="text" name="Brændstof" size="50" value="<%=rs("Brændstof") %>"></b></td>
</tr>
<tr>
<td height="22">Farve:</td>
<td height="22"><b>
<input type="text" name="Farve" size="50" value="<%=rs("Farve") %>"></b></td>
</tr>
<tr>
<td height="22">Årgang:</td>
<td height="22"><b>
<input type="text" name="Årgang" size="50" value="<%=rs("Årgang") %>"></b></td>
</tr>
<tr>
<td height="22">Kilometer:</td>
<td height="22"><b>
<input type="text" name="Kilometer" size="50" value="<%=rs("kilometer") %>"></b></td>
</tr>
<tr>
<td height="22">Pris:</td>
<td height="22"><b>
<input type="text" name="Pris" size="50" value="<%=rs("Pris") %>"></b></td>
</tr>
<tr>
<td height="22">Synet:</td>
<td height="22"><b>
<input type="text" name="synet" size="50" value="<%=rs("synet") %>"></b></td>
</tr>
<tr>
<td height="22">Beskrivelse:</td>
<td height="22"> </td>
</tr>
<tr>
<td height="22">Billede 1:</td>
<td height="22"> </td>
</tr>
<tr>
<td height="22">Billede 2:</td>
<td height="22"> </td>
</tr>
<tr>
<td height="22">Billede 3:</td>
<td height="22"> </td>
</tr>
</table>
</center>
</div>
<br>
<input type="submit" value="Gem" name="gem">
</form>
</b>
<% end if %>
</body>
</html>
----------------------
fejlmeddelelse:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/soeholm.toti.dk/fjernsalgsliste.asp, line 30
