FixaText koden tog jag inte med nu. Får felmedelandet


Feltyp:
Microsoft JET Database Engine (0x80040E14)
Syntaxfel i UPDATE-uttryck.
/Dasset/Las_dasspapper.asp, line 58


<%
Dim RecSet
Dim Connect
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databas/qwezxcasd/databas.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open "SELECT * FROM Dasspapper WHERE Till = '" & Session("Anvandarnamn") & "' AND ID = " & Request.QueryString("ID") , Connect

If RecSet.EOF Then
Response.Write "<H5>Det uppstod ett fel!</H5>"
Else
%>
Du läser nu ett dasspapper från <%=RecSet("Fran")%> från <%=RecSet("Lan")%> innan du blir tvungen att torka dig med det.<td>
</tr>
</table>
</tr>
</table>
<table cellspacing="0">
<tr>
<td height="13" bgcolor="#95805C" style="cursor : Hand" onclick="javascript:location.href='dass.asp?Anvandarnamn=<%=Session("Anvandarnamn")%>'" onMouseover="this.bgColor='#FFFBF0';" onMouseout="this.bgColor='#95805C';" Class="Box_meny">&nbsp; Dass &nbsp;
<td height="13" bgcolor="#95805C" style="cursor : Hand" onclick="javascript:location.href='toan.asp?Anvandarnamn=<%=Session("Anvandarnamn")%>'" onMouseover="this.bgColor='#FFFBF0';" onMouseout="this.bgColor='#95805C';" Class="Box_meny">&nbsp; Toan &nbsp;
<td height="13" bgcolor="#95805C" style="cursor : Hand" onclick="javascript:location.href='Dasspapper.asp?Anvandarnamn=<%=Session("Anvandarnamn")%>'" onMouseover="this.bgColor='#FFFBF0';" onMouseout="this.bgColor='#95805C';" Class="Box_meny">&nbsp; Dasspapper &nbsp;
<td height="13" bgcolor="#95805C" style="cursor : Hand" onMouseover="this.bgColor='#FFFBF0';" onMouseout="this.bgColor='#95805C';" Class="Box_meny">&nbsp; Lorttisar &nbsp;
<td height="13" bgcolor="#95805C" style="cursor : Hand" onMouseover="this.bgColor='#FFFBF0';" onMouseout="this.bgColor='#95805C';" Class="Box_meny">&nbsp; Inställningar &nbsp;
<td height="13" Class="Box_middle" width="223">&nbsp;
</tr>
</table>
<table cellspacing="0">
<tr>
<td align="top" valign="top" width="516" Class="Box">
<DIV align="center" valign="center"><b><%=RecSet("Rubrik")%></b></DIV>
<table>
<tr>
<td><%=RecSet("Text")%>
</tr>

<%
If RecSet("Last") = "Nej" Then
'58 Connect.Execute "UPDATE Dasspapper SET Last = 'Ja' WHERE ID = " & FixaTecken(Request.QueryString("ID")) &" AND Till = '" & FixaTecken(Session("Anvandarnamn")) & "'"
End If
End If

RecSet.Close
Set RecSet = Nothing

Connect.Close
Set Connect = Nothing
%>

UPDATE Dasspapper SET [Last] = 'Ja' WHERE ID = " & FixaTecken(Request.QueryString("ID")) &" AND Till = '" & FixaTecken(Session("Anvandarnamn")) & "'

last är ett reserverat i ord access tror jag

Tack. Lyckades lösa ganska mycket tackvara detdär :D