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>
</tr>
</table>
<%rs.movenext
loop
else
response.write "对不起还没有商品！"
end if
rs.close %></div></td>
</tr>
我把这些代码抠到自己的一个table tr 下 和源代码的格式是一样的 但是在它的项目环境中 是没问题的
在我的项目环境中就出问题了。 请问我是对什么对象没定义？
求解中.......
相互学习，不胜感激。 800a01a8?缺少对象
[解决办法]
1. include时 conn.asp 的路径 对不对
2 Set rs = CreateObject("ADODB.RecordSet")
3 conn.Open后查一下 conn.State是不是打开状态 <>0 不是的话，查mdb路径和文件权限
