<% SQLCategory = "SELECT CatID, CatText, CatTotal FROM tblcategory ORDER BY CatText Asc" set rsCategory = adoCon.Execute(SQLCategory) arrCategory = rsCategory.getRows rsCategory.Close set rsCategory=Nothing %> <% intColNumber = "1" For cnum = 0 To UBound(arrCategory,2) %> <% 'Setup column counter If intColNumber < 3 then %> <% intColNumber = intColNumber + 1 Else %> <% intColNumber = 1 End If Next %>

Category
 
<%=arrCategory(1,cnum)%> (<%=arrCategory(2,cnum)%>) <%=arrCategory(1,cnum)%> (<%=arrCategory(2,cnum)%>)