|
|
|
Clowns
|
<%
Set cn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\DB\letshaveapartynow.mdb") & ";"
cn.open strConn
set objRS = Server.CreateObject("ADODB.Recordset")
sql = "Select * from items where cat_id=409"
objRS.Open sql, cn, 0, 3
if objrs.eof then
response.write "No items found under this category."
objrs.close
else
%>
<%
i = 0
do while not objrs.EOF
if i=0 or i=3 then
Response.Write ""
end if
imgpath= "pictures/" & objrs("image_url_thumbnail")
fullpath= "pictures/" & objrs("image_url_full")
itemid = objrs("item_id")
%>
<%=objrs("name")%>
|
<%
if i=3 then
Response.Write " "
end if
i = i+1
if i=3 then
i = 0
end if
objrs.MoveNext
loop
objrs.Close
cn.close
end if
%>
|
|
