<% set objeto=createobject("scripting.filesystemobject") set arquivo=objeto.opentextfile(Server.mappath("c.txt"),forreading,false,false) conteudo=arquivo.readline conteudo=clng(conteudo) + 1 tam=len(conteudo) response.write("") arquivo.close set arquivo=objeto.opentextfile(Server.mappath("c.txt"),forwriting,false,false) arquivo.writeline(conteudo) arquivo.close set objeto=nothing %>