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

[supergeniux]

Questo deve essere il global.asa:

<script language="VBScript" Runat="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
End Sub

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

Sub Session_OnEnd 
Application.Lock 
Application("Users") = Replace( Application("Users") , Session("utente") & "|" ,"") 
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock 
End Sub 
</script>

cosi recuperi i dati:

<%
Response.Write "Utenti Collegati:

" 
arra = Split(Application("Users"),"|") 

for i = 0 to UBound(arra) 
Response.Write arra(i) & "
" 
next 
%>

[wegawhite]

Grazie, ma forse non sono spiegato... devo visualizzare il profilo utente... quello che mi suggerisci è già regolarmente funzionante.

[rixx]

devi estrarre l'id e passarlo ad una pagina che effettui la query dovè il problema?