onlineliste

Nu har jeg lavet en simple onlineliste uden global.asa, ved bare at have en checkbox felt i db'en og når de så logger på så sætter den checkboxen til TRUE og når de logger af sætter den, den til FALSE, ikke så svært, men der er et lille problem, når man gør det på den måde, hvis de ikke bruger logoff knapper, så bliver de ikke logget af, selvom session.timeout er løbet ud, men måske er det den måde jeg har gjort det på, som ikke gør det.
Her er koden til min login side:

<%
    If request("mode") = "checkpass" Then
        On Error Resume Next
        SQL = "SELECT * FROM [Users] WHERE Username='" & Request("Username") & "'"
        Set rstemp=Conntemp.Execute(SQL)

        If Not Request("Password") = rstemp("Password") Then
            log("(" & Request("Username") & ") **FEJL I PASSWORD** (ADMIN)")
            Response.Redirect "login.asp?error=1"
        Else       
            Session("AdminPass")        = "OK"
            Session("AdminUser")        = rstemp("Username")
            Session("AdminAlias")        = rstemp("Alias")
            Session("AdminLevel")        = rstemp("UsrLevel")
            Session("AdminID")            = rstemp("UsrID")
            Session("AdminEmail")        = rstemp("Email")
            Session("AdminHomepage") = rstemp("Homepage")
            Session("AdminTime")        = Time
            Session("AdminDate")        = Date
            Session.Timeout = 20
            SQLONLINE = "UPDATE [Users] SET Online=TRUE WHERE (UsrID= "& Session("AdminID") &")"
            Conntemp.Execute(SQLONLINE)
            log(session("AdminUser") & " logged on")
            Response.Redirect "news.asp"
            rstemp.close
            Set rstemp = Nothing
        End If

    ElseIf request("mode") = "logoff" Then
        log(session("AdminUser") & " logged off")
        SQLOFFLINE = "UPDATE [Users] SET Online=FALSE WHERE (UsrID= "& Session("AdminID") &")"
        Conntemp.Execute(SQLOFFLINE)
        Session("AdminPass")        = "NOTOK"
        Session("AdminAlias")        = ""
        Session("AdminUser")        = ""
        Session("AdminNavn")        = ""
        Session("AdminLevel")        = ""
        Session("AdminID")            = ""
        Session("AdminEmail")        = ""
        Session("AdminHomepage") = ""
        Response.redirect "news.asp"
    End If
%>
En der kan hjælpe med, hvad det kunne skyldes?

Så har jeg også lige et andet spørgsmål. Jeg har prøvet et par gange at bygge noget autologin ind i det script der, men jeg har ikke kunne få det til at virke, men måske var der en venlig sjæl der kunne hjælpe mig med det og måske give mig et eksempel på hvordan det kunne gøres med cookies osv. i det script der.

På forhånd tak!