<% dim path,myFile,read,write,cntNum path=server.mappath("counter.cnt") read=1 Set myFso = Server.CreateObject("Scripting.FileSystemObject") set myFile = myFso.opentextfile(path,read) cntNum=myFile.ReadLine myFile.close cntNum=cntNum+1 write=2 set myFile = myFso.opentextfile(path,write,TRUE) myFile.write(cntNum) myFile.close set myFile=nothing set myFso=nothing %>