ASP VBScript UPDATE

Jeg prøver og logge ind på side hvor følgende valideringsside undersøge om bruger findes. Det funger fint. (Stor juble og sejrs dans).

Det der er problemet er at jeg prøver at opdater en felt(LastTimeOnline) i min lille database. Jeg får ingen fejl meldinger fra serven når scriptet kør men feltet bliver ikke opdateret. Hvorfor????

<%@LANGUAGE="VBSCRIPT"%>
<% Response.Expires = 0 %>
<!--#include file="Connections/connecton.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connecton_STRING
Recordset1.Source = "SELECT * FROM User"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 4
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim user
Dim password
Dim language

if Request.ServerVariables("QUERY_STRING") <> false Then
    user = Request.Form("user")
    password = Request.Form("password")
    language = Request.Form("language")
   
    if user = "" or password = "" or language = "" Then
        Response.Redirect("login.asp")
    end if

    do while not Recordset1.eof
        if  (Recordset1.Fields.Item("Username").Value)= user and (Recordset1.Fields.Item("Password").Value) = password then
            Session("authCheck")= "7914098602183045"
            Session("language")= language
            Session("lastTimeOnline") = (Recordset1.Fields.Item("LastTimeOnline").Value)
            Session("Name") = (Recordset1.Fields.Item("Name").Value)
            Recordset1("LastTimeOnline") = NOW
            Recordset1.Update
            Response.Redirect("default.asp")
        end if
       
        Recordset1.MoveNext
    Loop

    Response.Redirect("login.asp")
Else

    Response.Redirect("error.asp")
   
End if


Recordset1.Close() : connection.close ()
Set Recordset1 = Nothing : Set connection = Nothing
%>