Input oltre la fine del file

[[trodat]]

Ciao.

Ho questo codice:

Contatore = 1
Data_Creazione = Day(Date()) & " / " & Month(Date()) & " / " & Year(Date())

Locazione = "count/contatore.txt"

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

If FSO.FileExists(Server.MapPath(Locazione)) Then

Set Leggi = FSO.OpenTextFile(Server.MapPath(Locazione))
Contatore = CInt(Leggi.ReadLine) +1
Data_Creazione = Leggi.ReadLine
Leggi.Close
Set Leggi = Nothing

End if

Set Aggiorna = FSO.CreateTextFile(Server.MapPath(Locazione))
Aggiorna.WriteLine(Contatore)
Aggiorna.WriteLine(Data_Creazione)

Aggiorna.Close
Set Aggiorna = Nothing
Set FSO = Nothing

Perchè restituisce:

Error Type:
Microsoft VBScript runtime (0x800A003E)
Input oltre la fine del file.

su questa riga:

Data_Creazione = Leggi.ReadLine