OLE object in ASP

MDrumm · May 30th, 2005, 02:06 AM

What I would like to do is place a picture in an asp page That is part of a record from an access data base. Can this be done? Here is my code. Thanks for your help, I am still learning.

<BASEFONT FACE="Comic Sans MS" COLOR="DarkBlue">
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>

<BODY BGCOLOR="#FFFF80">
<CENTER><H1><BR>Scheduling</H1>
<%
  If Session("PersonID") <> "" Then
    Response.Write "<H3>Welcome " & Session("FirstName") & "</H3>"
  End If
%>
</CENTER>
<P>Here's a list of all the available time that our models have made available for purchase<BR>
Select a model check to see if the time you need is available. Then click to make a Bid if up for bid.<BR>
Or you can just buy the one's without a bid expiration date.
</P>
<%
  Dim rsItems
  strSQL = "SELECT * FROM Item " & _
           "WHERE BidExpirationDate > #" & FormatDateTime(Now,2) & "# " & _
           "AND ItemStatus = 'Active';"
  Set rsItems = Server.CreateObject("ADODB.Recordset")
  rsItems.Open strSQL, objConn
  If Not rsItems.EOF Then
    Response.Write _
      "<TABLE BORDER=""1"" CELLSPACING=""3"" CELLPADDING=""3"">" & _
      " <TR>" & _
      " <TH>Item ID"
               If Session("PersonID") <> "" Then
                 Response.Write "<BR>Click to Bid"
               End If
           Response.Write "</TH>" & _
      " <TH>Name</TH>" & _
      " <TH>Asking Price</TH>" & _
      " <TH>Date Available</TH>" & _
      " <TH>Begin Time</TH>" & _
      " <TH>End Time</TH>" & _
      " <TH>BidExpiration Date</TH>" & _
      " <TH>Picture1</TH>" & _

      " </TR>"
    Do While Not rsItems.EOF
      Response.Write "<TR ALIGN=CENTER>"
      If Session("PersonID") <> "" Then
        Response.Write _
          "<TD><A HREF=""Bid.asp?Item=" & rsItems("ItemID") & """>" & _
          rsItems("ItemID") & "</A></TD>"
      Else
        Response.Write "<TD>" & rsItems("ItemID") & "</TD>"
      End If
      Response.Write _
        "<TD>" & rsItems("ItemName") & "</TD>" & _
        "<TD>" & FormatCurrency(rsItems("AskingPrice")) & "</TD>" & _
        "<TD>" & rsItems("DateAvailable") & "</TD>" & _
        "<TD>" & rsItems("TimeAvailableBegin") & "</TD>" & _
        "<TD>" & rsItems("TimeAvailableEnd") & "</TD>" & _
        "<TD>" & rsItems("BidExpirationDate") & "</TD>" & _

************************************************** *********
This is what I tried it didn't work comes up type mismatch
************************************************** ************

  "<TD>" & FormatOLEObject(rsItems("Picture1")) & "</TD>" & _

      "</TR>"
      rsItems.MoveNext
    Loop
    Response.Write "</TABLE>"
    rsItems.close
    Set rsItems = Nothing
  Else
    Response.Write "<CENTER><H2>No items currently for sale</H2></CENTER>"
  End If
%>
<P>

</BODY>
</HTML>

fizzbang · June 2nd, 2005, 04:04 PM

http://www.maddogs-asp.com/forum/for...ts.asp?TID=671

MDrumm · June 16th, 2005, 07:29 PM

fizzbang · June 18th, 2005, 10:48 AM

To be honest I got a similar result and although this seems to be on the right track for what you are trying to do there is still something missing.
Although the content of the file is transferred it is not displayed as a binary image.
I do however have a different solution but it does not quite do what you want.
If you put the file name of the image 'Image.bmp' or 'Image.jpg' or âImage.gifâ etc. in an extra text column called say 'Picture' in the item table,
then you can read the name of the file in the recordset.
I stored the image files in a directory which is at the same level as the root of my website called 'Images'. âImagesâ is also a virtual directory in IIS with read permission.
To reach my âimageâ directory you need to move to '../Images/' from the directory containing my web site but it could be a sub directory of your website which would just be '/Images/' relatively speaking.
So in the BrowseListings.asp file I have for the headings:-

  rsItems.Open strSQL, objConn
  If Not rsItems.EOF Then
    Response.Write _
      "<TABLE BORDER=""1"" CELLSPACING=""3"" CELLPADDING=""3"">" & _
      " <TR>" & _
      " <TH>Item ID"
               If Session("PersonID") <> "" Then
                 Response.Write "<BR>Click to Bid"
               End If
           Response.Write "</TH>" & _
      " <TH>Picture</TH>" & _
      " <TH>Name</TH>" & _
      " <TH>Asking Price</TH>" & _
      " <TH>Listing Date</TH>" & _
      " <TH>Current Bid</TH>" & _
      " <TH>Bid Time</TH>" & _
      " </TR>"

Thats the headings and then the table data.........

    Dim objCmd, rsBid
    Set objCmd = Server.CreateObject("ADODB.Command")
    Set objCmd.ActiveConnection = objConn
    strSQL = "SELECT Max(BidAmount) AS MaxBidAmount, " & _
                    "Max(TimeStamp) AS LastBidTime FROM Bid"
    objCmd.CommandType = adCmdText
    Do While Not rsItems.EOF
      Response.Write "<TR ALIGN=CENTER>"
      If Session("PersonID") <> "" Then
        Response.Write _
          "<TD><A HREF=""Bid.asp?Item=" & rsItems("ItemID") & """>" & _
          rsItems("ItemID") & "</A></TD>"
      Else
        Response.Write "<TD>" & rsItems("ItemID") & "</TD>"
      End If
      Response.Write _
        "<TD><IMG height= 100 width = 100 SRC= '../Images/" & rsItems("Picture") & "'></TD>" & _
        "<TD>" & rsItems("ItemName") & "</TD>" & _
        "<TD>" & FormatCurrency(rsItems("AskingPrice")) & "</TD>" & _
        "<TD>" & FormatDateTime(rsItems("ListingDate"),2) & "</TD>"

      objCmd.CommandText = strSQL & " WHERE ItemID = " & rsItems("ItemID") & ";"
etc......

The key is to make the source string SRC= '../Images/" & rsItems("Picture") & "' point to the direcory and image file you want

I know that this works to display images pointed to from the database but these images
are not stored in the database as you wanted, as OLEobjects, just the Text names of the files.
I think that this is a better method.