Session_onend udføres ikke

Jeg vil lave den klassiske. En counter som tæller antal online og total antal besøgende. Jeg har fundet følgende kode:

<script language="vbscript" runat="server">

Sub Application_OnEnd()
Application.Contents("totvisitor")=Application.Contents("visitor")
End Sub

Sub Application_OnStart
Application.Contents("visitor")=0
End Sub

Sub Session_OnStart
Application.Lock
Application.Contents("visitor")=Application.Contents("visitor")+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application.Contents("visitor")=Application.Contents("visitor")-1
Application.UnLock
End Sub</script>

Jeg kan godt få den til at tælle op. Problemet er at den ikke tæller ned. Udføres Session_onEnd ikke når man lukker siden? Derudover er jeg ikke klar over om min "totvisitor" gemmes når alle session er lukkede og Application_onEnd udføres... Er der nogen der kan hjælpe mig med mine to spg?