<%
dim fso, f,n
set fso=CreateObject("Scripting.FileSystemObject")
set f=fso.OpenTextFile(Server.MapPath("/public/counter.txt"),1,true)
n=f.readall
f.close
set f=fso.OpenTextFile(Server.MapPath("/public/counter.txt"),2,true)
n=n+1
f.write n
f.close
%>