ASP缺少对象错误，急！！！

Question

<%
Dim Admin, UPwd,Rs,v_logdate,logSqlv_logdate = Date()Admin = Trim(Request.Form("admin"))
UPwd = Trim(Request.Form("UserPassword"))Set Rs=server.CreateObject("adodb.recordset")
logSql = "select * from Tb_Operlog where OperType='用户登录' and OperRen = '"&Admin&"' and OperRes =0 and (regtime Between '"&v_logdate&"' and '"&v_logdate&" 23:59:59')"
Response.Write(logSql)
Rs1.Open logSql,conn,1,1
%>这段代码，运行的时候，提示
select * from Tb_Operlog where OperType='用户登录' and OperRen = 'litao' and OperRes =0 and (regtime Between '2009-4-30' and '2009-4-30 23:59:59') 
Microsoft VBScript 运行时错误 错误 '800a01a8' 缺少对象: '' /RootSystem/checkadmin.asp，行 （最后这个，Rs1.Open logSql,conn,1,1）

Answer 1

你Set Rs=server.CreateObject("adodb.recordset") 
而后面用Rs1.Open
Rs1改为Rs

Answer 2

发现问题：set conn=server.createObject("adodb.connection")
conn.open "打开数据库的字符串"Set Rs1=server.CreateObject("adodb.recordset") Rs1.Open logSql,conn,1,1 

Answer 3

regtime Between '2009-4-30' and '2009-4-30 23:59:59'
改成
regtime Between #2009-4-30# and #2009-4-30 23:59:59#

Answer 4

    恩，是这个原因，，怪我粗心了，，顺便问一下，，，RS的大小事count还是size ?