        <table cellspacing=1 cellpadding=0 width="100%" border=0 height="40">
          <tbody>
            <%dim sjrs
            	  set sjrs = server.CreateObject("adodb.recordset")
	  sjrs.open "select categoryid,category from FOX_category where hide=0 and ParentID = 0 order by categoryorder",conn,1,1
	if sjrs.eof and sjrs.bof then
		   sjrs.close
	  response.Write "<tr><td align=center>还没有商品分类</td></tr>"
	  else
	  do while not sjrs.eof %>
            <tr> 
              <td height=20 colspan="3" valign=center> 
                &nbsp;<a href=sjlist.asp?catid=<% = sjrs("categoryid") %>><b><font color=#ff6600> 
                <% = sjrs("category") %>
             </font></b></a></td>
            </tr>
			<tr><td colspan="3" background=images/bg_04.gif border=0></td></tr>
            <% 
	  Dim sjrs1
	  set sjrs1 = server.CreateObject("adodb.recordset")
	  sjrs1.open "select categoryid,category from FOX_category where hide=0 and ParentID="&sjrs("categoryid")&" order by categoryorder",conn,1,1
	  
	 do while not sjrs1.eof %>
            <tr> 
              <td width="3%" valign="top">　</td>
              <td width="46%" height="22">
				<img border="0" src="card/arrow2.gif" width="10" height="12"><a href=sjlist.asp?catid=<% = sjrs1("categoryid") %>> 
                <% = sjrs1("category") %>
              </a></td>
              <td width="51%" height="22">
				<%
	  sjrs1.movenext  %>
				<img border="0" src="card/arrow2.gif" width="10" height="12"><a href=sjlist.asp?catid=<% = sjrs1("categoryid") %>> 
                <% = sjrs1("category") %>
              </a></td>
              <% if sjrs1.eof then %>
              <%
	  exit do
	  else %>
            </tr>
            <%	  sjrs1.movenext 
	 end if
	  loop
	  sjrs1.close
	  set sjrs1 = nothing %>
            <%
	  sjrs.movenext
	  loop
	  sjrs.close
	  end if
	  %>
          </tbody>
      </table>