Libro de Visitas

[ficus]

Este sería el código de la página que abre el libro de visita, no se si te servirá para ver el error.
<%
Function convertir(s)
s = Replace(s, chr(10), "<BR>")

s = Replace(s, "<", "<")
s = Replace(s, ">", ">")
convertir = s
End Function
Set ObjetoArchivo = Server.CreateObject("Scripting.FileSystemObje ct")
Set ArchivoTexto = ObjetoArchivo.OpenTextFile(Server.MapPath("Gu estbook.txt"))


WHILE NOT ArchivoTexto.AtEndOfStream

linea = ArchivoTexto.ReadLine
Response.Write("Fecha: " & convertir(Linea) & "<BR>")

linea = ArchivoTexto.ReadLine
Response.Write("Nombre: " & convertir(Linea) & "<BR>")

Linea = ArchivoTexto.ReadLine
email = convertir(Linea)
If email<>"" Then
Response.Write "e-mail: "
Response.Write "<A HREF='mailto:" & email & "'>"
Response.Write email & "</A><BR>"
Else
Response.Write "sin e-mail<BR>"
End If

Linea = ArchivoTexto.ReadLine
URL = convertir(Linea)
If URL<>"" Then
Response.Write "Pagina Web: "
Response.Write "<A HREF='" & URL & "' TARGET='_blank'>"
Response.Write URL & "</A><BR>"
Else
Response.Write "sin pagina web<BR>"
End If

Do
Linea = ArchivoTexto.ReadLine
If Linea = "<!-- FIN -->" Then
Exit Do
End If
Response.Write convertir(Linea) & "<BR>"
Loop
Response.Write "<HR>"
WEND
ArchivoTexto.Close
%>
El error que me da es que el código pasa olimpicamente del ArchivoTexto.AtEndOfStream empleado al inicio, y no se porqué.No recuerdo el mensaje que salía, pero va por ahí.