<%
dim visitors
file=server.mappath("count.txt")
set fs=server.createobject("scripting.FileSystemObject")
set thisfile=fs.opentextfile(file)
visitors=thisfile.readline
thisfile.close
for i=1 to len(visitors)
response.write "

"
next
'response.write visitors
visitors=visitors+1
set thisfile=fs.createtextfile(file)
thisfile.write visitors
thisfile.close
set fs=Nothing
%>