Contatore Global Asa

<script language="�VBScript"� runat="Server"�>
Sub Application_OnStart
'Questo evento rileva il riavviarsi del server

Application.Lock
Application("started")= =now()
Application("autenticato") = ""
Application("visitors")=0
Application.UnLock
End Sub

Sub Application_OnEnd
'Questo evento rileva lo spegnersi del server

End Sub

Sub Session_OnStart
'�Questo evento rileva la attivazione di una sessione utente

Application.Lock
application("autenticato") = ""
Application("visitors")=Application("visitors")+1
Application.UnLock
End Sub

Sub Session_OnEnd
'Questo evento rileva la disattivazione di una sessione utente

Application.Lock
Application("visitors")=Application("visitors")-1
Application.UnLock
End Sub
</SCRIPT>