Global.asa timeout

Hej Eksperter, jeg har virkelig brug for hjælp, derfor 75 point for en løsning til min global.asa

Problemet er at når en bruger logger ind, vises denne som den skal på online listen, men hvis brugeren lukker browseren eller for den sags skyld logger af siden, fortryder og logger på igen efter få sekunder, står brugeren online 2 gange, den første session lader ikke til at slutte, fordi hvis man feks. venter et par minutter, bare en 2- 3 minutter, er der ikke noget galt, den første session afsluttes da åbenbart.

Jeg har forsøgt at indsætte en timeout på 1 sekund, hvorfor det ikke virker????


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


Session timeout_sek = 1


Sub Application_OnStart
    ' Nulstiller antallet af brugere når applikationen (serveren) startes
   
    Application.Lock
    Application("OnlineUsers") = ","
    Application.UnLock
   
   
    Application("ActiveUsers") = 0
End Sub

Sub Application_OnEnd
    ' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub

Sub Session_OnStart
    ' Forøger antallet af brugere med 1, når en session startes
    Application.Lock
        Application("ActiveUsers") = Application("ActiveUsers") + 1
    Application.UnLock
End Sub

Sub Session_OnEnd
    ' Reducer antallet af brugere med 1, når en session afsluttes
   
If Len(Session("brugernavn")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("brugernavn") & ",", "")
    Application.UnLock
End If
   
   
    Application.Lock
        Application("ActiveUsers") = Application("ActiveUsers") - 1
    Application.UnLock
End Sub
</SCRIPT>