Forums
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...
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
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