<% dim out countfile=server.mappath("aspcount.txt") set objfile=server.createobject("scripting.filesystemobject") set out=objfile.opentextfile(countfile,1,false,false) counter=out.readline out.close set objfile=server.createobject("scripting.filesystemobject") set out=objfile.createtextfile(countfile,TRUE,FALSE) application.lock counter=counter+1 out.writeline(counter) application.unlock out.close %>