% set fs=createobject("scripting.filesystemobject") set f=fs.opentextfile(server.MapPath("/") & "/count/countlsyl.txt") s=f.readall f.close set f=fs.CreateTextFile(server.MapPath("/") & "/count/countlsyl.txt") f.write(s+1) f.close %>