<%
catID = request("cat")
set rs = server.createobject("ADODB.Recordset")
sql = "SELECT cat_pic,cat_name FROM categories WHERE id=" & catid
rs.open sql,oconn
if not rs.eof then
categoryName = rs("cat_name")
categoryImage = rs("cat_pic")
else
categoryImage = "none.jpg"
end if
rs.close
%>
 |
<%= categoryName %>
| |
|
|
<%
sql = "SELECT * FROM products where cat_id=" & catID
rs.open sql,oconn
if not rs.eof then
colCount = 1
response.write("")
do while not rs.eof
imageName = rs("productThumb")
if imageName = "" or isnull(rs("productThumb"))then
imageName = "none.jpg"
end if
response.write("")
response.write("![]()
")
response.write("" & rs("productName") & " | ")
colCount = colCount + 1
rs.movenext
if not rs.eof then
if colCount > 3 then
colCount = 1
response.write(" | | ")
end if
else
response.write(" ")
end if
loop
end if
rs.close
set rs = nothing
oconn.close
%>
|
|
