<SCRIPT language="VBScript" Runat="Server"> 

 Sub Application_OnStart
  Application("Users") = ""
 End Sub

 Sub Session_OnEnd

   Application.Lock
   Application("Users") = Replace( Application("Users") , Session("utente") & "|" ,"")
   'quando scade una sessione viene eliminato il nome dell'utente dalla variabile di
  'applicazione che contiene l'elenco degli utenti attivi
   Application.UnLock

 End Sub

</SCRIPT> 

<% 

Session("utente") = Request("Utente")
if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
  'se l'utente non è già presente
   Application.Lock
  'viene aggiunto l'utente appena loggato alla stringa che contiene
  ' l'elenco degli utenti
  Application("Users") = Application("Users") & Session("utente") & "|"
   Application.UnLock
 end if

%>

<%

dim arrUtenti
 Response.Write "<b>Utenti Collegati:</b><br>"
 arrUtenti = Split(Application("Users"),"|")

 for i = 0 to UBound(arrUtenti)
   Response.Write arrUtenti(i) & "<br>"
 next

%>