<TABLE align="center" cellSpacing=0 cellPadding=0 width=100% border=0>
  <TBODY>
    <TR> 
      <TD vAlign=top>

        
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody> 
        <%
	  rs.open "select categoryid,category from category where hide=0 and ParentID = 0 order by categoryorder",conn,1,1
	if rs.eof and rs.bof then
		   rs.close
	  response.Write "<tr><td align=center>还没有商品分类</td></tr>"
	  else
	  do while not rs.eof %>
        <tr> 
          <td valign=center height=20 colspan="4" align="center">〖<a href=cat.asp?catid=<% = rs("categoryid") %>><b><font color="#ff6600"> 
            <% = rs("category") %>
            </font></b></a>〗</td>
        </tr>
        <tr> 
          <td colspan="4" background=images/bg_04.gif border=0></td>
        </tr>
        <% 
	  Dim rs1
	  set rs1 = server.CreateObject("adodb.recordset")
	  rs1.open "select categoryid,category from category where hide=0 and ParentID="&rs("categoryid")&" order by categoryorder",conn,1,1
	  
	 do while not rs1.eof %>
        <tr> 
          <td valign="top" align="left" width="180">&nbsp;&nbsp;&nbsp;<FONT face=Wingdings 
                          color=#ff8c00>v</FONT><a href=cat.asp?catid=<% = rs1("categoryid") %>> 
            <% = rs1("category") %>
            </a></td>
          <td valign="top" align="left" width="599">&nbsp;</td>
        </tr>
        <tr> 
          <%
	  rs1.movenext  %>
          <% if rs1.eof then %>
          <%
	  exit do
	  else %>
          <td valign="top" colspan="2">&nbsp;&nbsp;&nbsp;<FONT face=Wingdings 
                          color=#ff8c00>v</FONT><a href=cat.asp?catid=<% = rs1("categoryid") %>> 
            <% = rs1("category") %>
            </a></td>
        </tr>
        <%	  rs1.movenext 
	 end if
	  loop
	  rs1.close
	  set rs1 = nothing %>
        <%
	  rs.movenext
	  loop
	  rs.close
	  end if
	  %>
        </tbody> 
      </table>
    </TD>
    </TR>
  </TBODY>
</TABLE>

