高分求救-----急！！！！！大家帮我看下什么问题，缺少对象

[bearsz]

各位兄弟帮我看看吧，急死了，最近要改东西，我没怎么学过，以前站点有一个查询数据库的页面，我把他的ASP代码和格式复制到新的站点下，原来的数据库也复制到了新的下面，连接文件是conn.asp，原来的可以正常查询的，现在的无论怎么样都打不开原来的那个数据库，提示

Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: 'rs'

页面的部分代码： <%
page=request.querystring("page")
if page="" then page=1
if not(isnumeric(page)) then page=1
if page<1 then page=1
page=int(page)

sql="select * from hp order by hp_id DESC"
rs.open sql,conn,3,3 //到这一行出错
if rs.eof then
%>

打开数据库的文件conn.asp：
<%
dim conn
dim connstr
dim db
db="db/a.asp" //改的后缀
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>

[zhutimy]

Set rs = Server.CreateObject("ADODB.RecordSet")
没有创建记录集;
在rs.open sql,conn,3,3 //到这一行出错之前加入上面

[数通网络]

上面正解

[bearsz]

谢谢两位啊
解决了，我好菜啊，见笑了
不过弱弱的问一句，怎么原来里面也没有怎么就可以打开的呢

[zhutimy]

没有仔细看看,应该也有的.如果没有,那就是隐式创建了rs