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>"

..
..
..

%>

[Aaron [SQL Server MVP]]

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

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


"M P" <ma**@textguru.ph> wrote in message
news:eW**************@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>"

.
.
.

%>