Hola
intenta con esto....
<<muestaimagen.asp>>
aca esta el if..que tu haces
if..
--->no hay imagen
else
SetImgForDisp objRS.fields("Foto"), "jpeg"
<img src="Imagen.asp" width="320" height="240">
response.End
end if
Function SetImgForDisp(inField, inContentType)
Dim mOleHeadSize, mBytes
Dim mFieldSize, mDumpaway
mOleHeadSize = 78
inContentType = LCase(inContentType)
Select Case inContentType
Case "gif", "jpeg", "bmp"
inContentType = "image/" & inContentType
mBytes = inField.value
Case "ole"
inContentType = "image/bmp"
mFieldSize = inField.ActualSize
mDumpaway = inField.GetChunk(mOleHeadSize)
mBytes = inField.GetChunk(mFieldSize - mOleHeadSize)
End Select
Session("ImageBytes") = mBytes
Session("ImageType") = inContentType
End Function
y esta pagina te sirve como un proxy...(patrones..)
<<imagen.asp>>
<%
response.Expires = 0
response.Buffer = True
response.Clear
response.contentType = Session("ImageType")
response.BinaryWrite Session("ImageBytes")
Session("ImageType") = ""
Session("ImageBytes") = ""
response.End
%>
ojala te sirva.... :cantar:
chausito
