<%
on error resume next
set fs=server.CreateObject("Scripting.FileSystemObject")
path= server.MapPath("counter-laprincipal.txt")
Set a=fs.OpenTextFile(path)
linea=trim(mid(a.ReadLine,45))
counter=Cint(linea)
if Session("counter")="" then
Session("counter")=counter
counter=counter+1
a.close
Set a=fs.CreateTextFile(path,True)
lineafinal= "El numero de visitas desde 10/5/2002 es de: " + cstr(counter)
a.WriteLine(lineafinal)
end if
a.close
%>
:::::::::LA PRINCIPAL::::::::::
