ASP无限分类问题

这个是数据库的目录结构：

ID - 分类ID
TOPID - 上级ID

根目录 --
分类ID = 1， 上级ID = 0
一级目录 --
新分类 = 2 , 上级ID =1
         
添加栏目 代码段
======================
 
<tr>
  <td class=b1_1>所属栏目 </td>
  <td colspan=4 class=b1_1> <select ID="TopID" name="TopID">
  <%call Admin_ShowClass_Option()%> </select> </td>
</tr>         
         
sub Admin_ShowClass_Option()
  Dim Sqlp,Rsp,TempStr
  Sqlp ="select * from Yao_Class Where TopID = 0 And Link=0 order by num" 
  Set Rsp=server.CreateObject("adodb.recordset") 
  rsp.open sqlp,conn,1,1
  Response.Write(" <option value=""0"">做为顶级分类 </option>")
  If Rsp.Eof and Rsp.Bof Then
      Response.Write(" <option value="""">请先添加分类 </option>")
  Else
      Do while not Rsp.Eof 
        Response.Write(" <option")
  If int(session("YaoClassID"))=Rsp("ID") then
&nbs