海南火山口地质公园门票:快啊，帮忙看一下，少那些对象

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

下面这些是查全部代码
<%
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") '内容
%>
<%
dim RS
response.write "<br>       总计留言"&RS.RecordCount&"条 "
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href="&request.ServerVariables("script_name")&"?page=1>首页</a> <a href="&request.ServerVariables("script_name")&"?page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href="&request.ServerVariables("script_name")&"?page="&page+1&">下页</a> <a href="&request.ServerVariables("script_name")&"?page="&allpages&">末页</a>"
end if
Loop
response.write " 第"&page&"页 共"&allpages&"页 "
我是说最上面这句代码缺少那些对象