Session_OnEnd körs inte

Får aldrig detta att lyckats, har testat att köra koden i session_onend på en vanlig aspsida och då funkar den.
Har även sökt bland tidigare inlägg och hittat trådar om samma problem som mitt men min kod funkar fortfarande inte.

Hela min global.asa:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("community.mdb")&";Jet OLEDB:Database Password=berten"
	Connect.Execute "UPDATE members SET status = 'offline' "
	Connect.Close

   Application("totBesok") = 0
   
End Sub 

Sub Session_OnStart

On error resume next
   
	Application.Lock
	Application("totBesok") = Application("totBesok") + 1
	Application.Unlock
   
   Session.Timeout = 1

End Sub

Sub Session_OnEnd

Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("community.mdb")&";Jet OLEDB:Database Password=berten"
	Connect.Execute "UPDATE members SET status ='offline' Where sessionID = " & Session.SessionID & ""
	Connect.Execute ("UPDATE members SET status ='offline' Where id = " & Session("id") & " ")
	Connect.Close

End Sub

</SCRIPT>

Varför körs den inte?