Amiga(o), no esta dificil modificar eso, solo que no veo conexion a Base de datos, y me parece que solamente despliega lo que tu metes, pero ahi va la modoficacion:
<%
Dim nombre, site
'Recogemos los campos del formulario
'Trim(cadena) elimina los espacios que pueda haber a derecha e izquiera
'CStr (expresion) fuerza a que sea un cadena de texto
nombre=CStr( Trim( Request.Form("Nombre") ) )
site=CStr( Trim( Request.Form("Site") ) )
comentario=CStr( Trim( Request.Form("comentario") ) )
'Si no han enviado nada, mostramos el formulario
if Len(nombre) = 0 then
%>
<FORM NAME="Ejemplo" METHOD="post" ACTION="form.asp">
<TABLE BORDER="1" WIDTH="50%">
<TR>
<TD><b>Nombre:</b></TD><TD><INPUT TYPE="text" NAME="Nombre"></TD>
<TR>
<TD><b>Site favorito:</b></TD><TD><INPUT TYPE="text" NAME="Site"></TD>
<TR>
<TR>
<TD><b>comentario:</b></TD><TD<textarea name="comentario" cols="40" rows="4"></textarea></TD>
<TR>
<TD><INPUT TYPE="submit"></TD><TD><INPUT TYPE="reset"></TD>
</TABLE>
</FORM>
<%
'en otro caso, imprimimos los valores introducidos
else
Response.Write("Nombre: "&nombre&"<br>"&VbCrLf)
Response.Write("Site: "&site&"<br>"&VbCrLf)
Response.Write("Site: "&comentario&"<br>"&VbCrLf)
end if
%>
Ahhh, pero recuerda.... SIN SACRIFICIO NO HAY TRIUNFO!
.................................... SIN ESFUERZO NO HAY SACRIFICIO!
