application che non va

[grandeorco]

Ciao, il problema è che ho una chatt dove l' utente logato entra ed io lo inserisco nell' elenco degli utenti in chatt

	Application.Lock
	utenti_chat = Application("utenti_chat")
	u_c=instr(1,utenti_chat,session("id_ut"))
    if u_c>0 then
    'non facio nulla
    else
    if len(Application("utenti_chat"))>0 then
    Application("utenti_chat") = Application("utenti_chat")& ", " & Session("user")&"_"&session("id_ut")
    else
    Application("utenti_chat") = Application("utenti_chat") & Session("user")&"_"&session("id_ut")
    end if
    end if
    Application.UnLock

e quando esce dalla stanza regolarmente io lo tolgo

	s1=", "&session("user")&"_"&session("id_ut")
	s2=session("user")&"_"&session("id_ut")&", "
	s3=session("user")&"_"&session("id_ut")
	Application("utenti_chat")=replace(Application("utenti_chat"),s1,"")
	Application("utenti_chat")=replace(Application("utenti_chat"),s2,"")
	Application("utenti_chat")=replace(Application("utenti_chat"),s3,"")

il problema nasce quando chiude la pagina o va ad un 'altro link senza prima uscire dalla chatt e quindi mi rimane il nome nell' elenco