GLOBAL.ASA ץבוקל המגוד תאז
<!-- start GLOBAL.ASA --------------------------> <SCRIPT LANGUAGE=VBScript RUNAT=Server> Sub Application_OnStart Application("ActiveUsers") = 0 End Sub Sub Application_OnEnd 'nothing needed here for this example End Sub Sub Session_OnStart Application.lock Application("ActiveUsers") = Application("ActiveUsers") + 1 Application.unlock End Sub Sub Session_OnEnd Application.lock Application("ActiveUsers") = Application("ActiveUsers") - 1 Application.unlock End Sub </SCRIPT> <!-- end GLOBAL.ASA ---------------------------->