venom — Thu, 28 Feb 2002 22:05:17 +0000

Thank you peter for all you help. I also had to move

For intRecord = 1 To objrs.PageSize
objrs.MoveNext
If objrs.EOF Then Exit For

to under:

ELSE Response.Write "Sorry, there are no records in our database.

Again thanks for you help.

Peter J. Boettcher — Thu, 28 Feb 2002 14:04:50 +0000

Just realized something! For the paging to work you have to move this line:

objrs.AbsolutePage = intPage

Under this line:

IF Not objRS.EOF THEN

Then everything should work! Your query was executing before it knew what page it was on, so it was always on the first page.

detox — Thu, 28 Feb 2002 13:44:05 +0000

paging was working fine when I went to that link....

venom — Wed, 27 Feb 2002 22:53:09 +0000

Ok, that worked but now it will not go onto the next set of records.. page and be viewed here.. http://www.finalphase.org/testsites/crazy/test.asp

Peter J. Boettcher — Wed, 27 Feb 2002 14:21:35 +0000

Venom,

It looks like you're executing the complete Recordset, try changing this line:

Do WHILE NOT objRS.EOF

To:

Do While recCount < objrs.PageSize AND Not objRS.EOF

You will have to change your objRS.PageSize to 12 if you want to show 3x3, otherwise you will only get 3x1.

venom — Wed, 27 Feb 2002 10:54:56 +0000