XELUPLOAD y salto de linea

[evilte]

Hola gente, busque pero no encontre nada referido al tema de poder agregar salto de linea, xelupload me funciona perfecto solo me faltaria poder agregar en un campo memo que tengo los salto de lineas, alguien sabra como hacerlo?

muchas gracias

Eduardo

[Muzztein]

a que te refieres con agregas LOS SALTOS DE LINEA?

podrias explicar un poco mejor tu problema?

[evilte]

Hola Muzttein, estoy usando xpupload y tengo un campo memo donde guardo descripcion del producto todo funciona bien lo carga todo ok, pero no me respeta los saltos de linea pongo el codigo. muchas gracias
<%
Dim objUpload, objFich, strNombreFichero
Dim strarticulo, strcodigo, strdescripcion, strprecio, strnovedades

Function txt2htm(descripcion)
txt2htm = descripcion
txt2htm = Replace(txt2htm, VBCrLf, "<br>" & VBCrLf)
End Function


'Creamos el objeto
set objUpload = new xelUpload

'Recibimos el formulario
objUpload.Upload()

'Mostramos total de ficheros recibidos
Response.Write ( objUpload.Ficheros.Count & " ficheros recibidos.")

'Mostramos los campos del formulario de texto:
Response.Write ("<p>Articulos :" & objUpload.Form("articulo") & "<br>")
Response.Write ("<p>Codigo :" & objUpload.Form("codigo") & "<br>")
Response.Write ("<p>Descripcion :" & objUpload.Form("descripcion") & "<br>")
Response.Write ("<p>Precio :" & objUpload.Form("precio") & "<br>")
Response.Write ("<p>Novedades :" & objUpload.Form("novedades") & "<br>")


'Y ahora mostramos los datos del fichero enviado:
'Lo sacamos a una variable por comodidad
set objFich = objUpload.Ficheros("fichero")

Response.Write ("Foto : " & objFich.Nombre & "<br>")
Response.Write("Tamaño : " & objFich.Tamano & "<br>")
Response.Write("Tipo de contenido : " & objFich.TipoContenido & "</p>")

'Guardamos el fichero, con su nombre, en el directorio
'en el que se encuentra esta página

objFich.Guardar(Server.MapPath("."))

'Y guardamos una copia, con nombre "subido.bin"

'objFich.GuardarComo "subido.bin", Server.MapPath("./public_html")

'Abrimos una conexión a una base de datos
Dim oConn, rs, SQL

set oConn = Server.CreateObject("ADODB.Connection")


'Nos conectamos con un DSN
oConn.ConnectionString = MM_Conex1_STRING
'"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath( "texsur.mdb" )

oConn.Open

set rs = Server.CreateObject("ADODB.Recordset")



'Y abrimos la tabla Datos
SQL = "SELECT * FROM Articulos"

'Abrimos el Recordset con cerrojo 2 (adLockPessimiestic)
'que permite modificaciones

rs.Open SQL, oConn, 0, 2

'Añadimos un nuevo registro
rs.AddNew

rs.Fields("articulo") = objUpload.Form("articulo")
rs.Fields("codigo") = objUpload.Form("codigo")
rs.Fields("tipo_articulo") = objUpload.Form("tarticulo")
rs.Fields("descripcion") = objUpload.Form("txt2htm")
rs.Fields("precio") = objUpload.Form("precio")
rs.Fields("novedades") = objUpload.Form("novedades")

'Guardamos el contenido del fichero en la base de datos:
'el nombre del fichero, su tipo
rs.Fields("foto") = objFich.Nombre
rs.Fields("contenido") = objFich.TipoContenido
'y los datos binarios
'objFich.GuardarBD rs.Fields("datos")

rs.Update
rs.Close

Response.Write("Articulo guardado en base de datos.")

'Limpiamos objetos
set oFich = nothing
set objUpload = nothing
'rs.Close
set rs = nothing
oConn.Close
set oConn = nothing

%>

[Adler]

Hola

Prueba con esto

Código asp:

Function txt2htm(descripcion)
str = Server.HTMLEncode(descripcion)
str = Replace(str, vbCrLf, "<br />" & vbCrLf, 1, -1, 1)    
End Function
 

Uso

Código asp:

Response.Write ("<p>Descripcion :" & txt2htm(objUpload.Form("descripcion")) & "<br>")
 

Suerte

[evilte]

ahora pruebo muchas gracias Adler

[evilte]

Adler vamos avanzando jeje, te comento cuando doy un salto de linea (enter) en la base guarda pero con un espacio por eje
salto de linea.
nuevo salto.
lo guarda en la base : salto de linea. nuevo salto no junto como antes salto de linea.nuevo salto,
espero entiendas, sigo probando escucho sugerencia, muchas gracias Adler.

[Adler]

Hola

Iniciado por evilte

lo guarda en la base : salto de linea. nuevo salto no junto como antes salto de linea.nuevo salto

Lo siento, pero no entiendo a que te refieres con que lo guarda separados

[evilte]

Hola, lo que hace es dejar un espacio no agrega "<br/>", cuando estas en el formulario y das enter para el salto de linea no agrega "br/" en cambio lo que hace es un espacio, intente varias cosas pero sin resultado, ojala me entiendas, gracias

[Adler]

Hola

No se que decirte. Algo que está claro es que los saltos de linea los tiene que recoger. Creo que trabajas en access, así que podrías hacer una prueba. Introduce un texto como este el campo, a ver que ocurre

texto de prueba<br>
texto de prueba

Si con esta cadena funciona, entonces creo que el problema puede estar en el archivo xelupload

Suerte

[evilte]

intente pero nada, bueno sigo buscando alguna manera de poder hacerl osi se te ocurre algo postealo por favor , muchas gracias Adler por tu ayuda.

[Adler]

Hola

¿No ha resultado?

¿Has introducido esa cadena, en el campo de la bd donde recoges el texto que es insertado desde el form?

[evilte]

lo hice y sale el salto de forma manual obviamente en el formulario te parece si te doy el vinculo para que veas el resultado? gracias Adler

[Adler]

Claro, postealo

[evilte]

te lo mande por privado, hice bien? cualquier cosa colocamos el resultado correcto por si necesita otra persona

[Adler]

Hola

Prueba a antes de insertar la cadena en la bd, pasalé la función que te expuse en anteriores post

Suerte

[evilte]

Hola Adler no hay caso, estuve buscando otra opcion y encontre fckeditor lo estoy modificando para lo que necesito, muchas gracias por tu tiempo