Objetos OLE y ASP

thalx · #1 (**permalink**) 19/02/2007, 10:16

Hola amigos veran tengo un problema la cosa es que me trajeron una base de datos con imagenes almacenadas dentro de ellas como "Objetos OLE" y lo que necesito hacer es mostrar estas imagenes, la Base de Datos esta en Access y espero me puedan ayudar cabe mensionar que soy nuevo en ASP pero eso no importa lo que tenga que hacer lo hare....jejeje bueno sin mas por el momento les agradezco de antemano y mil gracias.....

tammander · #2 (**permalink**) 19/02/2007, 10:23

' Primero, elimina cialquier referencia HTML de la pagina
<%
' Indica el tipo de contenido
response.ContentType = "image/jpg"

' Haces la conexion con el objeto, por ejemplo, rs
' y luego usa BinaryWrite en vez de Write:

response.BinaryWrite(rs("foto"))

%>

Un saludo

thalx · #3 (**permalink**) 20/02/2007, 09:21

Hola tammander gracias por tu respuesta la cabo de ver ya que ayer estube un tento ocupado ya hice lo que me dices arriba pero ahora me manda este mensaje observa:

Response object error 'ASP 0106 : 80004005'

Type Mismatch

/index.asp, line 21

An unhandled data type was encountered

Este es el codigo que utilizo:

<%
Dim sql, oConn, RS
sql = "SELECT * FROM FD WHERE( paterno = 'COSME' and materno = 'ZAPATA' and nombre = 'SERGIO')"
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=E:\wamp\www\Access\tabla.mdb"
RS.Open sql, oConn, 1
Do While not RS.EOF
Response.BinaryWrite(RS("frente"))
Response.Write RS.Fields("paterno")
Response.Write RS.Fields("materno")
Response.Write RS.Fields("nombre")

RS.MoveNext
Loop
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>

No se si algo hice mal o es que no se pueda jejeje si de favor me pueden ayudar mil gracias...........

tammander · #4 (**permalink**) 20/02/2007, 09:37

Has intentado mezclar peras y manzanas

Cuando especificas que tipo de dato va a ser visualizado por el navegador (el ContentType) y le dices que va a ser de tipo image/jpeg no escribas texto.

Te recomiendo que uses una página solo para imagenes y la otra para datos:

imagen.asp

Código:

<%
response.ContentType = "image/jpg"
Dim sql, oConn, RS
sql = "SELECT frente FROM FD WHERE id = " & request("id")
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=E:\wamp\www\Access\tabla.mdb"
RS.Open sql, oConn, 1
if not RS.EOF then Response.BinaryWrite(RS("frente"))
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>

Y en otra página:

pagina.asp

Código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<body>
 
<%
Dim sql, oConn, RS
sql = "SELECT * FROM FD WHERE( paterno = 'COSME' and materno = 'ZAPATA' and nombre = 'SERGIO')"
Set oConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=E:\wamp\www\Access\tabla.mdb"
RS.Open sql, oConn, 1
Do While not RS.EOF
response.Write "<img src='imagen.asp?id=" & RS.Fields("id") & "' />"
Response.Write RS.Fields("paterno")
Response.Write RS.Fields("materno")
Response.Write RS.Fields("nombre")
 
RS.MoveNext
Loop
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
%>
 
</body>
</html>

Suponiendo que tengas un campo id, en todo caso el que utilizes como clave primaria o sea unico

Un saludo

thalx · #5 (**permalink**) 20/02/2007, 10:35

Hola tammander gracias por el comentario de las peras y las manzanas jejejeje

intentare lo que me dices gracias.....salu2

tammander · #6 (**permalink**) 20/02/2007, 10:37

Si, pero entiende el código: realmente lo que estas haciendo es utilizar una página asp como si fuera una imagen

Un saludo

carolina · #7 (**permalink**) 20/02/2007, 10:51

Yo tengo casi el mismo problema, hace poco lo coloque en el foro pero todavia no logro resolverlo:

http://www.forosdelweb.com/f15/exportar-imagen-excel-465039/