Real Name	:	SharingCode.NET User
Subject	:	Number of visitors online
Description	:	Number of visitors online
<script language="vbscript" runat = "server"> Sub Application_OnStart 'initialize variable Application("visitors_online") = 0 End Sub Sub Application_OnEnd End Sub Sub Session_OnStart Session.Timeout = 20 '20 minute timeout Application.Lock Application("visitors_online") = Application("visitors_online") + 1 Application.Unlock End Sub Sub Session_OnEnd Application.Lock Application("visitors_online") = Application("visitors_online") - 1 Application.Unlock End Sub </script>
Rating	:	5.00 (out of 5)

Visitor Voting Booth

:

ExcellentVery GoodGoodFairPoor