Insertar Imagen en DB

[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