E' necessario utilizzare il GLOBAL.ASA

Quando un utente si collega la prima volta viene inizializzata la variabile che ha valore 0.

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
  Application.Lock
  Application("collegati") = 0
  Application.UnLock
End Sub

'Quando invece qualsiasi utente si collega al sito la variabile viene incrementata di 1.

Sub Session_OnStart
  Application.Lock
  Application("collegati") = Application("collegati") + 1
  Application.UnLock
End Sub

'Quando esce si scala di 1.

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

Per visualizzare nella pagina il numero di accessi:

<%
  response.write "Ci sono " & Application("collegati") & " utenti collegati."
%>