<% Dim rsCategory, catID, SQL, catDetail catName = Request.QueryString("catName") set rsCategory = Server.CreateObject("ADODB.recordset") SQL = "SELECT catName, catDescription, catImage, prodID, prodName, prodShortDescription, prodImageSmallPath from sfCategories INNER JOIN dataTable ON " _ & "sfCategories.catID = dataTable.prodCategoryID WHERE catName = '" & catName & "'" rsCategory.Open SQL, mycnn If not (rsCategory.BOF or rsCategory.EOF) Then catDetail = rsCategory.GetRows() rsCategory.MoveFirst End If %>

	<%= catDetail(1,0) %> <% iCounter = 0 For i=0 to uBound(catDetail,2) %> <%=catDetail(4,i)%> <%=catDetail(5,i)%> <% iCounter = iCounter + 1 Next %>