<%
SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject")

'Edit this loction accordingly
SET MyCountFile = MyFileObject.OpenTextFile(Server.MapPath("zcount.txt"))

IF NOT MyCountFile.AtEndOfStream THEN

'Read the Visitor no.
Visitor = MyCountFile.Readline

Response.Write "document.write('"
Response.Write(Visitor)
Response.Write "')"
End IF


'close object
MyCountFile.close

SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
SET MyCouNtFile = MyFileObject.CreateTextFile(Server.MapPath("zcount.txt"))
MyCountFile.WriteLine Visitor+1
MyCountFile.Close

%>