<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart()
Application("UtentiCollegati") = 0
End Sub
Sub Application_OnEnd()
Application("UtentiCollegati") = 0
Application("online") = ""
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("online") = Application("online") & " " & Session("user")
Application.UnLock
End Sub
Sub Session_OnEnd()
' quando il visitatore esce (-1)
Application.Lock
Application("UtentiCollegati") = _
Application("UtentiCollegati") - 1
Application("online") = Replace( Application("online") & Session("user") & "" ,"")
Application.UnLock
End Sub
</SCRIPT>