Wrox Programmer Forums
| Search | Today's Posts | Mark Forums Read
Classic ASP Databases Discuss using ASP 3 to work with data in databases, including ASP Database Setup issues from the old P2P forum on this specific subtopic. See also the book forum Beginning ASP.NET Databases for questions specific to that book. NOT for ASP.NET 1.0, 1.1, or 2.0.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Classic ASP Databases section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
  #1 (permalink)  
Old June 16th, 2005, 07:22 AM
Authorized User
 
Join Date: Nov 2004
Location: CHENNAI, TamilNadu, India.
Posts: 21
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via Yahoo to tks_muthu
Default ADODB.Recordset (0x800A0CB3)Current Recordset does

Hi!
i develop a web page using asp and mysql. when i am using the paging concept i face the following error :

ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.


plz rectify and explain me.

my code :

<%
dim cnConn,rsProd
dim rsStr,totRec
set cnConn=server.CreateObject("ADODB.Connection")
set rsProd=server.CreateObject("ADODB.Recordset")
rsStr="Select * from product_details ORDER BY prod_id"
cnConn.Mode=3

(I wrote the Connection string in global.asa)

cnConn.open Application("cnstr")
rsProd.Open rsStr,cnConn,3,3 %>

<form name="frmProdAdmin" method="post">
<%
Dim pg,ini,fin,intCount,remin
pg=Request("pg")
%>

<INPUT TYPE="HIDDEN" NAME="pg" value="<% =pg%>">

<%

if pg="" then
            pg=1
            ini=pg
            fin=ini+9
end if

        intCount = 0

'Total No of Records Per Page
rsProd.pagesize=2

if rsProd.EOF=false thenrsProd.AbsolutePage=cInt(pg)
            if rsProd.EOF then
                    pg=pg-1
                    rsProd.AbsolutePage=cInt(pg)
            else
                    pg=cint(pg)
                    rsProd.AbsolutePage=cInt(pg)
            end if
end if

if rsProd.pagecount > 1 then

        if pg=1 or ((pg-1) mod 10) <> 0 then
            if len(pg)>1 then
                remin=(pg mod 10)
                if remin = 0 then
                               ini=pg-9
                    else
                                ini=(pg-remin)+1
                end if
                    fin=ini+9

            else
                        ini=1
                        fin=ini+9
            end if

        else
                    ini=pg
                    fin=ini+9
    end if


    if fin > rsProd.pagecount then
                fin=rsProd.pagecount
    end if

    if len(ini) > 1 then
            prev=ini-10
            %>

<A href="index.asp?pg=<%=prev%>">
Prev</a>&nbsp;&nbsp;
<%end if

for i= ini to fin
if i<> cINT(pg) then%>
<A href="index.asp?pg=<%=i%>">
<%=i%></a>&nbsp;&nbsp;
<% else
response.write "" &i& "&nbsp;&nbsp;"
end if
next

if fin < rsProd.pagecount then
fin=fin+1%>

<A href="admin.asp?pg=<%=fin%>">
Next</a>&nbsp;&nbsp;
<% end if
end if%>



Muthu
__________________
Muthu


Similar Threads
Thread Thread Starter Forum Replies Last Post
ADODB.Recordset (0x800A0CB3) hbansal Classic ASP Databases 3 June 28th, 2008 01:38 AM
ADODB.Recordset (0x800A0BB9) knight Classic ASP Databases 3 November 9th, 2006 05:08 AM
ADODB Recordset sporkman43 Classic ASP Basics 4 November 9th, 2006 04:51 AM
How to get adodb.record from adodb.recordset John Pennington Pro VB Databases 1 November 20th, 2004 06:17 AM
ADODB connection for Recordset dpatole Beginning VB 6 1 October 14th, 2003 04:24 PM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.