<%
set fso = createobject("scripting.filesystemobject")
set act =
fso.opentextfile(server.mappath("asp_count.txt"))
counter =
clng(act.readline)
counter = counter + 1
act.close
Set act =
fso.CreateTextFile(server.mappath("asp_count.txt"),
true)
act.WriteLine(counter)
act.Close
Response.Write counter
%>