Insertar Imagen en DB

[tasecito]

Buenas tardes,

Tengo el siguiente problema y es que tengo que insertar una imagen en una base de datos (tipo BLOB) nada de rutas, la imagen.

La base de datos SQL.

Mediante un form recojo los valores del producto a updatear la imagen y el nombre del fichero pero no encuentro nada para convertir este fichero a binario para insertarlo.
Por favor os agradecería cualquier ayuda.

Gracias

[Muzztein]

las bases de datos no son ficheros.
pero si insistes.

http://www.aspupload.com/manual_db.html

[tasecito]

Ok.

He probado con:
Set Upload = Server.CreateObject("Persits.Upload")

' Limitar tamaño
Upload.SetMaxSize 52428800, True
' Protección por si no envía nada
Upload.IgnoreNoPost=True


set fichero = Upload.form("upfichero")
codprod = Upload.form("producto")

' Obtener el objeto
Set File = Upload.Files(fichero)
Set rs = Server.CreateObject("adodb.recordset")
sql = "select * from articulos where codarticulo='"& codprod &"'"
rs.Open sql, conn, 2, 3
rs.Close
response.Write(sql)

' Reabrimos recordset para subir archivo
rs.Open "articulos", conn, 2, 3
rs.AddNew
rs("foto") = File.Binary
rs.Update

Pero tengo que poner enctype="multipart/form-data" en el form y ahora no me recoge los valores que rescato del formulario mediante:
set fichero = Upload.form("upfichero")
codprod = Upload.form("producto")

Por favor que hago mal?

[Muzztein]

aps.. es que (segun yo) debes hacerlo por separado.

un form para los datos, los cuales se graban rapidamente
y otro form con SOLO la imagen, la cual puede tardar mucho e incluso caerse.

[tasecito]

El problema es que para montar la sentencia sql para updatear el campo de foto necesito el valor de a que producto lo hago.

Se pueden hacer dos forms con diferente name que ataquen en el action al mismo asp sin morir en el intento?
Si fuera posible, como hago referencia a cada form?

[JuanRAPerez]

ummmmm

El problema es que para montar la sentencia sql para updatear el campo de foto necesito el valor de a que producto lo hago.

+ inserta el formulario basico como dice Muzztein
+ obten el id que acabas de insertar
+ redirecciona al formulario de subir la foto
+ sube la foto y actualiza con base a el id que enviastes en la redireccion

suerte

[u_goldman]

¿Puedes mostrar tu formulario?

A mi se me hace que no estás recogiendo adecuadamente los campos, en teoría no deberías tener ningún problema en recibir la fotografía y los datos de un mismo formulario en tanto el componente lo permita (como es el caso del que estás usando).

Saludos

[tasecito]

Allá va el código del form:

<form name="frmUploadImg" method="post" action="a_uploadimage.asp" onSubmit="javascript: return frmCheck();" enctype="multipart/form-data">

<input type="hidden" name="producto" value="<%=valor%>">
<table align="center" border="0" cellpadding="1" cellspacing="1" width="100%">

<tr>
<td>
<table align="center" border="0" cellpadding="1" cellspacing="1" width="100%">
<tr><td colspan="4" class="tdCabecera1" style="border-bottom: solid 2px #000000;">UPLOAD IMAGEN</td></tr>
<tr>
<td width="9%" height="61" class="tdCabecera4">Fichero</td>
<td><input type="file" name="upfichero" size="30"></td>
</tr>
<tr><td colspan="20">&nbsp;</td></tr>
<tr>
<td align="center" colspan="4">
<input type="submit" value="Aceptar">&nbsp;&nbsp;&nbsp;
<input type="button" value="Volver" onClick="javascript: location.href='i_webimagelst.asp';">&nbsp;&nbsp;&n bsp;
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>

[tasecito]

Hola,

He conseguido que me recoja los valores del formulario pero no me sube el fichero, me podriais decir que está mal en el codigo por favor?

Set Upload = Server.CreateObject("Persits.Upload")

' Limite
Upload.SetMaxSize 52428800, True
Count = Upload.Save

' Protección por si no envía nada
Upload.IgnoreNoPost=True

codprod = Upload.form("producto")

' Obtener el objeto
Set fichero = Upload.Files("upfichero")
'Conexion DB
Set rs = Server.CreateObject("adodb.recordset")
sql = "select * from articulos where codarticulo='"& codprod &"'"
rs.Open sql, conn, 1, 1
rs.Close
response.Write(sql)
' Reabrimos recordset para subir archivo
rs.Open "articulos", conn, 2, 3
'rs.AddNew
rs("foto") = fichero.Binary
rs.Update