oppor9耳机设置在哪里:ADODB.Field (0x800A0BCD)BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除？

代码如下：
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connLOOK.asp" -->
<%
Dim rsSubject
Dim rsSubject_numRows

Set rsSubject = Server.CreateObject("ADODB.Recordset")
rsSubject.ActiveConnection = MM_connLOOK_STRING
rsSubject.Source = "SELECT * FROM tNewsSubject ORDER BY fSubjectID ASC"
rsSubject.CursorType = 0
rsSubject.CursorLocation = 2
rsSubject.LockType = 1
rsSubject.Open()

rsSubject_numRows = 0
%>
<%
Dim rsCurrentSubject__iNewsID
rsCurrentSubject__iNewsID = "1"
If (Request.Querystring("rqSubjectID") <> "") Then
rsCurrentSubject__iNewsID = Request.Querystring("rqSubjectID")
End If
%>
<%
Dim rsCurrentSubject
Dim rsCurrentSubject_numRows

Set rsCurrentSubject = Server.CreateObject("ADODB.Recordset")
rsCurrentSubject.ActiveConnection = MM_connLOOK_STRING
rsCurrentSubject.Source = "SELECT fSubjectName FROM tNewsSubject WHERE fSubjectID=" + Replace(rsCurrentSubject__iNewsID, "'", "''") + ""
rsCurrentSubject.CursorType = 0
rsCurrentSubject.CursorLocation = 2
rsCurrentSubject.LockType = 1
rsCurrentSubject.Open()

rsCurrentSubject_numRows = 0
%>
<%
Dim rNews__iCurrentSubID
rNews__iCurrentSubID = "1"
If (Request.Querystring("rqSubjectID") <> "") Then
rNews__iCurrentSubID = Request.Querystring("rqSubjectID")
End If
%>
<%
Dim rNews
Dim rNews_numRows

Set rNews = Server.CreateObject("ADODB.Recordset")
rNews.ActiveConnection = MM_connLOOK_STRING
rNews.Source = "SELECT fTopic, fNewsID FROM tNews WHERE fSubjectID=" + Replace(rNews__iCurrentSubID, "'", "''") + " ORDER BY fDate DESC"
rNews.CursorType = 0
rNews.CursorLocation = 2
rNews.LockType = 1
rNews.Open()

rNews_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsSubject_numRows = rsSubject_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = 5
Repeat2__index = 0
rNews_numRows = rNews_numRows + Repeat2__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
接着下一部分代码在上面的问题的补充说明里，谢谢高手帮帮