Ciao a tutti, stò impazzendo a cercare di far funzionare uno script per la visualizzazione degli utenti autenticati al sito.

Nello script visualizzo il nome e l'email dell'utente che ha fatto il login...e fin qui funziona....ma se faccio il logout l'utente rimane memorizzato e non sparisce....chi sà aiutarmi?
vi posto i codici delle pagine:



'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''
GLOBAL.ASA


<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
Application.lock
Application("users") = 0
Application("utenti") = ""
Application.unlock
End Sub

Sub Session_OnStart
Session.Timeout = 20
Application.lock
Application("users") = Application("users") + 1
Application.unlock
End Sub

Sub Session_OnEnd
Application.lock
Application("users") = Application("users") - 1
if (Session("nomecliente") & "") <> "" then
Application("utenti") = Replace( Application("utenti") , "|" & Session("nomecliente") & " - "& Session("emailcliente") & "|" ,"|")
end if
Application.unlock
End Sub

</SCRIPT>



'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''
PAGINA DI LOGIN


email=SQLinj(campovuoto(Request( "email" ) ))
password=SQLinj(campovuoto(Request( "password" ) ))

sqlstringa="select * from clienti where email='"&email&"' and passwordcliente='"&password&"'"
set RSD = my_Conn.Execute(sqlstringa)

if not RSD.eof then

Session("nomecliente")=RSD("nome")
Session("emailcliente")=RSD("email")

if InStr(1,Application("utenti"),Session("nomecliente ") & "|" ) = 0 then
Application.Lock
Application("utenti") = Application("utenti") & "|" & Session("nomecliente") & " - " & ""& Session("emailcliente")& "|
"
Application.UnLock
END IF

end if