Por que no muestra la imágen???

[jgonzale]

A ver tengo un archivo "foto.asp" que debería mostrar una imágen que se encuentra en una base de datos (la imágen y no la dirección de la imágen).

el archivo la intenta mostrar, porque hasta me la delimita sin yo decirle de que tamaño es, pero no la muestra.

Por favor miren este link y veran a lo ue me refiero:

<a href='ir.asp?http://www.centroabastos.com.co/prb/locales1/foto.asp?id=1' target='_blank'>http://www.centroabastos.com.co/prb/loca...</a>

www.centroabastos.com.co/prb/locales1/foto.asp?id=1

El código del archivo foto.asp es el siguiente:

&lt;%
response.Expires = 0
response.Buffer = True
response.Clear

Dim oConn, rs, SQL
set oConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
oConn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&quot; &amp; Server.MapPath(&quot;usuarios.mdb&quot;)
SQL = &quot;SELECT usufottip, usufot FROM usuarios where id = &quot; &amp; request.querystring(&quot;id&quot;)
rs.Open SQL, oConn

response.ContentType = rs.fields(&quot;usufottip&quot;)
response.binarywrite rs.Fields(&quot;usufot&quot;)

rs.Close
oConn.Close
set rs = nothing
set oConn = nothing
%&gt;

La foto la subo por el xelupload, y capturo el content/Type.

Si alguien sabe que sucede, agradecería me lo hicieran saber.



Jean Joel

[jgonzale]

Muchachos, en serio, nadie sabe?

Ya busqué en las faqs, y nada, n mensajes anteriores, he encontrado algo, pero según eso, tengo el código bien, entonces porqué no funciona?

No se si hay que quitar parte de código binario (del archivo guardado en la BD), y si es así cuantos bytes y de donde (al principio o al final o en medio)?



Jean Joel

[juanangt]

Prueba esta página, creo que es lo que estás buscando.

http://www.asptutor.com/asp/vart.asp?id=129

[jgonzale]

A ver, estuve mirando la página, y realmente puedo ver que es el mismo código; ahora mi pregunta es: ´¿Por que no se muestra la imágen?.

Lo mas raro, es que si yo le doy en el explorador, guragar pagina, el me guarda la foto en mi equipo local, y al abrirla localmente, si abre. ¿¿¿ Por qué no abre en el explorador ???

Realmente estoy muy confundido, si alguien está interesado en ayudarme, me avisa y le mando los archivos que utilizo, para que prueben y me digan que pasa, porque yo llevo ya varios días con esto y no doy que es.



Jean Joel

[jgonzale]

Por favor, solo miren el link y me contestan si se ve la foto o no, o simplemente que ven, o que piensan, o que estoy haciendo mal ...

<a href='ir.asp?http://www.centroabastos.com.co/prb/locales1/foto.asp?id=1' target='_blank'>http://www.centroabastos.com.co/prb/loca...</a>

http://www.centroabastos.com.co/prb/locales1/foto.asp?id=1



Jean Joel

[juanangt]

He conseguido ver la foto!!!! :)


Pero... y aquí viene lo más raro... en el navegador Nestcape. Por primera vez veo que nestcape es mejor que explorer en algunos casos. :(

Mi pregunta es la siguiente... veo que la imagen es un jpg. Has probado con un gif?? porque me da la sensación de que internet explorer se lia con la compresión de jpg... no se... es una suposición

Ya me comentarás algo

[jgonzale]

Te cuento que con el gif no tuve problemas, pero yo necesito mostrar jpg (Son fotos de locales y en .gif, tiende a perder calidad).



Jean Joel

[juanangt]

No se Jean Joel... intenta a probar otro tipo de compresión de JPG a una calidad media a ver si el explorer consigue mostrar la foto o intenta que no tenga la carga a baja calidad antes de mostrar la foto (si está guardada así claro)

Se que en Netscape no hay problema al verla... pero el explorer por alguna extraña razón no.

Siento no poder ser de más ayuda

[Yoston]

Hola...
mmmm creo que tu problema con las imagenes es el siguiente...

response.ContentType = rs.fields(&quot;usufottip&quot;)
response.binarywrite rs.Fields(&quot;usufot&quot;)

prueba asi...

SetImgForDisp objRS.fields(&quot;usufot&quot;), &quot;jpeg&quot;

&lt;img src=&quot;Imagen.asp&quot; width=&quot;320&quot; height=&quot;240&quot;&gt;


Function SetImgForDisp(inField, inContentType)
Dim mOleHeadSize, mBytes
Dim mFieldSize, mDumpaway
mOleHeadSize = 78
inContentType = LCase(inContentType)
Select Case inContentType
Case &quot;gif&quot;, &quot;jpeg&quot;, &quot;bmp&quot;
inContentType = &quot;image/&quot; &amp; inContentType
mBytes = inField.value

Case &quot;ole&quot;
inContentType = &quot;image/bmp&quot;
mFieldSize = inField.ActualSize
mDumpaway = inField.GetChunk(mOleHeadSize)
mBytes = inField.GetChunk(mFieldSize - mOleHeadSize)
End Select
Session(&quot;ImageBytes&quot;) = mBytes
Session(&quot;ImageType&quot;) = inContentType
End Function

y en imagen.asp
&lt;&lt;imagen.asp&gt;&gt;

&lt;%
response.Expires = 0
response.Buffer = True
response.Clear

response.contentType = Session(&quot;ImageType&quot;)
response.BinaryWrite Session(&quot;ImageBytes&quot;)

Session(&quot;ImageType&quot;) = &quot;&quot;
Session(&quot;ImageBytes&quot;) = &quot;&quot;

response.End
%&gt;

pero hazlo de esta forma..ya te envie las paginas y la base de datos...y viste que funciona...no sigas con tu metodo por que solo consigues atrasarte mas...

chausito..
:cantar: