Forums

ASP

This topic is locked

ADODB.Recordset error '800a0bcd'

Posted 24 Aug 2006 22:59:21
1
has voted
24 Aug 2006 22:59:21 Robert Peters posted:
SOS.... I have been attempting to correct this error for a couple days now, and am getting closer to the end of my rope... Can anyone help? Anyone please? Thankyou kindly!

I have been recieving this error message:

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/timeshare-list.asp, line 33

This is where the problem lies.

<%
Set Rs = Con.Execute("SELECT Resort FROM tblResort WHERE ResortID = " & ResortID)
If Not Rs.EOF Then
Resort = Rs.Fields(0).Value
End If

Set Rs = Server.CreateObject("ADODB.Recordset"
SQL = "EXEC xxxxxxxxx
Rs.PageSize = 5
Rs.CacheSize = 5
Rs.CursorLocation = 3
Rs.CursorType = 3
Rs.Open SQL, Con
pageCount = Rs.PageCount
recordCount = Rs.RecordCount

rsPage = CInt(Request("page")
If IsNumeric(rsPage) Then
If rsPage > pageCount Then
Rs.AbsolutePage = pageCount
ElseIf rsPage < 1 Then
rsPage = 1
Rs.AbsolutePage = 1
Else
Rs.AbsolutePage = rsPage
End If
(Line 33 here)
Else
rsPage = 1
Rs.AbsolutePage = 1

End If
%>


Edited by - rpete007 on 24 Aug 2006 23:35:37

Replies

Replied 25 Aug 2006 18:43:29
25 Aug 2006 18:43:29 Mitchel Tendler replied:
What is the code on lin 33?
Replied 25 Aug 2006 22:21:37
25 Aug 2006 22:21:37 Robert Peters replied:
sorry, that was a sad attempt at pointing out line 33. which is one line above the second "else". line 33 looks like this Rs.AbsolutePage = 1
thanks again...
Replied 27 Aug 2006 03:27:10
27 Aug 2006 03:27:10 camilo ospina molano replied:
Hi,

The problem is that you must validate that when there aren't none record don't make the abosultePage for example share it...

<% if rs("Resort "<>"" then
Rs.AbsolutePage = 1
end if
%>

Greetings

Share it, and tell me please

Camilo Ospina Molano
Web Developer

Reply to this topic