Lista utenti connessi e global.asa

[[trodat]]

Ciao.

Con la ricerca sul forum ho trovato questo global.asa che visualizza i nomi degli utenti che navigano nell'area riservata (come in questo forum); il problema è che a volte rimane l'ultimo utente "appeso" alla lista e la lista viene stampata così:

ultimoutentedelgiornoprimaprimoutentedioggi, altroutentedioggi

. Vorrei capire dov'è l'errore:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server"> 

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

Sub Session_OnStart 
Session.Timeout = 30 
Application.Lock 
Application("intActiveUserNumber") = Application("intActiveUserNumber") + 1 
Application.UnLock 
End Sub 

Sub Session_OnEnd 
Application.Lock 
Application("intActiveUserNumber") = Application("intActiveUserNumber") - 1 
Application("Users") = Replace( Application("Users") , Session("user") & "|" ,"")
Application.UnLock 
End Sub 


</SCRIPT>

Così stampo a video la lista utenti:

Dim arrUtenti
arrUtenti = Split(Application("Users"),"|")
dim utenti 
for i = 0 to Ubound(arrUtenti)-1
if left(utenti,1) = "," then 
utenti = mid(utenti,2,len(utenti)-1) 
end if
if i<> UBound(arrUtenti)-1 then 
utenti = utenti & arrUtenti(i) & ", "
else 
utenti = utenti & arrUtenti(i) 
end if  
Next 
Response.Write "<font color=red size=1 font face=verdana> " & utenti & "</font>"%>