<%
SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
'Edit this loction accordingly
SET MyCouNtFile = MyFileObject.OpenTextFile(Server.MapPath("count.txt"))
IF NOT MyCountFile.AtEndOfStream THEN
'Read the Visitor no.
Visitor = MyCountFile.Readline
Response.Write"This site has been visited "
Response.Write(Visitor)
Response.Write" times"
End IF
'close object
MyCountFile.close
SET MyFileObject = Server.CreateObject("Scripting.FileSystemObject")
SET MyCouNtFile = MyFileObject.CreateTextFile(Server.MapPath("count.txt"))
MyCountFile.WriteLine Visitor+1
MyCountFile.Close
%>
|