
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="43" background="image/cat_left.gif" width="212"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="23%">&nbsp;</td>
          <td width="77%"><b><font color=#ff6600>
            <% = CatN %>
            ÉÌÆ··ÖÀà</font></b></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<TABLE WIDTH="82%" ALIGN="center" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  <%
sort(CaID)
dim ii
ii=0
sub sort(selec)
	sql="select categoryid,category from category where ParentID = "&selec&" order by categoryorder"
	Set Rs1=Conn.Execute(sql)
	do while not rs1.eof
	
	
		
%>
  <tr height=20> 
    <td height="23"><a href=help.asp?action=support><img height=11 src="image/icon_notice.gif" 
                  width=17 align=absMiddle border=0></a>&nbsp;<%=string(ii*2,"¡¡")%> 
      <a href=cat.asp?catid=<% = rs1("categoryid") %>> <%=rs1("category")%></a><br>
      <img src="../image/cate_line.gif" width="182" height="3"></td>
  </tr>
  <%
ii=ii+1
	sort rs1("categoryid")
ii=ii-1
	rs1.movenext
	loop
rs1.close
Set Rs1 = Nothing
end sub
%>
</TABLE>
<%
sorts(CatID)
sub sorts(selec)
	sql="select categoryid from category where ParentID = "&selec&" order by categoryorder"
	Set Rs1=Conn.Execute(sql)
	do while not rs1.eof
		IntCat =  rs1("categoryid")
	 	If Len(CatList) = 0 Then
      		CatList =catid
   		ElseIf InStr( CatList, IntCat ) <= 0 Then
      		CatList = CatList&", "&IntCat &""
   		End If
	sorts rs1("categoryid")
	rs1.movenext
	loop
rs1.close
Set Rs1 = Nothing
end sub
%>
