opdatere række i accessdatabase
Hej...JEg får følgende fejl fra min side når jeg prøver at opdatere min database via en hp:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Id ='.
/bs/v3/sider/member/ret/linkret.asp, line 89
Men jeg forstår det ikke, jeg mener jeg har angivet en id:
Men her er scriptet:
<%
response.Buffer = true
response.expires = 0
%>
<%
if session("bsbrugernavn") = "" and session("bsbrugerlevel") = "" and session("bsnavn") = "" then
Response.redirect("java script:window.close(best);")
end if
%>
<html>
<head>
<base target="best-hoved">
<link rel=stylesheet href="../../../bs.css" type="text/css">
<title></title>
</head>
<body>
<table>
<tr>
<td align="left">
<table align="left" valign="top" width="500">
<tr>
<td align="left" valign="top" class="stor" height="30">
<u><b>Link</b></u>
</td>
</tr>
<%
If Request.Form("Update") <> "" Then
strError = ""
strKat = Trim(Request.Form("Kat"))
strLink = Trim(Request.Form("Link"))
strTitel = Trim(Request.Form("Titel"))
strBrugernavn = session("bsnavn")
strBrugerid = session("bsid")
If Len(strKat) = 0 Then
strError = "Du skal vælge en kategori!"
ElseIf Len(strLink) = 0 Then
strError = "Du skal skrive en gyldig internetadresse!"
ElseIf Len(strTitel) = 0 Then
strError = "Du skal skrive et navn/overskrift til linket!"
ElseIf Len(strBrugerid) = 0 Then
strError = "Du er vidst ikke logget ind?!"
End If
If Len(strError) = 0 Then
Set rstemp = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM link WHERE id = " & Request.form("id")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../../../db/master.mdb")
rstemp.Open strSQL, strDSN, 1, 3
If NOT (rstemp.BOF Or rstemp.EOF) Then
rstemp.update
rstemp("Kat") = strKat
rstemp("Link") = strLink
rstemp("Titel") = strTitel
rstemp("Brugernavn") = strBrugernavn
rstemp("Brugerid") = strBrugerid
rstemp.Update
End If
rstemp.Close
Set rstemp = Nothing
Response.Redirect("link.asp")
Else
strError = "<p><font face=verdana size=1 color=#FFFFFF><b>"& strError &"</b></font></p>"
strMode = "update"
End If
End If
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("../../../../db/master.mdb")
Conn.Open DSN
' Hent fra databasen afhængig af værdien id fra URL
SQL = "Select * From Link Where Id = " & Request.QueryString("id")
Set rstemp = Conn.Execute(SQL) <-- linie 89
strId = rstemp("id")
strKat = rstemp("Kat")
strLink = rstemp("Link")
strTitel = rstemp("Titel")
%>
<tr>
<td align="center" valign="top">
<form method="POST" action="linkret.asp">
<table width="400" height="100%">
<tr>
<td colspan="2" align="center" height="25" width="100%"><%=strError%></td>
</tr>
<tr>
<td align="left" width="40%">Linkid:</td>
<td align="left"><%=strId%></td>
</tr>
<tr>
<td width="40%" class="">Kategori:</td>
<td width="60%">
<select name="Kat" tabindex="1" value="<%=strKat%>">
<option value="kommune">Kommunen</option>
<option value="klub">Sejlklub</option>
<option value="kklub">Klasseklub</option>
<option value="maritim">Maritim</option>
</select>
</td>
</tr>
<tr>
<td align="left" width="40%">Link:</td>
<td align="left"><input type="text" name="Link" size="28" class="box" tabindex="2" value="<%=strLink%>"></td>
</tr>
<tr>
<td align="left" width="40%">Titel:</td>
<td align="left"><input type="text" name="titel" size="28" class="box" tabindex="4" value="<%=strTitel%>"></td>
</tr>
<tr>
<td width="40%"> </td>
<td width="100%" align="left">
<input type="submit" value=" Send " name="Add" class="box" tabindex="4">
<input type="button" value=" Fortryd " name="Annuller" class="box" onClick="java script:location.href='link.asp'" tabindex="5">
</td>
</tr>
</table>
</form>
</td>
</tr>
<%
rstemp.close
set rstemp = nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
