Errore di run-time di Microsoft VBScript error '800a003e'

[luigi.84]

<%
Set fs = CreateObject("Scripting.FileSystemObject")
Path = Server.MapPath("/Dbase/conteggio.txt")
Set a = fs.OpenTextFile(path)
conta_visite = a.ReadLine   
If Session("conta") = "" then
 Session("conta") = conta
 conta = conta + 1
 a.close
 Set a = fs.CreateTextFile(path, True)
 a.WriteLine(conta)
 End If
 a.close
%>

questo codice mi da errore alla riga 5 (quella in rosso), fino a ieri ha sempre funzionato, mi sapete dire il perchè?

edit: cercando nel forum l'unico post con lo stesso mio errore (e lo stesso codice) la soluzione che è stata data con me non funziona

[willybit]

Ciao luigi.84,

secondo me il file conteggio.txt è vuoto... prima di leggere la riga controlla che esista

if not a.AtEndOfStream then
  conta_visite = a.ReadLine   
end if

il resto del codice non mi pare abbia tanto senso... ma sicuramente ci sarà altro codice

[luigi.84]

ho appena controllato il file conteggio.txt ed in effetti è vuoto...anche se non mi spiego come mai, aggingendo il codice che mi hai dato funziona, ma i dati vecchi sono persi

[willybit]

non so cosa vuoi fare tu... però in quel codice apri un file leggi una riga e poi sovrascrivi il file con la variabile conta (sempre 1)

[luigi.84]

bhè in effetti ne il sito ne il codice sono miei, aiutavo solo un amico, comuqnue come mi hai suggerito è tornato a contare...va bene così, grazie