Problema con utenti connessi

[Apeweb]

Salve
Stavo testando uno script e mi sono accorto di un problema.
Lo script è quello relativo alla visualizzazione degli utenti connessi in un determinato momento.
In pratica, quando esco dal sito e rientro, mi conteggia in modo sequenziale, quasi fosse un contatore di statistiche.
Come mai questo?
Posto in basso il file Global.asa relativo allo script:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart()
Application("UtentiCollegati") = 0
End Sub

Sub Application_OnEnd()
Application("UtentiCollegati") = 0
End Sub

Sub Session_OnStart()
' setta il timeout delle variabili di
' Sessione a 10 minuti
Session.Timeout = 10
' quando il visitatore entra (+1)
Application.Lock
Application("UtentiCollegati") = _
Application("UtentiCollegati") + 1
Application.UnLock
End Sub

Sub Session_OnEnd()
' quando il visitatore esce (-1)
Application.Lock
Application("UtentiCollegati") = _
Application("UtentiCollegati") - 1
Application.UnLock
End Sub
</SCRIPT>

Grazie