求助树形结构

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 
<html xmlns="http://www.w3.org/1999/xhtml"> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
<title>无标题文档 </title> 
<style type="text/css"> 
<!-- 
.emenu { 
      padding-left: 25px; 
      cursor: hand; 
} 
.submenu { 
      padding-left: 24px; 
} 
.files { 
      cursor: hand; 
      padding-left: 18px; 
} 
--> 
</style> </head> 
<script language="javascript" type="text/javascript"> 
<!-- 
function tog(item){ 
  obj=document.getElementById(item); 
  visible=(obj.style.display!="none"); 
  key=document.getElementById("x" + item); 
  if (visible) { 
    obj.style.display="none"; 
    key.innerHTML="+"; 
  } else { 
      obj.style.display="block"; 
      key.innerHTML="-"; 
  } 
} 
  
function expall(item,yes){ 
  obj=document.getElementById(item); 
  arr=obj.getElementsByTagName("UL"); 
  for (i=0;i <arr.length;i++) { 
    key=document.getElementById("x" + arr[i].id); 
    if(yes){ 
      arr[i].style.display="block"; 
      key.innerHTML="-"; 
    }else{ 
      arr[i].style.display="none"; 
      key.innerHTML="+"; 
    } 
  } 
} 
//--> 
</script> 
<body> 
<% 
dim rs_b 
dim rs_l 
dim sql_b 
dim sql_l 
dim Conn 
ConnStr="driver={sql server};server=127.0.0.1;database=tire;uid=sa;pwd=111111" 
set Conn=Server.CreateObject("adodb.connection") 
  Conn.Open ConnStr 
  Set rs=Server.CreateObject("ADODB.Recordset")   %> 
  <div id='tree_all'> 
<a id='xtree' href="javascript:tog('tree');">+ </a> <span class="STYLE40">摩托车型浏览 </span> 
<ul class='xtree' id='tree' style="display:none;"> 
<% 
sql_b="select * from product" 
Set rs_b=conn.EXECUTE(sql_b) 
While Not rs_b.EOF %> <li > <a id='x <%=rs_b("产品型号")%>' href="javascript:tog(' <%=rs_b("产品型号")%>');">+ <a  href="xx.asp?产品型号= <%=rs_b("产品型号")%>" > <%=rs_b("产品型号")%> </a> 
<ul id=' <%=rs_b("产品型号")%>' style="display:none;"> 
<% 
sql_l="select * from lingbujian  where 车型 like '%"&rs_b("产品型号")&"%'" 
Set rs_l=conn.EXECUTE(sql_l) 
While Not rs_l.EOF %> <li> <a  href="xx1.asp?车型= <%=rs_l("产品型号")%>" > </a> </li> <% 
rs_l.MoveNext 
Wend 
%> 
  </ul> 
</li> 
<% 
rs_b.MoveNext 
Wend 
%> 
</ul> 
</div> 
<p> <a href="javascript:expall('tree_all',1);">打开所有分支 </a> 
-- <a href="javascript:expall('tree_all',0);">关闭所有分支 </a> </p> 
</td> 
  </tr> 
<% 
rs_b.Close 
rs_l.Close 
conn.Close 
%> 
</table> 
</form> 
</body> 
</html> 
xx1.asp如下： 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> 
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 
<title>无标题文档 </title> 
<style type="text/css"> 
<!-- 
body { 
background-color: #333333; 
} 
body,td,th { 
color: #FFFFFF; 
} 
a:link { 
color: #FFFFFF; 
} 
a:visited { 
color: #FFFFFF; 
} 
--> 
</style> </head> <body> 
<% 
Dim conn,rs_b,sql_b,rs_l,sql_l 
ConnStr="driver={sql server};server=127.0.0.1;database=tire;uid=sa;pwd=111111" 
set Conn=server.createobject("adodb.connection") 
  Conn.Open ConnStr 
  Set rs=Server.CreateObject("ADODB.Recordset") 
%> 
<p>&nbsp; </p> 
<p>&nbsp; </p> 
<p>&nbsp; </p> 
<p>&nbsp; </p> 
<p>&nbsp; </p> 
<table width="100%" border="1"> 
  <tr> 
    <td>零部件编号 </td> 
    <td>零部件名称 </td> 
    <td>零部件型号 </td> 
    <td>零部件制造商 </td> 
    <td>产地 </td> 
    <td>零部件价格 </td> 
      </tr> 
  <% 
sql_b="select * from lingbujian where 车型='" & Request("车型") & "'" 
Set rs_b=conn.EXECUTE(sql_b) 
%> 
    <tr> 
      <td> <%=rs_b("零部件编号")%> </td> 
      <td> <%=rs_b("零部件名称")%> </td> 
      <td> <%=rs_b("零部件型号")%> </td> 
      <td> <%=rs_b("零部件制造商")%> </td> 
      <td> <%=rs_b("产地")%> </td> 
      <td> <%=rs_b("零部件价格")%> </td> 
        </tr> 
</table> 
<% 
rs_b.Close 
conn.Close 
%> 
<p>&nbsp; </p> 
<p>&nbsp; </p> 
<p>&nbsp; </p> 
<p>&nbsp; </p> 
<p align="center"> <a href="database/bom.asp">返回 </a> </p> 
</body> 
</html> 我的树形结构为什么只能打到产品那一层，而达不到零部件那层，请高手帮我看下！