codice:
Sun Session_OnStart
session("login") = false

end sub


Sub Session_OnEnd 

if session("login") then

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 if

End Sub
ma nell'if non manca qualcosa? if session("login") = .... then