Displaying Img from Access using BinaryWrite

[Nathan Henderson]

Hi,
Becoming quite frustrated with this.
I have a commercial database written in access and I'm trying to display
some images, jpegs, stored in the DB on web page.
My code is as follows:

Response.ContentType = "image/jpeg"

sql = "SELECT PartImage FROM Parts WHERE ShortID='AAPTM01'"
Set rs = AMConn.execute(sql)
If not rs.eof Then
PicSize = rs("PartImage").ActualSize
if PicSize > 0 then
Response.BinaryWrite
rs("PartImage").GetChunk(rs("PartImage").ActualSize)
end if
End If
set rs = nothing


All i get on the page is the image not found icon with the red cross in IE.
What could possibly be going on?

Any suggestions would be appreciated.

 

[John]

http://www.aspfaq.com/show.asp?id=2149

 

[Rob]

I think you'll find the following will work:-

<%
' Clear out the existing HTTP header information
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear

' Change the HTTP header to reflect that an image is being passed.
Response.ContentType = "image/jpeg"

sql = "SELECT PartImage FROM Parts WHERE ShortID='AAPTM01'"
Set rs = AMConn.execute(sql)
If not rs.eof Then
Response.BinaryWrite rs("Partimage")
set rs = nothing
Response.End
else
set rs = nothing
end if
%>
--
Rob Collyer
_______________________________
www.webforumz.com
Free webdesign and development help,
tips, and website critique.

 

[Nathan Henderson]

Sorry, didn't work, same prob,

I can't even seem to get it working on a db i have set up myself.
I gather this is the way to insert them: right click on field> insert
object> create from file> select the jpeg. Seems pretty sraight forward but
i cannot for the life of me figure out whats wrong.

any other suggestions??
I really need to get this going.

 

[Bã§TãRÐ]

This help you at all?


Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open datasourcename

' Create Recordset
Set Disp_img = Server.CreateObject("ADODB.Recordset")
Disp_img.Open "SELECT file_image_blob FROM table_name WHERE
F_ID =" & Request("F_ID"), DataConn, 2, 3

If Not Disp_img.EOF Then
Response.ContentType = "image/jpeg"
Response.BinaryWrite Disp_img("file_image_blob")
End If

Disp_img.Close
Set Disp_img = Nothing

DataConn.Close
Set DataConn = Nothing



Let me know.

- Bastard