nomi degli utenti online...memoria perenne

[tretretre]

ciao a tutti
ho inserito il codice per creare un elenco degli utenti attualmente connessi sul mio sito.

i nomi vengono mostrati uno dopo l'altro come si conviene...il problema è che sti nomi non spariscono più

ho controllato il timeout delle sessioni sul server è impostato a 20 minuti. io non capisco come devo fare per farli sparire.
vi posto il codice usato.

grazie

questo al momento del login avvenuto con successo

    ' username and password match - this is a valid user
    Session("MM_Username") = MM_valUsername
    Session.Timeout=10

    
    'codice utenti online
If InStr(1, Application("MM_Username"), Session("MM_Username") & "|" ) = 0 Then
Application.Lock
Application("MM_Username") = Application("MM_Username") & Session("MM_Username") & "|"
Application.UnLock
End If
'codici utenti online 

questo invece è il codice inserito nella pagina che mostra gli utenti online

<script language="VBScript" runat="server"> 
Sub Application_OnStart
    Application("MM_Username") = ""
End Sub
Sub Session_OnEnd
    Dim n 
    n = Replace(Application("MM_Username") , Session("MM_Username") & "|" ,"")
    Application.Lock
    Application("MM_Username") = n
    Application.UnLock
End Sub
</script> 




[b]Coristi Online Adesso:[/b]


<%
Dim nomi, i
nomi = Split(Application("MM_Username"), "|")
i = 0
For i = 0 To UBound(nomi)
    Response.Write nomi(i) & ", "
Next
%>