<%
set fs=server.createobject("scripting.filesystemobject")
file_path=server.mappath("counter.txt")
set counterfile=fs.opentextfile(file_path)
oldcountervalue=counterfile.readline
newcountervalue=oldcountervalue+1
set counterfile=fs.opentextfile(file_path,2)
counterfile.writeline(newcountervalue)
counterfile.close
%>
