Problem med User Online

Jeg har et stort problem med et script jeg har fået der viser hvilke brugere der er online på en side.
Det virker fint nok med at sætte brugerne online så snart de logger sig ind. Problemet er når de skal sættes Offline igen idet de forlader siden.
Lige nu er det lige meget om brugere er på siden eller hvad så bliver personen sat offline idet Session variablen udløber og det dur ikke.
Jeg har nu ste lidt mere på  nogle sider der har det jeg ønsker det er bla. www.dating.dk www.netdate.dk og www.webdate. Der ligger man sig ind og så er man stat som online og så idet man forlader deres side elelr lukkere bowseren ned popper der et ekstra windue op der så båenbart lige sætter en offline igen og lykker sig selv igen.
Hvordan kan jeg så lavet sådan noget til min egen side.
Det man måske være relavant at vide at jeg bruger en include fil på hver side er checker om man er logget ind inden man får lov til at se de pågælende sider.

Dette er det script jeg har sået der da også virker nogenlunde.
global.asa
----------

sub Application_OnStart
    Application.lock
    Application(\"OnlineUsers\") = \",\"
    Application.unlock
end sub

sub Session_OnEnd
    Application.lock
    Application(\"OnlineUsers\") = Replace(Application(\"OnlineUsers\"), Session(\"login\") & \",\",\"\")
    Application.unlock
end sub

det her i dit login script:

    Sub AddOnlineUser(login)
        Application.Lock
        Application(\"OnlineUsers\") = Application(\"Onlineusers\") & login & \",\"
        Application.UnLock
    End Sub
------------------------------
Ste bruger Online med :
call AddOnlineUser( \"brugernavnet\" )

Check om bruger en online.

function Online(user)
        dim ok
               
        ok=\"no\"
        if instr(Application(\"OnlineUsers\"),user) then ok=\"yes\"
   
        Online=ok
    end function

Online(user)

Håber virkelig der er nogen der kan hjælpe mig med det her, og ligger da også gerne flere points i puljen hvis det er en stærrere opgave.