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
