Es un ejemplo de contador simple,
que lee de un archivo de texto, teoricamente ya probado y debería funcionar. No le veo ningún error, pero la pagina se "cuelga" cargando y nunca aparece nada... ni siquiera un mensaje de error.
(Obviamente que el archivo existe)
Me ayudan?
<%@ LANGUAGE = VBScript %>
<%
'Creamos la conexión al archivo
Set Fso = CreateObject("Scripting.FileSystemObject")
contadortxt = Server.MapPath("contador.txt")
Set FileRead = Fso.OpenTextFile(contadortxt,1,False)
'Leemos el archivo, y guardamos en la variable contador el valor que contiene el archivo
contador = FileRead.ReadLine
Set FileWrite = Fso.OpenTextFile(contadortxt,2,false)
'Aumentamos el contador y escribimos el nuevo resultado en el archivo
contador = contador + 1
FileWrite.WriteLine (contador)
'Cerramos los objetos y conexión
FileWrite.Close
FileRead.Close
Set FileWrite = Nothing
Set FileRead = Nothing
Set Fso = Nothing
%>
<p align="center"><font face="verdana" size="2">Visitante Nº<br><%=contador%></font></p>