Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/07/2005, 12:44
Avatar de the_LiZaRd_
the_LiZaRd_
 
Fecha de Ingreso: noviembre-2003
Ubicación: Lima
Mensajes: 102
Antigüedad: 21 años, 5 meses
Puntos: 0
Visualizar Imagenes Binarios DB - Codigo raro

Ave si me dan una ayudadita
Quiero visualizar una tabla de productos cada unos con sus respectivos datos los datos del producto estan en una tabla y la imagen binaria esta en otra tabla asi ke quiero enlazar estos 2 . el enlaze esta listo y bien,pero al kerer visualizar la imagen en la misma imprecion me sale un codigo llenos de datos raro.
Que puede ser ?
Gracais
Les dejo mi CODIGO


rsProdInfo("productImg") pertecene a un recorset de otra tabla donde tiene el ID

<% dim ID
ID = rsProdInfo("productImg")If Len(ID) < 1 Then
ID = 7
End If

%>
<% dim rsimagen
Set rsimagen = Server.CreateObject("ADODB.Recordset")

' opening connection
rsimagen.Open "select * from Files where ID = " & _
ID, conn, 2, 4

If Not rsimagen.EOF Then

While Not rsimagen.EOF


Response.ContentType = rsimagen("Content Type")
Response.BinaryWrite rsimagen("File Data")


rsimagen.MoveNext
Wend
Else
Response "No Record Found"
End If


%>