Aktive brukere

'Denne koden legger du i en fil du kaller global.asa'
<script language="vbscript" runat="server">
sub Application_OnStart
Application("ActiveUsers") = Application("ActiveUsers") + 1
end sub

sub Application_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
end sub

og deretter skrive ut:

<%=Application("ActiveUsers") %> 

i fila en ønsker å skrive ut antall brukere.

Skrevet av Sindre Mathisen 2001