Problema su numero di utenti connessi

[forzaferrari]

Ho un problema sul calcolo del numero di utenti connessi.

Ho questo codice:

GLOBAL.ASA

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

Sub Session_OnStart
' setta il timeout di default 10
Session.Timeout = 10
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub

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


e nella pagina:

<%= Application("ActiveUsers") %>



Il totale degli utenti connessi mi sbaglia perché mi incrementa sempre il numero e non dimminuisce mai.
Sapete per caso dove sbaglio?

[raffaele.p]

A me sembra corretto, però ricorda che il numero l'evento
Session_OnEnd viene effettivamento eseguito dopo che è
scaduto il time out della session e non appena chiudi il browser.

[forzaferrari]

E per controllare anche la chiusura del browser come si fa?

[raffaele.p]

che io sappia non si può controllare la chiusura
del browser direttamente ma la session verrà chiusa
dopo alcuni minuti (di default 20) che non vengono
fatte più richieste dal browser. Quindi se il browser
viene chiuso, dopo 20 min farà scadere la session e
verrà eseguita la Session_OnEnd.