'CONTINUO AQUI JE JE :P
'================================================= ==========================================
Sub Guardar
'Guarda un nuevo comentario en el libro
Dim nombre, mail, mensaje, fecha, archivo, f
fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now())
'Con Trim eliminamos los espacios en blanco a la derecha y a la izquierda
nombre=Trim(CStr(Request.Form("nombre")) )
mail=CStr(Request.Form("mail"))
mensaje=CStr(Request.Form("mensaje"))
' No queremos comentarios anónimos o vacíos
if nombre <> "" and mensaje <>"" then
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )
'Abro el archivo como un flujo de texto; 8: ForAppending, añadimos al final
set f=archivo.OpenAsTextStream(8)
f.WriteLine("<hr noshade>")
f.WriteLine("<b>"&nombre&& quot; ("&mail&")</b> escribió el "&fecha&":<br>")
f.WriteLine(mensaje)
'Cierro el fichero
f.Close
set f=nothing
set archivo=nothing
Response.Write("<small>Se ha añadido con éxito tu comentario</small>")
end if
End Sub 'Guardar
'================================================= ==========================================
Sub MostrarFormulario
' Presenta el formulario para añadir un comentario al libro
%>
<br><br><br><hr size=2>
<TABLE BORDER="1" ALIGN="center">
<FORM NAME="Libro" METHOD="post" ACTION="librovisitas.asp?a=guardar">
<TR>
<TD>Tu nombre:</TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="nombre"></TD>
<TR>
<TD>Email (opcional):</TD>
<TD><INPUT TYPE="text" SIZE="20" NAME="mail"></TD>
<TR>
<TD>Mensaje:</TD>
<TD><TEXTAREA ROWS="5" COLS="30" WRAP="virtual" NAME="mensaje"></TEXTAREA></TD>
<TR>
<TD COLSPAN="2">
<center><INPUT TYPE="submit" VALUE="Escribir"><INPUT TYPE="reset" VALUE="Limpiar">
</TD>
</TABLE>
</FORM>
<%
End Sub 'MostrarFormulario
' Libro de visitas por Carlos de la Orden Dijs Octubre 2000
' Usalo para lo que quieras! ;)
%>
AYUDENME
