ciao a tutti
sto utilizzando questo script x visualizzare il nome degli utenti collegati ed esso viene ricavato attraverso un cookie

ma quando lo metto on line mi restituisce tutti i nomi attaccati e non separati e con la virgola come invece dovrebbe

inoltre il global dopo 30 minuti dovrebbe chiudere l'application ed invece i nomi rimangono sempre memorizzati e x finire lo stesso utente se ritorna vede il suo nome ripetersi ad ogni aggiornamento di pagina....

questo è lo script:

codice:
 <%
Session("user") = Request.Cookies("nickchat")("nome")
if InStr(1, Application("Users"), Session("user") & "|" ) = 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("user") & "|"
  Application.UnLock
end if

%>

<%
'NOME DEGLI UTENTI COLLEGATI
Dim arrUtenti
Response.Write "<font color=blue size=1 font face=verdana>utenti colegati: </font>"
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>"
%>
e questo è il global:

codice:
<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>