Active User Counter
|
<%
'Dimension variables
Dim intDisplayDigitsLoopCount 'Loop counter to diplay the graphical hit count
'Error handler
On Error Resume Next
'HTML output to display the visitor number
Response.Write " Active User's " 'Loop to display grapical digits For intDisplayDigitsLoopCount = 1 to Len(Application("intActiveUserNumber")) 'Display the graphical active user hit count by getting the path to the image using the mid function Response.Write " |
This active user counter will only increment when a new user comes to the site (not
by hitting refresh)
The active user counter will decrement when a user leaves the site or the
session times out (defualt 20 minutes)
