教育金保险一般多少钱:帮忙看一下缺少那些对象

response.write "<br>       总计留言"&RS.RecordCount&"条 "

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
<%
Set rsc=Server.Createobject("ADODB.Recordset")
dim sql
sql="select * from Feedback where online='1' order by Postdate desc"
rsc.open "Select * from guest",conn,1,1
if rsc.eof and rsc.bof then response.redirect "untitled1.asp"
dim pages
if pages=0 or pages="" then pages=10 '每页留言条数
rsc.pageSize = pages '每页记录数
dim allPages
allPages = rsc.pageCount '总页数
dim page
page = Request("page") '从浏览器取得当前页
'if是基本的出错处理

If not isNumeric(page) then page=1

if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) >= allPages then
page = allPages
end if
rsc.AbsolutePage = page '转到某页头部
Do While Not rsc.eof and pages>0
dim xm
xm=rsc("xm") '用户名
dim qq
qq=rsc("qq") 'qq
dim email
email=rsc("email") '邮件
dim lymy
lymy=rsc("lymy") '内容
%>
这些就是查数据库的

这个什么声明我不知道是什么哦，应该没有创吧，帮帮我啊