How to display images from ms access onto asp form from a table

vad · #1 (**permalink**) 09-19-03, 11:15

Hi! I am new to asp and here is my question.

I have an MS Access datacase,In one table I stored all the information regarding one truck, including 4 images for each of the truck.The data type for images are OLEObject.

I am sending the information into the table using MS Access Form.and the images using insert object.Now the problem is they are not displaying on an ASP form, but the text is displaying ok.Any help!

Thanks!

rhs98 · #2 (**permalink**) 09-19-03, 20:02

You need to have a seperate page which returns the data from the image field as data rather than text.

Just have a page which returns the data on its own - i.e. with no html and then from the page with the form;

Code:

<img src="page_which_returns_data_on_its_own.asp?id=id_of_record" />

vad · #3 (**permalink**) 09-22-03, 10:43

I am fairly new.So Here I am giving the code I wrote.

<%
dim adopenkeyset
adopenkeyset=1
dim adlockoptimistic
adlockoptimistic=3
set conn1=server.createobject("ADODB.Connection")
conn1.connectionstring="Provider=Microsoft.jet.ole db.4.0; Data source = C:\temp\ILLIANA-Truck.mdb"
conn1.open
set rst = server.createobject("adodb.recordset")
rst.activeconnection=conn1
rst.open "select * from VehicleDetails",conn1,adopenkeyset,adlockoptimisti c

Do While Not rst.EOF
Response.Write "<TABLE BORDER='0' align='center' width='657' height='332' bgcolor='#F3F3F3'><TR><TD width='400' height='332'>"

Response.Write"Stock#: "
Response.Write rst("Stock#")
Response.Write" Year: "
Response.Write rst("Year")
Response.Write" Make: "
Response.Write rst("Make")
Response.Write" Model: "
Response.Write rSt("Model")
Response.Write" Mileage: "
Response.Write rst("Mileage")
Response.Write" Serial Number: "
Response.Write rst("Serial#")
Response.Write" Purchase Date: "
Response.Write rSt("Purchage Date")
Response.Write" Purchase From: "
Response.Write rst("Purchage From")
Response.Write" Cost: "
Response.Write rst("Cost")
Response.Write" Transportation: "
Response.Write rst("Transportation")
Response.Write" Engine: "
Response.Write rst("Engine")
Response.Write" Engine Brake: "
Response.Write rst("Engine Brake")
Response.Write" Transmission: "
Response.Write rst("Transmission")
Response.Write" Sleeper: "
Response.Write rst("Sleeper")
Response.Write" Suspension: "
Response.Write rst("Suspension")
Response.Write" GVWR: "
Response.Write rst("GVWR")
Response.Write" Front Axle Capacity: "
Response.Write rst("Frt Axle Capacity")
Response.Write" Rear Axle Capacity: "
Response.Write rst("Rear Axle Capacity")
Response.Write" Fornt Wheels: "
Response.Write rst("Front Wheels")
Response.Write" Rear Wheels: "
Response.Write rst("Rear Wheels")
Response.Write" Tire Size: "
Response.Write rst("Tire Size")
Response.Write" Turbo: "
Response.Write rst("Turbo")
Response.Write" Air Conditioning: "
Response.Write rst("Air Conditioning")
Response.Write" Power Steering: "
Response.Write rst("Power Steering")
Response.Write" Tank Capacity: "
Response.Write rst("Tank Capacity")
Response.Write" Truck Type: "
Response.Write rst("Truck Type")
Response.Write" Floor material: "
Response.Write rst("Floor material")
Response.Write" Refrigerated: "
Response.Write rst("Refrigerated")
Response.Write" Color: "
Response.Write rst("Color")
Response.Write" Interior: "
Response.Write rst("Interior")
Response.Write" Tilt: "
Response.Write rst("Tilt")
Response.Write" Cruise: "
Response.Write rst("Cruise")
Response.Write" Radio: "
Response.Write rst("Radio")
Response.Write" Telescopic Column: "
Response.Write rst("Telescopic Column")
Response.Write" Cab Axle: "
Response.Write rst("Cab Axle")
Response.Write" Selling Price: "
Response.Write rst("Selling price")
Response.Write" Image1: "
Response.Write rst("Image1")
Response.Write" Image2 "
Response.Write rst("Image2")
Response.Write" Image3 "
Response.Write rst("Image3")
Response.Write" "
Response.Write" _______________________________ ________________________________ "
rst.movenext
Loop
Response.Write "</TD></TR></table>"
%>

Where I have to create another page.Could give some sample code how to do that.Thank u very Much.

Cos · #4 (**permalink**) 09-22-03, 11:12

Vad,

An image is a couple of 3 informations : the image name, the image data an dthe image type. You have to store all those informations in your database (esp if you have different kind of images stored there... jpg, gif)
Then you need to create a file that brings teh image out of the database and you link to this page as you link to a normal image <img scr="showimage.asp" border....>

now here is a code that can do this:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>


<% response.Buffer = True

dim strSQL, objRS_DispIm
strSQL = "Select IMGDATA, IMGTYPE from TABLENAME where ID = '" & request("id") & "'"
set objRS_DispIm = server.CreateObject("ADODB.REcordset")
objConn.open
objRS_DispIm.open strSQL, objConn, 2, 4
if (objRS_DispIm.EOF and objRS_DispIm.BOF) then
response.Write("Image not found")
else
response.ContentType = trim(objRS_DispIm("IMGTYPE "))
response.BinaryWrite objRS_DispIm("IMGDATA")

end if
objRS_DispIm.close
set objRS_DispIm = nothing
objConn.close
set objConn = nothing
%>

Save this code into a file called ShowImage.asp and then call it as I said <img scr = "ShowImage.asp?id=idnumber"> Of course you replace ID with whatever you need to find the exact image you wanna display.

I hope it works. For me it does

vad · #5 (**permalink**) 09-23-03, 10:32

Hi I worte the code exactly the same with the name changes but it is giving me errors.

Here Is the code

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Option Explicit%>
<% response.Buffer = True
dim strSQL, objRS_DispIm, objConn
strSQL = "Select Image1 from VehicleDetails where Year = '" & request("Year") & "'"
set objRS_DispIm = server.CreateObject("ADODB.Recordset")
objConn.open
objRS_DispIm.open strSQL, objConn, 2, 4
if (objRS_DispIm.EOF and objRS_DispIm.BOF) then
Response.Write("Image not found")
else
Response.ContentType = "image/jpg"
response.BinaryWrite objRS_DispIm("Image1")

end if
objRS_DispIm.close
set objRS_DispIm = nothing
objConn.close
set objConn = nothing
%>

Thank U