<% archivo = "C:\Inetpub\vhosts\mundo-zoo.com\httpdocs\contador.txt" hits = 0 Set fs = Server.CreateObject("Scripting.FileSystemObject") Set f = fs.OpenTextFile(archivo,1,true,0) if not f.AtEndOfLine then hits = f.ReadLine f.Close Set f = Nothing hits = hits+1 Set f = fs.OpenTextFile(archivo,2,true,0) f.write(hits) f.Close Set f = Nothing set fs=nothing response.write ""& hits & "" %>