<script languaje="javascript">
function firmar(){document.miform.submit()}
</script>
<%
'variables obtenidas del form
nombre = request.querystring("name")
comentario = request.querystring("comment")
'ruta del archivo de datos .txt
ruta_file = Server.MapPath("asp_guestbook/guestbook.txt")
'especifica si existe o no el archivo
Set objfso = CreateObject("Scripting.FileSystemObject")
If (objfso.FileExists(ruta_file)) Then
existe=true
Else
existe=false
End If
%>
<table border="0" width="*" align="center">
<tr><td colspan=2 bgcolor="#C0C0C0" align="center" align="center"><b>[Libro de Visitas]</b></td></tr>
<%
'si no hay nombre
if nombre = "" then
%>
<form name="miform" action="asp_guestbook.asp">
<tr>
<td bgcolor="#ECECEC"><b>Nombre:</b></td>
<td bgcolor="#ECECEC"><input type="text" name="name" size="30" class="form"></td>
</tr>
<tr>
<td bgcolor="#ECECEC"><b>Comentario:</b></td>
<td bgcolor="#ECECEC"><textarea name="comment" cols="30" rows="5" wrap="virtual" class="form"></textarea></td>
</tr>
<tr>
<td colspan=2 bgcolor="#C0C0C0" align="center"><a href="javascript:firmar();"><b>FIRMAR</b></a></td>
</tr>
</form>
<tr><td> </td></tr>
<tr>
<td colspan=2 bgcolor="#C0C0C0" align="center" align="center"><b>[Comentarios]</b></td>
</tr>
<%
'si existe el archivo lo lee
if existe = true then
Set myfile = objfso.OpenTextFile(ruta_file, 1)
'recorre el archivo hasta el final
do while myfile.AtEndOfStream <> True
linea = myfile.ReadLine
'si el archivo tiene apuestas
if int(instr(1,linea,":",0)) > 0 then
'obtiene el nombre
res_nom = left(linea,(instr(1,linea,":",0)-1))
'obtiene el comentario
res_com = mid(linea,(instr(1,linea,":",0)+1),len(linea))
%>
<tr>
<td bgcolor="#ECECEC" align="center"><b><%= res_nom %></b></td>
<td bgcolor="#ECECEC" align="center"><b><%= res_com %></b></td>
</tr>
<%
end if
loop
end if
'si hay nombre
Else
Set objFile = objfso.OpenTextFile(ruta_file, 8, True)
objFile.WriteLine nombre +":"+ comentario
objFile.Close
%>
<tr>
<td colspan=2 bgcolor="#ECECEC" align="center">El comentario se ha añadido <b>correctamente</b>.</td>
</tr>
<tr>
<td bgcolor="#ECECEC" align="center"><b><%= nombre %></b></td>
<td bgcolor="#ECECEC" align="center"><%= comentario %></td>
</tr>
<tr>
<td colspan=2 bgcolor="#C0C0C0" align="center"><a href="asp_guestbook.asp"><b>VOLVER</b></a></td>
</tr>
<% End If %>
Microsoft explorer 6.0 
