<%
'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 in last 20m "
'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")
%>