Utenti collegati: profilo di ognuno

[wegawhite]

Buonasera... cosa sbaglio in questo code? Dovrei visualizzare il profilo di un utente collegato alla chat, cliccando sul nome... mi sono aiutato con la ricerca, ma non mi stampa la lista degli utenti connessi in linea... nel global.asa ho previsto per memorizzare gli utenti connessi:

Application("User") = Replace( Application("User") , Session("User") & "|" ,"")

questo è il code per recuperare gli utenti:

If RSist("Attivo") = "1" Then
Response.Write(" & RSist("Utente") & ")
Else		  
Dim arrUtenti, i 
arrUtenti = Split(Application("User"),"|") 
dim utenti 
for i = 0 to UBound(arrUtenti)-1
if i <> UBound(arrUtenti)-1 then 
response.write ("<font color=red size=1 font face=verdana>"& arrUtenti(i) &"</font>, ")
else 
response.write ("<font color=red size=1 font face=verdana> "& arrUtenti(i) &"</font>")
end if  
Next 
end if