我本来是这样的代码:怎么改?
dim rs1,sql1
Set rs1= Server.CreateObject("ADODB.recordset")
sql="select * from ccc_love where cpassed=true order by cid desc"
rs.open sql,conn,1,1
sql1="select * from config"
rs1.open sql1,conn,1,1
pages=Request("pages")
if pages="" then
pages=1
else
pages=cint(pages)
end if
if pages<1 then pages=1
rs.PageSize=100
if rs.recordcount>0 then
if pages>rs.PageCount then pages=rs.PageCount
rs.AbsolutePage=pages
end if