%Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
hitsfile = Server.MapPath("counter.txt")
Set instream= FileObject.OpenTextFile (hitsfile, 1, False )
oldhits = instream.ReadLine
newhits = oldhits + 1
Set outstream= FileObject.CreateTextFile (hitsfile, True)
OutStream.WriteLine(newhits)
l=Len(newhits)
For i = 1 to l
num = Mid(newhits,i,1)
display = display & ""
Next%>