Por que tengo este error en el contador

[juanmi321]

Gracias a todos de antemano.

Tengo una pagina en donde meti un contador que utiliza un archivo txt.
El codigo es el siguiente.

<%
'primero indicamos el path virtual donde se localiza el archivo
fp = Server.MapPath("contador.txt")
'Creamos el objeto FileSystem que es con el cual vamos a pòder accesar el archivo
Set fs = CreateObject("Scripting.FileSystemObject")
'Abrimos el archivo
Set a = fs.OpenTextFile(fp)
'Leemos el archivo
ct = Clng(a.ReadLine)
'Checamos si existe la variable de sesion "ct" si no existe la crea. Le aumenta el valor a la variable
if Session("ct") = "" then
Session("ct") = ct
ct = ct + 1
'Escribimos y guardamos el archivo el archivo
'Cerramos el archivo
a.close
'Abrimos el archivo para grabarlo
Set a = fs.CreateTextFile(fp, True)
a.WriteLine(ct)
end if
'Cerramos el archivo
a.Close
'Mostramos el contador
Response.Write ct
%>

Y me funciona bien solo unos instantes y ya despues me manda este error:

Microsoft VBScript
runtime error '800a003e'

Input past end of file

Alguien me puede decir como arreglo esto, o me podrian sugerir alguna forma de realizar el contador, gracias

[juanmi321]

Alguien ayudeme con mi duda por favor

[u_goldman]

En qué linea te manda el error?
Este error como sea es de que se pasa de la línea que puede leer, es como un EOF (End Of File) trata de utilizar cuando lees y asignas la línea, la propiedad AtEndOfStream

If NOT Objeto.AtEndOfStream
'ejecutas
Else
'no ejecutas
End If

Este código que llamas está dentro de un Loop?


Salu2,

[u_goldman]

Estaba viendo bien el código y cuando incrementas la variable, creas el archivo y escribes, estás escribiendo una línea(writeLine) probablemente te está escribiendo un vbCrLf por eso que te da ese desbordamiento, trata primero en lugar de escribir una línea, escribir sobre el archivo (objeto.Write)

Salu2,

[juanmi321]

Gracias u_goldman.

Mira la linea donde me manda el error es esta.

ct = Clng(a.ReadLine)

he estudaido por que el error, y lo que pasa es que como te comentaba, al principio me lee bien y me escribe bien incrementando la variable, pero despues de mandarme ese error es por que vacia el archivo de texto, osea en algun momento ya no escribio, solo vacio el contenido.

Y pues la verdad se me dificulta mucho por que no le entiendo muy bien a ese codigo, pues el compañero que implemento el codigo ya no esta.

Se puede que me ayudes con esto, o tienes otra forma mas facil de hacer el contador?

Gracias.

[u_goldman]

Bueno, hice unas pruebas con tu mismo código y anda bien, no se que otras cosas tengas en ese código, por eso te preguntaba si estaba en un Loop, por principio de cuentas cambia como te dije, en lugar de utilizar el método writLine, solo pon write:

'Abrimos el archivo para grabarlo
Set a = fs.CreateTextFile(fp, True)
a.Write(ct)
end if


Prueba así y nos cuentas

[juanmi321]

Pues ahorita, ya esta jalando bien, si en un futuro vuelve a descomponerse te aviso, sale?

Gracias.

Solo que ahora tarda mucho en abrir la pagina.