recuperar imagen binaria

Saintel · #1 (**permalink**) 07/05/2004, 15:36

Hola amigos, bien la pregunta

tengo un campo en mi tabla que se llama filedata en este campo de tipo Objeto Ole guardo una imagen .jpg, pues bien yo la recupero de la base de datos por medio de la comando

response.binary

pero el problema es que me recupera la imagen desde la base de datos

ejemplo de la dirección en el navegador

file4/.asp?idfoto=3

eso esta bien el problema radica en la recuperación el me coloca la imagen en la esquina superior izquierda, pero lo que yo realmente quiero es poder ubicarla en una tabla o en cualquier lugar que yo quiera.

gracias.

la solución de colocar la imagen en una carpeta y luego hacer referencia del path de la misma no es viable para esta situación en vista que los usuarios tendrian que estar subiendo las imagenes via ftp en eso es lo que se quiere evitar.

Gracias de antemano

Saintel

blueicaro · #2 (**permalink**) 09/05/2004, 04:03

Hola, parece que el problema reside en donde estan las líneas que recuperan tu foto, osea si quieres que la imagen sea recuperada en medio de un tabla, pues crea la tabla en html, y en medio de las ordenes de creación, por tu códiho asp, entre los signos <% %>
De todos modos si muestras el código que usas para ello, quizas te pueda ayudar más

.
Saludos

Saintel · #3 (**permalink**) 10/05/2004, 07:12

Amigo Blueicaro este es el codigo que estoy usando, gracias por adelantado.

Saintel

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' -- file.asp --
' Retrieves binary files from the database

Response.Buffer = True

' ID of the file to retrieve
Dim ID
ID = Request("Idfoto")

If Len(ID) < 1 Then
ID = 7
End If

' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db/estaqui.mdb")

' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "select [FileData],[FileData1],[FileData2],[FileData3],[FileData4] from fotografias where Idfoto = " & _
ID, connStr, 2, 4

If Not rs.EOF Then
Response.BinaryWrite rs("FileData1")
End If

rs.Close
Set rs = Nothing

%>

blueicaro · #4 (**permalink**) 10/05/2004, 11:15

Hola, mira lo que he hecho.

Basicamente, he partido tu código, en tres cachos
la primera parte, la puse fuera del código HTML. la parte de mostrar la foto, la puse dentro de una tabla que declaré centrada. y el resto fuera del body. Miralo
Saludos
------------------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
' -- file.asp --
' Retrieves binary files from the database

Response.Buffer = True

' ID of the file to retrieve
Dim ID
ID = Request("Idfoto")

If Len(ID) < 1 Then
ID = 7
End If

' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db/estaqui.mdb")

' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "select [FileData],[FileData1],[FileData2],[FileData3],[Fi
leData4] from fotografias where Idfoto = " & _
ID, connStr, 2, 4

%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<table width="200" border="1" align="center">
<tr>
<th scope="col">
<% If Not rs.EOF Then
Response.BinaryWrite rs("FileData1")
End If
%>
</th>
</tr>
</table>
</body>
<%
rs.Close
Set rs = Nothing;
%>
</html>