<%application.lock incrementcounter application.unlock %> <% sub incrementcounter() set fs=server.createobject("scripting.filesystemobject") counter_file=server.mappath("counter.txt") set txt=fs.opentextfile(counter_file) application("counter")=txt.readline txt.close application("counter")=application("counter")+1 set txt=fs.createtextfile(counter_file,true) txt.writeline(application("counter")) txt.close end sub %> <% response.write("document.write('") response.Write(application("counter")) response.Write("')") %>