<%
'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
'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 "
![]()
"
Next
'Alternative to display text output instead
'Response.Write Application("intActiveUserNumber")
%>
currently connected
