Microsoft VBScript 运行时错误 '800a01a8' 缺少对象: ''
求助大虾们的问题如下：
首先，我想自己做了一个index，我想把别的ASP里面的一个功能模块copy(抠)出来
我把对应的conn还有 .mdb 任何相关的东西都copy过来了 
但是抠出来的源代码在我的index里面运行出现如下错误
Microsoft VBScript 运行时错误 '800a01a8' 缺少对象: '' index.asp, line 161

copy模块代码：
<tr> 
<td colspan="5" align="left" valign="bottom"><div align="center"> 
<% '显示特价商品，goodsstate="2"为特价商品
sql="select top 5 * from goods where goodsstate='2' order by pid desc"
rs.open sql,conn,1,1
if rs.recordcount<>0 then 
              do while not rs.eof %>
                    <table width="100%" border="0" cellspacing="0" cellpadding="0">
                            <tr> 
                              <td width="5%"><img src="image/p_arrow.gif" width="15" height="15"></td>
                              <td width="41%"><a href="goodsdetail.asp?pbm=<%=rs("pbm")%>"><%=left(trim(rs("pname")),6)%></a></td>
                              <td width="18%"><div align="right"><font color="#ff0000">￥</font><%=formatnumber(trim(rs("price")),2)%></div></td>
                              <td width="16%"><div align="right"><font color="#ff0000">￥</font><%=formatnumber(cdbl(trim(rs("dz")))*cdbl(trim(rs("price")))/100,2)%></div></td>
                              <td width="20%"><div align="center"><a href="shoppingbagadd.asp?pbm=<%=rs("pbm")%>"><img src="image/shoping_01.gif" width="23" height="20" border="0"></a></div></td>