关于ASP的错误类型：(0x80020009)发生意外。

Question

请高手帮忙解决一个问题！我搞了半天找不到原因！！谢谢！！
<%
set rs1=Server.CreateObject("ADODB.Recordset")
sql="select * from bbstz where bbsid<11 and rc>999 order by tm desc"
rs1.open sql,conn,1,3
if not rs1.eof then
Response.write "===论坛强贴===<br/>"
for i=0 to 2
Response.write "强:<a href='bbs_view.asp?tid=" & rs1("id") & "&hk="&hk&"'>" & rs1("name") & "</a><br/>"
'rs1.movenext 此处用上就出现：错误类型:(0x80020009)发生意外
next
end if
rs1.close
set rs1=nothing
%>

Answer 1

for i=0 to 2
Response.write "强:<a href='bbs_view.asp?tid=" & rs1("id") & "&hk="&hk&"'>" & rs1("name") & "</a><br/>"
'rs1.movenext 此处用上就出现：错误类型:(0x80020009)发生意外
next

改为
do while not rs1.eof
Response.write "强:<a href='bbs_view.asp?tid=" & rs1("id") & "&hk="&hk&"'>" & rs1("name") & "</a><br/>"
rs1.movenext
loop

Answer 2

改成这个看看，估计你移动的时候rs1已经到底了
for i=0 to 2
Response.write "强:<a href='bbs_view.asp?tid=" & rs1("id") & "&hk="&hk&"'>" & rs1("name") & "</a><br/>"
rs1.movenext
if not rs1.eof then
next
else
EXIT FOR
end if

Answer 3

<%
set rs1=Server.CreateObject("ADODB.Recordset")
sql="select * from bbstz where bbsid<11 and rc>999 order by tm desc"
rs1.open sql,conn,1,3
if not rs1.eof then
Response.write "===论坛强贴===<br/>"
for i=0 to 2
Response.write "强:<a href='bbs_view.asp?tid=" & rs1("id") & "&hk="&hk&"'>" & rs1("name") & "</a><br/>"
'rs1.movenext 此处用上就出现：错误类型:(0x80020009)发生意外
next
end if
rs1.close
set rs1=nothing
%>

改为：
<%
set rs1=Server.CreateObject("ADODB.Recordset")
sql="select * from bbstz where bbsid<11 and rc>999 order by tm desc"
rs1.open sql,conn,1,3
if not rs1.eof then
Response.write "===论坛强贴===<br/>"
dim i
while not i <3
Response.write "强:<a href='bbs_view.asp?tid=" & rs1("id") & "&hk="&hk&"'>" & rs1("name") & "</a><br/>"
i=i+1
wend
end if
rs1.close
set rs1=nothing
%>