<html>
<head>
<title>
Contador
</title>
<%
'El parámetro es el nombre del archivo que llevará la cuenta
Function countvisits(counterfilename)
Dim fso,filename,f,n
Set fso=createObject("scripting.filesystemobject")
'En la siguiente línea, cambia arielmedina1978 por tu directorio en el servidor HTTP
filename=request.serverVariables("APPL_PHYSICAL_PATH") & "arielmedina1978\" & counterfilename
Set f=fso.OpenTextFile(filename,1,1)
If f.AtEndOfStream Then
n=1
Else
n=Trim(f.ReadLine())
n=n+1
End If
f.close()
Set f=fso.OpenTextFile(filename,2,0)
f.writeLine(n)
f.close()
Set fso=Nothing
countvisits=n
End Function
%>
</head>
<body>
<% ="Número de visitas: <h3>" & countvisits("counterex.txt") & "</h3>"%>
</body>
</html>