<%
Do Until RSChildren.EOF
%>
<A HREF="../html/products.asp?Category=<% Response.Write RSChildren("CategoryName") %>">
<B><FONT COLOR="#660000" SIZE="+1" FACE="Arial,Helvetica,Univers,Zurich BT">
<% Response.Write RSChildren("CategoryName") %></FONT></B></A><BR>
<%
  RSChildren.MoveNext
Loop
%>
