缺少对象: 'adodb' 坐等大神恩赐啊！

[darkblue_312]

下面这段代码显示的错误是：
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'adodb'
/umia/more.asp, 第 105 行

在别的网页中运行都正常，就是这句：set rs=Server.CreateObject(adodb.recordset)
不是说缺少server 就是缺少adodb

====================================

<%

if BigClassName="" then
Sql="select SmallClassName from SmallClass where hide=false"
else
Sql="select SmallClassName from SmallClass where hide=false BigClassName='" & BigClassName & "'"
end if
set rs=Server.CreateObject(adodb.recordset)
'rs.open sql,conn,3,3
set rs=conn.execute(sql)
rs.movefirst
do while not rs.eof
%>

<!--DWLayoutTable-->
<tr onmouseover="this.className='v_XHList2';" onmouseout="this.className='v_XHList';">

<td width="25" height="20" valign="top"><!--DWLayoutEmptyCell--> </td>
<td width="12" valign="middle" align="center"><img src="img/arrow.gif" width="7" height="9"></td>
<td width="150" valign="middle"><a href="ShopNew.asp?Num=201&title=新店开张"><%=rs("SmallClassName")%></a></td>
</tr>
<%
rs.movenext
loop
set rs=nothing
%>
====================================

[xuzuning]

默认就有的，可能损坏了 不会修复，可以安装一下 office

[darkblue_312]

解决了，是sql语句写错了，加上on error resume next 就是网页加载超时，不知道哪错了；不加on error resume next 就说是 adodb缺少对象，把真正出错的地方掩盖了。 我就纳闷了，为什么明明不缺少，为什么还出现这个错误呢，坑死我了， 大神还是帮解释解释？

[斯洛文尼亚旅游]

set rs=Server.CreateObject("adodb.recordset") 要用“”括起

[hefeng_aspnet]

开发阶段尽量不要用on error resume next 不利于调试

[明珠佩佩]

引用 3 楼 showbo 的回复:

set rs=Server.CreateObject("adodb.recordset") 要用“”括起

基本的语法问题！

[斯洛文尼亚旅游]

引用 2 楼 darkblue_312 的回复:

解决了，是sql语句写错了，加上on error resume next 就是网页加载超时，不知道哪错了；不加on error resume next 就说是 adodb缺少对象，把真正出错的地方掩盖了。 我就纳闷了，为什么明明不缺少，为什么还出现这个错误呢，坑死我了， 大神还是帮解释解释？

还有在开发阶段不要用on error resume next这个，要不出错了都不知道哪里出错 要开发调试完毕了了在启用on error这个，这样对用户友好一些，不会显示错误信息给客户看