al enviar el texto contenido en un campo de texto de varias lineas de un formulario para guardarlo en una base de datos

14/10/2003 - 22:16 por Serindom | Informe spam
al enviar el texto contenido en un campo de texto de varias lineas de un formulario para guardarlo en una base de datos como memo,
que debo hacer para que se me conserven los saltos de linea,
tengo puesta esta funcion para guardar bien el texo pero no me funciona, se me guarda el texto sin los saltos de linea.

Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, " ", "&nbsp;")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function

Preguntas similare

Leer las respuestas

#1 Serindom
14/10/2003 - 22:22 | Informe spam
solucionado
lo tenia mal situado el momento de utilizar la funcion

"Serindom" escribió en el mensaje news:bmhli0$mfk5f$
al enviar el texto contenido en un campo de texto de varias lineas de un formulario para guardarlo en una base de datos como memo,
que debo hacer para que se me conserven los saltos de linea,
tengo puesta esta funcion para guardar bien el texo pero no me funciona, se me guarda el texto sin los saltos de linea.

Function AcomodarTXT(txt)
txt = Replace (txt, "<", "&lt;")
txt = Replace (txt, ">", "&gt;")
txt = Replace (txt, vbCrLf, "<BR>")
txt = Replace (txt, " ", "&nbsp;")
txt = Replace (txt, "''", "'")
acomodarTXT = txt
End function




Respuesta Responder a este mensaje
#2 Dani Castillo
15/10/2003 - 08:38 | Informe spam
oks ya veo q has encontrao el fallo =)
solo una cosa, en lugar de los replaces(txt,"<" y "<" puedes usar el
server.htmlencode, es mas practico
te quedaria mas o menos
txt=replace(server.htmlencode(txt),vbcrlf,"<br>" )

"Serindom" escribió en el mensaje
news:bmhlt4$mhp3i$
solucionado
lo tenia mal situado el momento de utilizar la funcion

"Serindom" escribió en el mensaje


news:bmhli0$mfk5f$
> al enviar el texto contenido en un campo de texto de varias lineas de un


formulario para guardarlo en una base de datos como memo,
> que debo hacer para que se me conserven los saltos de linea,
> tengo puesta esta funcion para guardar bien el texo pero no me funciona,


se me guarda el texto sin los saltos de linea.
>
> Function AcomodarTXT(txt)
> txt = Replace (txt, "<", "&lt;")
> txt = Replace (txt, ">", "&gt;")
> txt = Replace (txt, vbCrLf, "<BR>")
> txt = Replace (txt, " ", "&nbsp;")
> txt = Replace (txt, "''", "'")
> acomodarTXT = txt
> End function
>
>
>
>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida