Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Displaying images in Recordset '3 per row' 1
- Thread starter jrhouk
- Start date
-
1
- #2
JimEkleberry
Programmer
Just setup a do while loop that starts at one and creates <td> cells until the counter reaches 3, then close the row, reset the counter, and keep doing it until the end of the recordset has been reached.
- Thread starter
- #3
Thanks Jim
However, I am just learning this and, while I tried to understand what you were telling me to do and read all other posts regarding loops (and anything related), I still couldn't figure it out.
Could you give me a brief example of the code that will show me what you mean?
Thanks again.
However, I am just learning this and, while I tried to understand what you were telling me to do and read all other posts regarding loops (and anything related), I still couldn't figure it out.
Could you give me a brief example of the code that will show me what you mean?
Thanks again.
JimEkleberry
Programmer
The example below assumes the following:
1. adovbs.inc is in the same directory as the file,
2. your database is in a database folder below the file,
3. your images are in a images folder below the file,
4. you have a products table containing the fields name and thumbnail. The name field is the name of the product and the thumbnail field is the name of the item's image.
Modify these items to suit your current environment. Also, you may not need everything that is presented but then again this was just an example.
Copy the following to an .asp page (i.e. item.asp) and then access it through your browser.
1. adovbs.inc is in the same directory as the file,
2. your database is in a database folder below the file,
3. your images are in a images folder below the file,
4. you have a products table containing the fields name and thumbnail. The name field is the name of the product and the thumbnail field is the name of the item's image.
Modify these items to suit your current environment. Also, you may not need everything that is presented but then again this was just an example.
Copy the following to an .asp page (i.e. item.asp) and then access it through your browser.
Code:
<%
response.expires = 0
response.cachecontrol = "private"
%>
<!-- #include file="adovbs.inc" -->
<%
homepage = "index.htm"
' Define SQL statements for the page and items.
itemsql = "select sku, name, price, abstract, show from tblproducts order by name"
' Establish a database connection.
set conn = Server.CreateObject("ADODB.Connection")
openstr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & server.mappath("database\wpt.mdb")
conn.open openstr
' Define and open recordsets for the page and items.
set itemrs = Server.Createobject("ADODB.RecordSet")
itemrs.open itemsql, conn, adopenstatic, adlockreadonly
%>
<html>
<head>
<title>Image catalog</title>
</head>
<body>
<%
if not itemrs.eof then
' Create a table for all of the images.
response.write "<table border=" & chr(34) & "0" & chr(34) & ">" & vbcrlf
' Counter is the item index.
counter = 1
' Limit is the number of items we want per row.
limit = 3
do while not itemrs.eof
' Step through the recordset placing images into their own cells.
' At LIMIT close the table row and start another table row.
if counter = 1 then
' Write table row if this is the first image.
response.write "<tr>" & vbcrlf
end if
' Write table cell with image as a link to detail page.
response.write "<td valign=" & chr(34) & "top" & chr(34) & ">" & vbcrlf & _
" <a href=" & chr(34) & "item.asp?catid=&itemid=" & _
itemrs("sku") & chr(34) & ">" & vbcrlf & "<img src=" & chr(34) & _
"images/" & itemrs("thumbnail") & chr(34) & _
" border=" & chr(34) & "0" & chr(34) & _
" alt=" & chr(34) & server.htmlencode(itemrs("name")) & chr(34) & _
" width=" & chr(34) & "110" & chr(34) & _
" height=" & chr(34) & "110" & chr(34) & _
"></a></td>" & vbcrlf
' Increment the counter.
counter = counter + 1
' If limit is reached, close the row and reset the counter.
if counter > limit then
response.write "</tr>" & vbcrlf
counter = 1
end if
' Advance the recordset pointer to the next record.
itemrs.movenext
loop
' Fill out the row for any remaining cells.
if counter > 1 and counter <= limit then
do while counter <= limit
response.write "<td></td>" & vbcrlf
counter = counter + 1
loop
'Close the table row.
response.write "</tr>" & vbcrlf
end if
' Close the table.
response.write "</table>"
end if
%>
</body>
</html>- Thread starter
- #5
Well Jim, I'm getting closer.
You're code was way above my head, however, I stuck with it and, after trimming away some of the code I didn't think I needed, I've am close.
Temporarily, I replaced the images I want displayed with the word "items" and was able to see that the code did indeed display the words - 3 per row. See a skeleton view at
However when I tried to enter code referencing the images in the recordset I get an error message which points to that line.
Here is how the code currently looks:
<%
dim conn, query, data
Set conn = Server.CreateObject("ADODB.Connection"
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};_
DBQ=" & Server.MapPath("\Kimmyart\db\kimmy.mdb"
'Create the SQL query and the record set
query = "SELECT * FROM tblSculptures"
Set data = Server.CreateObject( "ADODB.Recordset" )
Call data.Open ( query, conn )
%>
<%
dim counter, limit, item
counter = 1
limit = 3
if not data.EOF then
response.write "<table>"
do while not data.EOF
if counter = 1 then
response.write "<tr>"
end if
response.write "<td>ITEMS</td>"
counter = counter + 1
if counter > limit then
response.write "</tr>"
counter = 1
end if
data.movenext
loop
if counter > 1 and counter <= limit then
do while counter <= limit
response.write "<td></td>"
counter = counter + 1
loop
response.write "</tr>"
end if
response.write "</table>"
end if
%>
NOTE: Along with the images, I also want to pull it's name, description and unit price from the recordset.
An HTML example is at
Thanks again for your help.
You're code was way above my head, however, I stuck with it and, after trimming away some of the code I didn't think I needed, I've am close.
Temporarily, I replaced the images I want displayed with the word "items" and was able to see that the code did indeed display the words - 3 per row. See a skeleton view at
However when I tried to enter code referencing the images in the recordset I get an error message which points to that line.
Here is how the code currently looks:
<%
dim conn, query, data
Set conn = Server.CreateObject("ADODB.Connection"
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};_
DBQ=" & Server.MapPath("\Kimmyart\db\kimmy.mdb"
'Create the SQL query and the record set
query = "SELECT * FROM tblSculptures"
Set data = Server.CreateObject( "ADODB.Recordset" )
Call data.Open ( query, conn )
%>
<%
dim counter, limit, item
counter = 1
limit = 3
if not data.EOF then
response.write "<table>"
do while not data.EOF
if counter = 1 then
response.write "<tr>"
end if
response.write "<td>ITEMS</td>"
counter = counter + 1
if counter > limit then
response.write "</tr>"
counter = 1
end if
data.movenext
loop
if counter > 1 and counter <= limit then
do while counter <= limit
response.write "<td></td>"
counter = counter + 1
loop
response.write "</tr>"
end if
response.write "</table>"
end if
%>
NOTE: Along with the images, I also want to pull it's name, description and unit price from the recordset.
An HTML example is at
Thanks again for your help.
replace
response.write "<td>ITEMS</td>"
AND
response.write "<td></td>"
with:
response.write ("<td valign=""top"">"
response.write ("<a href=""item.asp?catid=&itemid=" & itemrs("sku" & """>" ' link to item
response.write ("<img src=""images/" & itemrs("thumbnail" & " border=""0"" alt=" & server.htmlencode(itemrs("name") & " width=""110"" height=""110""></a>" ' image
response.write ("<br>" & itemrs("name") ' picture name
response.write ("<br>" & itemrs("description") ' picture description
response.write ("<br>" & itemrs("price") ' unit price
response.write ("</td>"
response.write "<td>ITEMS</td>"
AND
response.write "<td></td>"
with:
response.write ("<td valign=""top"">"
response.write ("<a href=""item.asp?catid=&itemid=" & itemrs("sku"
& """>" ' link to itemresponse.write ("<img src=""images/" & itemrs("thumbnail"
& " border=""0"" alt=" & server.htmlencode(itemrs("name") & " width=""110"" height=""110""></a>" ' imageresponse.write ("<br>" & itemrs("name"
) ' picture nameresponse.write ("<br>" & itemrs("description"
) ' picture descriptionresponse.write ("<br>" & itemrs("price"
) ' unit priceresponse.write ("</td>"
JimEkleberry
Programmer
To do the name, price, and image you need that information stored in your tblstructures table. I'll assume that you have that and the field names are NAME, PRICE, and IMAGENAME in the example below. Please note that the field names are capitalized only for illustration purposes in this example.
Take what you have and replace the line:
response.write "<td>ITEMS</td>"
with
response.write "<td>" & data("IMAGENAME" & "<br>" & vbcrlf & _
data("NAME" & "<br>" & vbcrlf & _
"$" & data("PRICE" & "</td>" & vbcrlf
The above assumes that your price field does not contain the $ mark. If it does simply remove the "$" entry.
Also note that if the NAME field contains any extraneous characters (like ", &, or anything else) then replace the data("NAME" entry with server.htmlencode(data("NAME"). The server.htmlencode directive takes special characters and changes them to be HTML .
Please let me know how that works for you.
Take what you have and replace the line:
response.write "<td>ITEMS</td>"
with
response.write "<td>" & data("IMAGENAME"
& "<br>" & vbcrlf & _data("NAME"
& "<br>" & vbcrlf & _"$" & data("PRICE"
& "</td>" & vbcrlfThe above assumes that your price field does not contain the $ mark. If it does simply remove the "$" entry.
Also note that if the NAME field contains any extraneous characters (like ", &, or anything else) then replace the data("NAME"
entry with server.htmlencode(data("NAME"). The server.htmlencode directive takes special characters and changes them to be HTML .Please let me know how that works for you.
- Thread starter
- #8
Thanks again.
That works, with one exception. Instead of displaying the thumbnail image, it's displaying the name of the thumbnail image.
I tried using a HTML img tag around the data("IMAGENAME",
Like this:
response.write "<td>" & "<img src=" data("IMAGENAME"">" & "<br> etc.,etc....
but no luck.
That works, with one exception. Instead of displaying the thumbnail image, it's displaying the name of the thumbnail image.
I tried using a HTML img tag around the data("IMAGENAME"
,Like this:
response.write "<td>" & "<img src=" data("IMAGENAME"
">" & "<br> etc.,etc....but no luck.
JimEkleberry
Programmer
I totally apologize to you. I completely flubbed in my last post to you. You were on the correct track though.
Your code line should be:
response.write "<img src=" & chr(34) & "images/" & itemrs("thumbnail" & server.htmlencode(itemrs("name") & chr(34) & "></a><br>" etc., etc.
Again, I am truly sorry for that mistake.
Your code line should be:
response.write "<img src=" & chr(34) & "images/" & itemrs("thumbnail"
& server.htmlencode(itemrs("name") & chr(34) & "></a><br>" etc., etc.Again, I am truly sorry for that mistake.
JimEkleberry
Programmer
Disregard the above post, I missed a quote mark. This is the real post.
I totally apologize to you. I completely flubbed in my last post to you. You were on the correct track though.
Your code line should be:
response.write "<img src=" & chr(34) & "images/" & itemrs("thumbnail" & chr(34) & " alt=" & chr(34) & server.htmlencode(itemrs("name") & chr(34) & "><br>" & server.htmlencode(itemrs("name") & "</a><br>" etc., etc.
Again, I am truly sorry for that mistake.
I totally apologize to you. I completely flubbed in my last post to you. You were on the correct track though.
Your code line should be:
response.write "<img src=" & chr(34) & "images/" & itemrs("thumbnail"
& chr(34) & " alt=" & chr(34) & server.htmlencode(itemrs("name") & chr(34) & "><br>" & server.htmlencode(itemrs("name") & "</a><br>" etc., etc.Again, I am truly sorry for that mistake.
- Thread starter
- #11
Jim,
Success!!!!!!
Thank you very much, you showed me a lot.
Success!!!!!!
Thank you very much, you showed me a lot.
JimEkleberry
Programmer
Congratulation, your site came out very nice.
If you ever need any additional help be sure to ask.
If you ever need any additional help be sure to ask.
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question