kode fejl (update)

Hjesa eksperter.

jeg har lige prøvet at gøre sådan at hver gang en bruger logger ind, opdatere den, sidste login, ip, online(1)

koden jeg har indsat ser sådan ud:
Conn.Execute("UPDATE brugere SET sidste_login='" & Now & "', ip='" & Request.ServerVariables("REMOTE_ADDR") & "', online='1' WHERE navn=" & Session("navn"))

hele koden:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

SQL = "select * from brugere where bruger='" & Request.querystring("logon") & "'"
Set rs = Conn.Execute(SQL)
response.write sql

Do While Not rs.EOF
check1=(rs("bruger"))
check2=(rs("kode"))

if check1=request.querystring("logon") and check2=request.querystring("pass") THEN
session("navn")=rs("navn")
session("login")="true"
Conn.Execute("UPDATE brugere SET sidste_login='" & Now & "', ip='" & Request.ServerVariables("REMOTE_ADDR") & "', online='1' WHERE navn=" & Session("navn"))
response.redirect "startside.asp"
end if

rs.MoveNext

Loop
response.redirect "default.asp"
%>