Ciao ragazzi..ho creato questo global.asa per visualizzare gli utenti connessi al sito (con i relativi nomi)..ma mi succede che vengono visualizzati tutti i nomi uno dopo l'altro, senza spazio...come mai?
GLOABAL.ASA
Sub Session_OnStart
Application.Lock
Application("onlinevisitors")=Application("onlinev isitors")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("onlinevisitors")=Application("onlinev isitors")-1
Application("Users") = Replace( Application("Users") , Session("utente") & "|" ,"")
Application.UnLock
End Sub
PAGINA VISUALIZZAZIONE
<%
dim arrUtenti
arrUtenti = Split(Application("Users"),"|")
for i = 0 to UBound(arrUtenti)
Response.Write arrUtenti(i)&"
"
next
response.write Application("onlinevisitors")&" utenti anonimi"
%>

Rispondi quotando