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
%>