DW+ACCESS+asp 做树目录调试出错 Microsoft JScript 运行时错误 (0x800A138F) 缺少对象

我是学汽车的，第一次做这种网站，希望各位大牛帮帮忙。

每次调试都出错：浏览器显示
Microsoft JScript 运行时错误 (0x800A138F)
缺少对象

数目录的源程序为：

<%@LANGUAGE="JAVASCRIPT" 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>
</head>

<body><form id="form1" name="form1" method="post" action="">

<h1 style="font-family: "幼圆"; font-size: 36px"> </h1>

</form>

<!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion2" -->

<form id="form3" name="form3" method="post" action="">

<div align="center" style="color: #3300CC"><span style="font-family: " 幼 圆 ";

font-size: 36px"><span style="font-size: 16px; color: #D73355"></span>波途一族全系列产品

</span> </div>

</form>

<!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion3" -->

<form id="form4" name="form4" method="post" action="">

<table width="50%" border="0" align="center" bgcolor="#96D3D0" id="table1">

<tr bordercolor="#FF0000">
<td>

<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>


<%
'Dim conn,rs_b,sql_b,rs_l, sql_l '

'Set conn=Server.CREATEOBJECT("ADODB.CONNECTION")'

dbpath= Server.MapPath("vw.mdb")

'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &dbpath '
%>


<div id='tree_all'> <a href="javascript:tog('tree');" id='xtree' style="font-size:

16px">+</a><span class="STYLE40" style="font-family: "幼圆"; font-size: 16px; color:

#D73355">车型及相关零件</span>

<ul class='xtree' id='tree' style="display:none;">

<%
sql_b="select * from Products"

'Set rs_b=conn.EXECUTE(sql_b)'
'While Not rs_b.EOF'
%>

<li ><a id='x<%=rs_b("产品型号")%>' href="javascript:tog('<%=rs_b("产品型号 ")%>');">+</a><a href="productdetail.asp?产品型号=<%=rs_b("产品型号")%>" ><%=rs_b("产品型号")%></a>

<ul id='<%=rs_b("产品型号")%>' style="display:none;">

<%

sql_l="select * from Components where 所属产品型号='"&rs_b("产品型号")&"'"

'Set rs_l=conn.EXECUTE(sql_l) '
'While Not rs_l.EOF '



%>

<li><a href="partdetail.asp?所属产品型号=<%=rs_l("零件编号")%>" > <%=rs_l("零件名称")%></a></li>

<%

rs_l.MoveNext

Wend

%>

</ul>

</li>

<%

rs_b.MoveNext

Wend

%>

</ul>

</div>

<p><a href="javascript:expall('tree_all',1);" style="font-family: "幼圆"">
打开所有分支</a> -- <a href="javascript:expall('tree_all',0);" style "font-family: "幼圆

"">关闭所有分支</a></p></td>

</tr>

<%

rs_b.Close

rs_l.Close

conn.Close

%>

</table>



</body>
</html>


productdetail.asp源代码为

<%@LANGUAGE="JAVASCRIPT" 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">
<!--
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=vw"
'set Conn=server.createobject("adodb.connection") '
'Conn.Open ConnStr '
'Set rs=Server.CreateObject("ADODB.Recordset") '
%>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<table width="100%" border="1">
<tr>
<td>零件编号 </td>
<td>零件名称 </td>
<td>零部件型号 </td>
<td>零件供应商 </td>
<td>供应商地址 </td>
<td>价格 </td>
</tr>
<%
sql_b="select * from Components 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>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<p align="center"> <a href="untitled.asp">返回 </a> </p>

</body>
</html>


partdetail.asp源代码为

<%@LANGUAGE="JAVASCRIPT" 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">
<!--
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=vw;"
'set Conn=server.createobject("adodb.connection") '
'Conn.Open ConnStr '
'Set rs=Server.CreateObject("ADODB.Recordset") '
%>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<table width="100%" border="1">
<tr>
<td>产品编号 </td>
<td>产品名称 </td>
<td>产品型号 </td>
<td>制造商 </td>
<td>产地 </td>
<td>价格 </td>
</tr>
<%
sql_b="select * from Products 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>  </p>
<p>  </p>
<p>  </p>
<p>  </p>
<p align="center"><a href="untitled.asp">返回 </a></p>
</body>
</html>