<%
Set FSObject = Server.CreateObject("Scripting.FileSystemObject")
nomearquivo=server.mappath("visitas.txt")
Set letot = FSObject.OpenTextFile(nomearquivo,1)
acessos = letot.ReadLine + 1
letot.Close
Set letot = Nothing
Set escrevetot = FSObject.CreateTextFile(nomearquivo)
escrevetot.Write acessos
escrevetot.Close
Set escrevetot = Nothing
Set FSObject = Nothing
%>
Arte de Curar Homeopatia e Manipulação