<% dim objFS, fleHits Set objFS = CreateObject("Scripting.FileSystemObject") Set fleHits = objFS.OpenTextFile(server.mappath("correo/hitsFile.txt"),1) if isObject(fleHits) then currentHits = fleHits.ReadLine if isNumeric(currentHits) then currentHits = clng(currentHits) else currentHits = 0 end if else currentHits = 0 end if fleHits.Close currentHits = cstr(currentHits + 1) Set fleHits = objFS.CreateTextFile(server.mappath("correo/hitsFile.txt"),True) fleHits.writeLine cstr(currentHits) fleHits.close set objFs=nothing %>