Problemas de fim de limites

Caros colegas estou aki mais uma vez solicitando ajuda aos papas da programação

Meu erro é:

>
Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A003E)

Final do arquivo ultrapassado

/emailana3.asp, line 12

Codigo:

ASP

[*]<!--c1--><div class='codetop'>CODE</div><div class='codemain'><!--ec1-->

[*]

[*]<%@ LANGUAGE="VBSCRIPT" %>

[*]

[*]<%

[*]response.expires=0

[*]response.buffer=true

[*]

[*]Dim fmensagem, o

[*]

[*]set file = Server.CreateObject("Scripting.FileSystemObject")

[*]path = Server.MapPath("quantidadeANA.txt")

[*]set infile = file.OpenTextFile( path )

[*]fquantidade = infile.ReadLine

[*]infile.close

[*]fquantidade=fquantidade+1

[*]set outfile = file.CreateTextFile( path, True )

[*]outfile.WriteLine(fquantidade)

[*]outfile.Close

[*]

[*]

[*]<!--c2--></div><!--ec2-->