redant34jessica
2009-04-01 18:34:13 UTC
I'm not well versed in ASP. I have one page where I have 3 regions Two are
recordsets. THe other is text that says "sorry no items at this time" THe two
recordsets are filtered by the URL parameter. the recordsets show up correctly
when the parameter is passed. THe "sorry no items at this time" brings up the
error:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested
operation requires a current record.
IS there a way to get these 3 items to work together using IF
<% If rsAllType.EOF And rsAllType.BOF Then %>
<div><p>
<span class="subtitle">
<%=(rsAllCourses.Fields.Item("Type").Value)%> <%=(rsAllCourses.Fields.Ite
m("SubType").Value)%> Courses
</span><br /><br />
<% While ((Repeat4__numRows <> 0) AND (NOT rsAllCourses.EOF)) %>
<span class="boldgray">
<a href="CourseDetail.asp?<%= Server.HTMLEncode(MM_keepURL) &
MM_joinChar(MM_keepURL) & "CourseID=" &
rsAllCourses.Fields.Item("CourseID").Value %>">
<%=(rsAllCourses.Fields.Item("Title").Value)%></a></span>
<br />
<%=(rsAllCourses.Fields.Item("Description").Value)%><br />
<span
class="bold">Prerequisites: </span><%=(rsAllCourses.Fields.Item("Prerequisi
tes").Value)%>
<br /><br />
<% Repeat4__index=Repeat4__index+1
Repeat4__numRows=Repeat4__numRows-1
rsAllCourses.MoveNext()
Wend %>
</p></div>
<% End If ' end rsAllType.EOF And rsAllType.BOF %>
<% If rsAllCourses.EOF And rsAllCourses.BOF Then %>
<div>
<span
class="subtitle"><%=(rsType.Fields.Item("Type").Value)%> <%=(rsSubType.Fiel
ds.Item("SubType").Value)%> Courses</span><br />
<br />
No classes at this time, please check back soon. <br />
</p>
</div>
<% End If ' end rsAllCourses.EOF And rsAllCourses.BOF %>
<% If Not rsAllType.EOF Or Not rsAllType.BOF Then %>
<p>
<span class="subtitle">All Courses</span><span class="boldgray"> <br />
<br />
Listed
Alphabetically</span> <a
href="<%=MM_movePrev%>"><< Previous</a>
<a href="<%=MM_moveNext%>">Next >></a><br />
<br />
</p>
<%
While ((Repeat5__numRows <> 0) AND (NOT rsAllType.EOF)) %>
<div>
<p>
<span class="boldgreen">
<%=(rsAllType.Fields.Item("Title").Value)%></span><br />
<%=(rsAllType.Fields.Item("Description").Value)%><br />
<span
class="bold">Prerequisites: </span><%=(rsAllType.Fields.Item("Prerequisites
").Value)%><br />
<span
class="bold">Category: </span><%=(rsAllType.Fields.Item("Type").Value)%><br
/>
<span
class="bold">Curriculum:</span><%=(rsAllType.Fields.Item("SubType").Value)%><br
/>
<br /></p>
</div>
<% Repeat5__index=Repeat5__index+1
Repeat5__numRows=Repeat5__numRows-1
rsAllType.MoveNext()
Wend %>
<% End If ' end Not rsAllType.EOF Or NOT rsAllType.BOF %>
recordsets. THe other is text that says "sorry no items at this time" THe two
recordsets are filtered by the URL parameter. the recordsets show up correctly
when the parameter is passed. THe "sorry no items at this time" brings up the
error:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested
operation requires a current record.
IS there a way to get these 3 items to work together using IF
<% If rsAllType.EOF And rsAllType.BOF Then %>
<div><p>
<span class="subtitle">
<%=(rsAllCourses.Fields.Item("Type").Value)%> <%=(rsAllCourses.Fields.Ite
m("SubType").Value)%> Courses
</span><br /><br />
<% While ((Repeat4__numRows <> 0) AND (NOT rsAllCourses.EOF)) %>
<span class="boldgray">
<a href="CourseDetail.asp?<%= Server.HTMLEncode(MM_keepURL) &
MM_joinChar(MM_keepURL) & "CourseID=" &
rsAllCourses.Fields.Item("CourseID").Value %>">
<%=(rsAllCourses.Fields.Item("Title").Value)%></a></span>
<br />
<%=(rsAllCourses.Fields.Item("Description").Value)%><br />
<span
class="bold">Prerequisites: </span><%=(rsAllCourses.Fields.Item("Prerequisi
tes").Value)%>
<br /><br />
<% Repeat4__index=Repeat4__index+1
Repeat4__numRows=Repeat4__numRows-1
rsAllCourses.MoveNext()
Wend %>
</p></div>
<% End If ' end rsAllType.EOF And rsAllType.BOF %>
<% If rsAllCourses.EOF And rsAllCourses.BOF Then %>
<div>
<span
class="subtitle"><%=(rsType.Fields.Item("Type").Value)%> <%=(rsSubType.Fiel
ds.Item("SubType").Value)%> Courses</span><br />
<br />
No classes at this time, please check back soon. <br />
</p>
</div>
<% End If ' end rsAllCourses.EOF And rsAllCourses.BOF %>
<% If Not rsAllType.EOF Or Not rsAllType.BOF Then %>
<p>
<span class="subtitle">All Courses</span><span class="boldgray"> <br />
<br />
Listed
Alphabetically</span> <a
href="<%=MM_movePrev%>"><< Previous</a>
<a href="<%=MM_moveNext%>">Next >></a><br />
<br />
</p>
<%
While ((Repeat5__numRows <> 0) AND (NOT rsAllType.EOF)) %>
<div>
<p>
<span class="boldgreen">
<%=(rsAllType.Fields.Item("Title").Value)%></span><br />
<%=(rsAllType.Fields.Item("Description").Value)%><br />
<span
class="bold">Prerequisites: </span><%=(rsAllType.Fields.Item("Prerequisites
").Value)%><br />
<span
class="bold">Category: </span><%=(rsAllType.Fields.Item("Type").Value)%><br
/>
<span
class="bold">Curriculum:</span><%=(rsAllType.Fields.Item("SubType").Value)%><br
/>
<br /></p>
</div>
<% Repeat5__index=Repeat5__index+1
Repeat5__numRows=Repeat5__numRows-1
rsAllType.MoveNext()
Wend %>
<% End If ' end Not rsAllType.EOF Or NOT rsAllType.BOF %>