UTILISATEUR PRESENT SUR LE SITE

<script language=VBScript runat=Server>
Sub Application_OnStart
Application("active") = 0
End Sub
Sub Application_OnEnd 
'---nothing here
End Sub
Sub Session_OnStart 
Session.Timeout = 20 
'---lock Application variable before updating 
Application.Lock 
Application("active") = Application("active") + 1 
Application.Unlock
End Sub
Sub Session_OnEnd
Application.Lock
Application("active") = Application("active") - 1 
Application.Unlock
End Sub
</script>


<%=application("active")%>