<%
	  // Number of table cells per row
      var iNoPerRow = 4;
	  var loRS;
	  var scategoryDesc;
	  
	  // Create ADODB.Recordset object then execute of ListCatgeories
	  // stored procedure
	  loRS = Server.CreateObject("ADODB.Recordset");
      loRS.Open("Exec ListCategories", sdbConnString);
%>
<TABLE>
<TR>
<% 
	// Loop though the returned recordset
	// populating table cells/links
	while (!(loRS.Eof))
        {
		scategoryDesc = loRS("Description");
%>
<TD WIDTH="150" height="50">
	           <FONT SIZE=5 COLOR=#FF8040 FACE="Comic Sans MS">
			   <STRONG>
	           <A HREF="Browse.asp?CatId=<%=loRS("CatId")%>&Description=<%= scategoryDesc %>&StartItemId=-1"><%=loRS("Description")%></A>
			   </FONT>
			   </STRONG>
	  </TD>
<% 
	// Decrement row counter - if hit our limit for the row
	// start a new row
	iNoPerRow--;
if (iNoPerRow == 0)
{ 
	Response.Write("</TR><TR>");
	iNoPerRow = 4;
}
 %>
<%   loRS.MoveNext();
        }
		loRS = null;
%>
</TABLE>