gre满分是多少分:ADODB.Recordset 错误 '800a0bcd'

StrSql = "SELECT sf_thread.threadid, sf_thread.replycount, sf_thread.title FROM sf_thread ORder by sf_thread.replycount desc;"
Set toprs = server.CreateObject("ADODB.RecordSet")
toprs.Open StrSql, Conn, 1, 1
toprs.PageSize =10
toprs.AbsolutePage = 1
if toprs.bof or toprs.eof then
response.write "sf cannot be initialized. (010)"
response.end
else
toprs.movefirst
for i=1 to 10
if toprs.eof then
StrHtml = Replace(StrHtml, "{top" & i & "}","<img src=""style/" & loadtemplate("path") & "/image/next.gif"" border=""0""> 暂无")
StrHtml = Replace(StrHtml, "{top" & i & "count}","<span class=""topcount"">(0)</span>" )
else
StrHtml = Replace(StrHtml, "{top" & i & "}","<img src=""style/" & loadtemplate("path") & "/image/next.gif"" border=""0""> <a href=""showthread.asp?threadid=" & toprs("threadid") & """>" & toprs("title") & "</a>" )
StrHtml = Replace(StrHtml, "{top" & i & "count}","<span class=""topcount"">(" & toprs("replycount") & ")</span>" )
toprs.movenext
end if
next
end if
toprs.close
set toprs=nothing
谁能帮我看一下，哪里出错了？
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

/bbs/showcate.asp，行 6