<% Dim conn, rsProd, strSQL Call OpenDB() Dim RowMax Dim CellCount Set rsProd = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT DISTINCT c.catid, catname, catphoto FROM category c INNER JOIN product p on c.catid=p.catid ORDER BY catname ASC" rsProd.Open strSQL, conn If Not rsProd.EOF Then noCats=0 arCat = rsProd.GetRows() Else noCats=1 End If rsProd.Close Function tdCont(prodid, prodname, prodprice, pphoto) If prodid=0 THen %>

<% Else %>
<%=prodname%>
Price: <%=formatcurrency(prodprice)%>
<% End IF End Function %> Shop Shirts, Music and More - Stephen Speaks

Age of the Underdog - Album Release



<% for x = 0 to UBOUND(arCat, 2) strSQL = "SELECT productid, productname, prodxtra, prodphoto, productdesc, prodthumb, prodprice, p.catid, catname FROM product p LEFT JOIN category c on p.catid=c.catid WHERE p.catid= " & arCat(0,x) rsProd.Open strSQL, conn IF Not rsProd.EOF THen noArray=0 arProd=rsProd.GetRows() Else noArray=1 End If rsProd.Close %>

<%=arCat(1,x)%>

<% if noArray=0 THen %>
<% CellCount = 0 RowMax = 4 For i = 0 to UBOUND(arProd, 2) If CellCount = 0 THen Response.Write("") End If Response.Write(tdCont(arProd(0,i),arProd(1,i),arProd(6,i),arProd(3,i) )) CellCount = CellCount +1 If CellCount = RowMax THen Response.Write(" ") CellCount = 0 ENd IF Next If CellCount<>0 Then Do Until CellCount = 0 Response.Write(tdCont(0,"","","")) CellCount = CellCount +1 If CellCount = RowMax THen Response.Write("") CellCount = 0 ENd IF Loop End IF %>
<% End IF %> <% Next%>