paging recordsets

[Andy]

can anyone tell me whats wrong with this it puts out the first page of the
records but i can't get it to cycle through them upon pressing next


if request.ServerVariables("CONTENT_LENGTH")=0 then
cpage=1
else
cpage=cint(request.Form("cpage"))
' response.write cpage

select case request.Form("Submit")
case "Previous"
cpage=cpage-1
case "Next"
cpage=cpage+1
response.Write cpage
end select
end if

set objrs=server.CreateObject("ADODB.Recordset")

objrs.CursorLocation=aduseClient
objrs.CursorType=adOpenStatic
objrs.cacheSize=intpagesize
strQ="select * from book where allow=yes order by id desc"
objrs.open strQ,conn,,,adCmdText

objrs.pagesize=intpagesize

if not(objrs.eof) then objrs.AbsolutePage=cpage
totalpages=objrs.pagecount
for intI=1 to objrs.pagesize

<<<-----------snipped response.write output table contents

objrs.movenext
if objrs.eof then exit for
next
objrs.close
response.write "<br>" &vbcrlf&"page:" &cpage &" of " & totalpages &"<p>"

%>
<form action="<%= request.ServerVariables("SCRIPT_NAME") %>"method="post">
<input type="hidden" name="currentpage" value="<%= cpage %>">
<%
if cpage >1 then
%>
<input type="Submit" name="Submit" value="Previous">
<%
end if
if cpage <>totalpages then
%>
<input type="Submit" name="Submit" value="Next">
<%
end if

[Troy Stark]

The hidden variable name you pass is not cpage, its currentpage
either:
cpage= cint(request.form("currentpage"))
or
change the name in the hidden field to cpage.


"Andy" <andy@jarrow_online.com> wrote in message
news:bjb4lq$tu6$1@news6.svr.pol.co.uk...

> can anyone tell me whats wrong with this it puts out the first page of the
> records but i can't get it to cycle through them upon pressing next
>
>
> if request.ServerVariables("CONTENT_LENGTH")=0 then
> cpage=1
> else
> cpage=cint(request.Form("cpage"))
> ' response.write cpage
>
> select case request.Form("Submit")
> case "Previous"
> cpage=cpage-1
> case "Next"
> cpage=cpage+1
> response.Write cpage
> end select
> end if
>
> set objrs=server.CreateObject("ADODB.Recordset")
>
> objrs.CursorLocation=aduseClient
> objrs.CursorType=adOpenStatic
> objrs.cacheSize=intpagesize
> strQ="select * from book where allow=yes order by id desc"
> objrs.open strQ,conn,,,adCmdText
>
> objrs.pagesize=intpagesize
>
> if not(objrs.eof) then objrs.AbsolutePage=cpage
> totalpages=objrs.pagecount
> for intI=1 to objrs.pagesize
>
> <<<-----------snipped response.write output table contents
>
> objrs.movenext
> if objrs.eof then exit for
> next
> objrs.close
> response.write "<br>" &vbcrlf&"page:" &cpage &" of " & totalpages &"<p>"
>
> %>
> <form action="<%= request.ServerVariables("SCRIPT_NAME") %>"method="post">
> <input type="hidden" name="currentpage" value="<%= cpage %>">
> <%
> if cpage >1 then
> %>
> <input type="Submit" name="Submit" value="Previous">
> <%
> end if
> if cpage <>totalpages then
> %>
> <input type="Submit" name="Submit" value="Next">
> <%
> end if
>
>