Kan i finde fejlen

<%
dim strlogonuser
dim user
dim user2
user2 = JKMI
strLogonUser = Request.ServerVariables("LOGON_USER")
user = mid(strlogonuser, 6) 
%>
<%
strconnect="Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.Mappath("disper.mdb")
SET DbObj=Server.CreateObject ("ADODB.Connection")
DbObj.Open strconnect
SET tabel=DbObj.Execute("UPDATE disper SET Sted='" & request.form("radiobutton") & "', Dato=now where Navn = " & user & " ")
%>


Det er i denne linie fejlen skulle være:

SET tabel=DbObj.Execute("UPDATE disper SET Sted='" & request.form("radiobutton") & "', Dato=now where Navn = " & user & " ")