<%
archivo = server.mappath("\test.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
%>