Request.Form de un campo de texto con varias líneas
Hola,
Realicé un libro de vistas sencillo en ASP que tengo puesto en http://www.elladrillorojo.com/spereza. El problema que me surgió es que metiendo saltos de línea en dicho campo, éste no me los pilla y a la hora de hacer el Request.Form y meter los datos del campo en la base de datos no me sale como yo quisiera.
¿Me podríais dar alguna solución al problema?
Gracias por adelantado y un saludo
Realicé un libro de vistas sencillo en ASP que tengo puesto en http://www.elladrillorojo.com/spereza. El problema que me surgió es que metiendo saltos de línea en dicho campo, éste no me los pilla y a la hora de hacer el Request.Form y meter los datos del campo en la base de datos no me sale como yo quisiera.
¿Me podríais dar alguna solución al problema?
Gracias por adelantado y un saludo
A ver si esto te funciona. Supongo que te refieres a la casilla de comentarios, dónde la gente puede poner espacios en blanco, saltos de línea y de carro, etc. El problema no está en guardarlos en la base de datos, sinó en la salida html, lo que verá el usuario.
Imagínate que el campo de formulario dónde los usuarios escriben sus comentarios se llama MENSAJE. Cuando lo grabes en la bbdd lo guardas como MENSAJE, o como quieras, pero cuando lo quieras visualizar, en vez de poner <%=mensaje%> pones <%=AcomodarTXT(mensaje)%>. Al final de todo del script, copia esta rutina:
<%
Conn.Close
Set Conn = nothing
End If
Function AcomodarTXT(txt)
txt = Replace (txt, "<", "<")
txt = Replace (txt, ">", ">")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%>
En principio te tendría que funcionar. Ya me dirás. Ah, por cierto, te invito a visitar mi página http://www.ulises.com dónde podrás ver foros de discusión y mensajes de usuarios donde se aplica esta subrutina de funcion.
Un saludo
Imagínate que el campo de formulario dónde los usuarios escriben sus comentarios se llama MENSAJE. Cuando lo grabes en la bbdd lo guardas como MENSAJE, o como quieras, pero cuando lo quieras visualizar, en vez de poner <%=mensaje%> pones <%=AcomodarTXT(mensaje)%>. Al final de todo del script, copia esta rutina:
<%
Conn.Close
Set Conn = nothing
End If
Function AcomodarTXT(txt)
txt = Replace (txt, "<", "<")
txt = Replace (txt, ">", ">")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function
%>
En principio te tendría que funcionar. Ya me dirás. Ah, por cierto, te invito a visitar mi página http://www.ulises.com dónde podrás ver foros de discusión y mensajes de usuarios donde se aplica esta subrutina de funcion.
Un saludo