Ciao ragazzi, ecco il mio problema:

mi uno script che mi scriva i nomi degli utenti connessi al sito. In un precedente post ho trovato qualcosa, e vorrei adattarlo al mio sito ma con alcune modifiche.

Ecco ciò che ho trovato in un precedente post:


GLOBAL.ASA
----------

<SCRIPT language="VBScript" Runat="Server">

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

Sub Session_OnEnd

Application.Lock
Application("Users") = Replace( Application("Users") , Session("utente") & "," ,"")
'quando scade una sessione viene eliminato il nome dell'utente dalla variabile di
'applicazione che contiene l'elenco degli utenti attivi
Application.UnLock

End Sub

</SCRIPT>



Il file che visualizza gli utenti
---------------------------------

<%
dim arrUtenti, i
Response.Write "<font size=1 face=Verdana, Arial, Helvetica, sans-serif>Utenti Collegati:</font>
"
arrUtenti = Split(Application("Users"),",")

for i = 0 to UBound(arrUtenti)
Response.Write "<font size=1 face=Verdana, Arial, Helvetica, sans-serif>" & arrUtenti(i) & "</font>"
next
%>



il file che effettua il controllo degli utenti
----------------------------------------------

<%
dim user, pass
user = request.form("user")
pass = request.form("pass")
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../mdb-database/interventi.mdb")
Conn.Open strConn
sql = "SELECT * FROM registrazione_utente1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3

do while not(rs.eof)
if user = rs("nick") and pass = rs("pass") then
Response.Cookies("www.sito.it")("id") = rs("id")
Response.Cookies("www.sito.it")("user") = rs("nick")
Response.Cookies("www.sito.it")("avatar") = rs("avatar")
Response.Cookies("www.sito.it")("email") = rs("email")
response.cookies("www.sito.it").Expires = date() + 365
response.cookies("www.sito.it").Secure = false


' controllo utenti

Session("utente") = rs("nick")
if InStr(1, Application("Users"), Session("utente") & "," ) = 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("utente") & ","
Application.UnLock
end if

' fine controllo utenti

response.redirect "../index.asp"
end if
rs.movenext
loop

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing

response.redirect "../index.asp?errore=si"
%>


Ho due problemi:

1) Se l'utente chiude il browser, risulta ancora connesso.
2) Vorrei che comparissero i nomi non solo di chi si loga, ma di chi risulta già logato grazie ai cookie.

mi potete aiutare?