<% Wfile="C:\Inetpub\vhosts\familiaesociedade.org\httpdocs\_private\contador.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(Wfile) hits = Clng(a.ReadLine) hits = hits + 1 a.close Set a = fs.CreateTextFile(Wfile,True) a.WriteLine(hits) a.Close %> document.write("0<%=hits%>")