Hola a todos.....
Voy directo al grano: Tengo almacenadas algunas imagenes en una BD de SQL, como datos binarios...ahora necesito recuperarlas y mostrarlas en el navegador.....
Estoy utilizando el siguiente código:
'Recordset Dim rs
Set rs =
Server.
CreateObject(
"ADODB.Recordset")
'abrimos la conexion
rs.
Open "select [foto],[tipo_img] from fotos where id_foto = " & ID, Con,
2,
4 If Not rs.
EOF Then Response.
ContentType = rs(
"tipo_img")
Response.
BinaryWrite rs(
"foto")
Else Response.
write (
"<b><font color='red'>")
Response.
write (
"ERROR:</font><br>No se ha ")
Response.
write (
"encontrado el fichero solicitado</b>")
End If
rs.
Close Set rs =
Nothing
en el campo "tipo_imagen" almaceno
image/gif. A la hora de correr ese código, muestra basura........EJ:
GIF89a¤y÷€€€€€€€€€€€€ÀÀÀÿÿÿÿÿÿÿÿÿÿÿÿ3f™Ìÿ3333f3™3Ì 3ÿff3fff™fÌfÿ™™3™f™™™Ì™ÿÌÌ3ÌfÌ™ÌÌÌÿÿÿ3ÿfÿ™ÿÌÿÿ3333 f3™3Ì3ÿ3333333f33™33Ì33ÿ3f3f33ff3f™3fÌ3fÿ3™3™33™f3 ™™3™Ì3™ÿ3Ì3Ì33Ìf3Ì™3ÌÌ3Ìÿ3ÿ3ÿ33ÿf3ÿ™3ÿÌ3ÿÿff3fff™f Ìfÿf3f33f3ff3™f3Ìf3ÿffff3fffff™ffÌffÿf™f™3f™ff™™f™ Ìf™ÿfÌfÌ3.
.
.
.
no se si lo estoy haciendo mal, agradecería su ayuda.....notaron que me esmeré en el código
