
<%
'MAKE SURE THAT THE FILE EXISXTS INITIALLY
path = Request.ServerVariables("APPL_PHYSICAL_PATH")
path = path&"\counter\counter.txt"
Set File =
Server.CreateObject("Scripting.FileSystemObject")
set file2=file.OpenTextFile(path)
x=file2.readline
Response.Write(x)'This writes the count
set resfile = File.createTextFile (path)
resfile.writeline(x+1)
%>