<%
'open a text document a read the top line for
'the current hit count
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("asp_count.txt"))
counter = clng(act.readline)
'add one to the current count
counter = counter + 1
act.close
'write a new text object with the same name
'and new hit count
Set act = fso.CreateTextFile(server.mappath("asp_count.txt"), true)
act.writeline(counter)
act.close
' grab the length of the counter
counter_length = len(counter)
'loop through the hit count number by
'number and display the appropriate image
'for each numeric in the hit count
for i = 1 to counter_length
%><%
next %>
 %>.gif)
