Application("ActiveUsers")

kan du ikke bruge noget med servervariablen SCRIPT_NAME ? i session start/slut

...hmmm, forklar nærmere

Jeg går ud fra, at du har nået i denne stil ?

SUB Session_OnStart
    Application.lock
    Application("ActiveUsers") = Application("ActiveUsers") + 1
    Application.unlock
END SUB

..så noget (har ikke lige tid :/)

SUB Session_OnStart
If LEFT(Request.ServerVariables("SCRIPT_NAME"),ETELLERANDETTAL) = [DIR] Then
    Application.lock
    Application("ActiveUsers") = Application("ActiveUsers") + 1
    Application.unlock
End If
END SUB

..Request.ServerVariables("SCRIPT_NAME") giver hele URL'en til det script som afvikles...

sub Session_ONStart
if not instr(Request.ServerVariables("SCRIPT_NAME"), "Biblioteksnavn") < 0 then
    Application.lock
    Application("ActiveUsers") = Application("ActiveUsers") + 1
    Application.unlock
end if
end sub