Libro de Visitas

[ficus]

He probado el siguiente código pero al abrir el libro no encuentra el final del archivo. Como veis primero leo todo el contenido del archivo de golpe y lo guardo en una variable "todo"
Despues sobreescribo el archivo con el nuevo registro primero seguido de todo el contenido anterior. Funciona al escribir, pero luego al querer leer linea a linea da error.
<%
If Request.Form("Button") = "Guardar" Then
Set ObjetoArchivo = Server.CreateObject("Scripting.FileSystemObje ct")
Set ArchivoTexto = ObjetoArchivo.OpenTextFile(Server.MapPath("Gu estbook.txt"),1)

Set todo=ArchivoTexto.ReadAll


Set ObjetoArchivo = Server.CreateObject("Scripting.FileSystemObje ct")
Set ArchivoTexto = ObjetoArchivo.OpenTextFile(Server.MapPath("Gu estbook.txt"),2)

ArchivoTexto.WriteLine Date()
ArchivoTexto.WriteLine(Request.Form("Nombre&q uot;))
ArchivoTexto.WriteLine(Request.Form("email&qu ot;))
ArchivoTexto.WriteLine(Request.Form("URL&quot ;))
ArchivoTexto.WriteLine(Request.Form("texto&qu ot;))
ArchivoTexto.WriteLine("<!-- FIN -->")
ArchivoTexto.WriteLine todo
ArchivoTexto.Close
Application.Unlock
Response.Redirect "mostrarlibro.asp"
End If
%>