document.write('
');
document.write('<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
');
document.write('Sub Application_OnStart
');
document.write('Application("strVisitors") = 0
');
document.write('End Sub
');
document.write('
');
document.write('Sub Application_OnEnd
');
document.write('End Sub
');
document.write('
');
document.write('Sub Session_OnStart
');
document.write('Application.lock
');
document.write('Application("strVisitors")=Application("strVisitors") + 1
');
document.write('Application.unlock
');
document.write('End Sub
');
document.write('
');
document.write('Sub Session_OnEnd
');
document.write('Application.lock
');
document.write('Application("strVisitors")=Application("strVisitors") - 1
');
document.write('Application.unlock
');
document.write('End Sub
');
document.write('</SCRIPT>
');
document.write('
');
document.write('<%
');
document.write('\'Write the amount of active visitors
');
document.write('Response.Write(Application("strVisitors"))
');
document.write('%>
');
document.write('
');
document.write('
');