Fel i Global.asa?

Varför funkar inte koden som ska sätta värdet till False? Om en användare glömmer att logga ut på vanligt sätt så ska global.asa göra det åt användaren då dennes session går ut. Sökvägen till DB är rätt och jag får aldrig några felmeddelanden. Det händer bara inget. Visst är det väl meningen att global.asa ska köras automatiskt? Man behöver ju inte köra filen på nåt sätt, lr?

<script language=VBScript runat=Server>
Sub Session_OnStart()
Session.Timeout = 10
   Application.Lock
      Application("NumUsers") = CInt(Application("NumUsers")) + 1
   Application.Unlock
End Sub
Sub Session_OnEnd()
   Application.Lock
      Application("NumUsers") = CInt(Application("NumUsers")) - 1
   Application.Unlock
   Application.Lock
      username = Session("username") 
      Dim ConnectStr, StatusConn
         ConnectStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/members.mdb")
         Set StatusConn = Server.CreateObject("ADODB.Connection")
         StatusConn.Open ConnectStr
	  Set rsUpdate = Server.CreateObject("ADODB.Recordset")
	     rsUpdate.Open "users WHERE Username = '" & username & "' ", StatusConn, 3, 3
         rsUpdate("Countsessions") = False
         rsUpdate.Update
	     rsUpdate.Close
         Set rsUpdate = Nothing
      StatusConn.Close
      Set StatusConn = Nothing
   Application.Unlock
End Sub
</script>