Online-check

Hej! Har en lite säregen variant av onlinecheck som funkar bra så länge användarna loggar ut:

'Kollar användare och sätter mitt recset ID till en session
if not RecSet.EOF then
	sql = "upDate anvandare set status = true where anvandarnamn = '" & username & "' AND losenord = '" & password & "'"
 	objConn.execute(sql) 
	RecSet("datum") = Now
	RecSet.Update
	Session("id") = RecSet("ID")
	Session.TimeOut = 45
	Session("login") = "ok"	
     	Response.Redirect "index.htm"
End If

'Det fungerar bra att logga ut med en länk.
if not RecSet.EOF then
	sql = "upDate anvandare set status = false Where id = " & id
	objConn.execute(sql) 
 	session.abandon
	Response.Redirect "utloggad.asp"
End If

'men när användarna stänger ner webläsaren 
'utan att logga ut ändras inte status till false. 
'Därför provade jag såhär:
if session("id") = "" then
	Do Until RecSet.EOF
		If RecSet("status") AND DateDiff("n", RecSet("datum"), Now) > [b]1[/b] Then
			sql = "upDate anvandare set status = false"
			objConn.execute(sql) 
		end if
	Loop	
Else		
		RecSet.Filter = " ID = " & session("id")
		RecSet("Datum") = Now
		RecSet.Update
end if

Det fungerar alltså inte ens när man uppdaterar sidan efter 1 minut som den ju står på nu i testsyfte.. Nån som har nåt tips?

edit:
den sista koden inkluderar jag alltså på alla sidor som hör till inloggade avdelningar..