Please Explain? use of Pages/lists with VBS

[Geo45]

Hi

I have based the following code upon a ASP101.com (

http://www.asp101.com/samples/viewasp.asp?file=db_paging.asp)

tutoral. but what i gather is the page numbers start form 1, but with this code they have started from 0

this is part of my custom forum, for my website. it accesses an ACCESS 2000 database on a win 2k machine running IIS

the forum has Area -> Forum -> Topic -> Replies

the code is taken from the Area Page this just lists the areas and links them to the relevent Forums

I made 6 areas to test the page, I loaded the page with no page number in the URL ie index.asp?page=1, i just used index.asp

it loaded but show the last 1 not the previous 5


to see it running goto

http://www.towersys.co.uk/Forums

the site is not up premenantly cos I host it myself
if you try

http://www.towersys.co.uk/Forums/?page=0

this it lists the first 5

IS THIS CORRECT??

here is the code

<% 'testing verion

dim oRS 'recordset varible
dim numPages 'the number of pages
dim mumRecords 'the total number of records
dim CPage 'the Current page
dim CRecord 'The record counter, used in the main loop
'dim Finish 'the record that the cursor finishes on
'dim Start 'the record that the cirsor starts on
dim sqlopen 'the sql statment

'to see if there is a page in the URL
if request.QueryString(&quot;page&quot = &quot;&quot; then
Cpage = 1
else
cpage = int(request.QueryString(&quot;page&quot)
end if

'SQL string
sqlopen = &quot;SELECT * FROM Area&quot;
'set Recordset object
Set oRS=Server.CreateObject(&quot;ADODB.Recordset&quot

'set recordset cursor types
oRS.CursorLocation = 3 'adUseClient
ors.CursorType = 3 'adOpenStatic

'open recordset
oRS.Open sqlopen, oConn
'setting the pagesize
oRS.pagesize = 5
'setting the cache size
oRS.cachesize = oRS.pagesize
'find the number of pages and records
numPages = cint(oRS.PageCount)
numRecords = cint(oRS.RecordCount)

'this is a failsafe. this makes sure that the Cpage is not out of
'the recordset range
'if the current page is over the total page count then change
'it to the last page
if CPage > numPage then CPage = numPages
'now if the CPage is below the the recordset
if CPage <= 0 then CPage = 1

'set the current page pointer
If numRecords > 0 Then
oRS.AbsolutePage = int(CPage)
End If

CRecord = 1
if not ors.bof or not ors.eof then
do
%>
<tr>
<td><font color=&quot;#333333&quot; size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>
<% response.write &quot;<a href=&quot; & chr(34) & &quot;forum.asp?AID=&quot; & ors.fields(&quot;aid&quot & chr(34) &&quot;>&quot; & ors.fields(&quot;Aname&quot & &quot;</a>&quot; %>
</font></td>
<td><font color=&quot;#333333&quot; size=&quot;2&quot; face=&quot;Verdana, Arial, Helvetica, sans-serif&quot;>
<% response.write ors.fields(&quot;aforumno&quot %>
</font></td>
</tr>
<%
ors.movenext
CRecord = CRecord + 1
loop until (ors.Eof) or (CRecord = oRS.pagesize)
end if
oRS=close
%>
</table>


Thanx for any help

Geo

--

the student will become the master

 

[Geo45]

Found the error

this line
if CPage > numPage then CPage = numPages

should be
if CPage > numPages then CPage = numPages

sorry for bothering anyone

Geo

--

the student will become the master