DB Paging not working

[M P]

Whats wrong with my code? I have my AccessDB with 1000 records on tblItems.
When I try to write the Pagecount on the screen, it writes "-1". Hope you
might help.

<%
Set conn= Server.CreateObject("ADODB.Connection")
conn.Open "FileDSN=file.dsn"

strSQL = "SELECT * FROM tblItems ORDER BY Category "

strPageSize= 20

Set objPagingRS = Server.CreateObject("ADODB.Recordset")
ObjPagingRS.PageSize = strPageSize
ObjPagingRS.CacheSize = strPageSize
ObjPagingRS.Open strSQL, conn

strPageCount= ObjPagingRS.PageCount


Response.Write "<BR>"
Response.Write "Page Size is " & strPageSize
Response.Write "<BR>"
Response.Write "Page Count is " & strPageCount
Response.Write "<BR>"
Response.Write "Current Page is " & strPageCurrent
Response.Write "<BR>"

..
..
..

%>

[Bullschmidt]

I wonder if an adOpenStatic (3) instead of the default adOpenForwardOnly
(0) CursorType would help as is used here:

Database Paging
[url]http://www.asp101.com/samples/db_paging.asp[/url]
Uses PageSize method of recordset.

Best regards,
J. Paul Schmidt, Freelance ASP Web Designer
[url]http://www.Bullschmidt.com[/url]
ASP Designer Tips, ASP Web Database Demo, Free ASP Bar Chart Tool...


*** Sent via Devdex [url]http://www.devdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!

[Aaron [SQL Server MVP]]

[url]http://www.aspfaq.com/2120[/url] (paging methods)
[url]http://www.aspfaq.com/2126[/url] (get rid of the DSN)
[url]http://www.aspfaq.com/2096[/url] (don't use SELECT *)

--
[url]http://www.aspfaq.com/[/url]
(Reverse address to reply.)




"M P" <mark@textguru.ph> wrote in message
news:eWeHXbbWEHA.3472@TK2MSFTNGP09.phx.gbl...

> Whats wrong with my code? I have my AccessDB with 1000 records on

tblItems.

> When I try to write the Pagecount on the screen, it writes "-1". Hope you
> might help.
>
> <%
> Set conn= Server.CreateObject("ADODB.Connection")
> conn.Open "FileDSN=file.dsn"
>
> strSQL = "SELECT * FROM tblItems ORDER BY Category "
>
> strPageSize= 20
>
> Set objPagingRS = Server.CreateObject("ADODB.Recordset")
> ObjPagingRS.PageSize = strPageSize
> ObjPagingRS.CacheSize = strPageSize
> ObjPagingRS.Open strSQL, conn
>
> strPageCount= ObjPagingRS.PageCount
>
>
> Response.Write "<BR>"
> Response.Write "Page Size is " & strPageSize
> Response.Write "<BR>"
> Response.Write "Page Count is " & strPageCount
> Response.Write "<BR>"
> Response.Write "Current Page is " & strPageCurrent
> Response.Write "<BR>"
>
> .
> .
> .
>
> %>
>
>