DaniWeb Forum Index > Web Development > ASP

ASP paging

Please support our ASP advertiser: PostgreSQL or MySQL? Compare and contrast the two most popular open source databases

•

Join Date: Jul 2005

Posts: 3

Reputation: paru is an unknown quantity at this point

Solved Threads: 0

paru

Offline

Newbie Poster

ASP paging

Aug 1st, 2005

HI ..
any one of you people can help me in asp paging..
Its actually a knowledge base link in which i am displaying the records
based on the filtering we want.it dispalys the records but where to include the paging code...
i got some code from net..
but its not displaying properly....

•

Join Date: Mar 2005

Posts: 131

Reputation: william_stam is an unknown quantity at this point

Solved Threads: 2

william_stam william_stam is offline

Offline

Junior Poster

Re: ASP paging

Aug 1st, 2005

inside the loop after the stuff to be shown ie

<% do while recordset <> bof and recordset <> eof

your recordset fields

recordset.movenext (cant remember exact code)#

loop %>

•

Join Date: Jul 2005

Posts: 3

Reputation: paru is an unknown quantity at this point

Solved Threads: 0

paru

Offline

Newbie Poster

Re: ASP paging

Aug 2nd, 2005

No..
See for recordset there are some properties like how many records to be displayed in a single page if we click next it has to show the second page.(that means second set of records)....

•

Join Date: Jun 2005

Posts: 107

Reputation: madmital is an unknown quantity at this point

Solved Threads: 3

madmital

Offline

Junior Poster

Re: ASP paging

Aug 11th, 2005

This' from an old guest book i wrote.
Not the most stream lined code ever, but should give you an idea....

 Help with Code Tags 
 ASP Syntax (Toggle Plain Text) 
<%
Dim adoCon 			
Dim rsGuestbook
Dim strSQL
Dim adoCon1
Dim strEmail
Dim strSQL1
Dim rsEmail
Dim testv
Dim test1
Dim intRecordspp
Dim intTotalRecords
Dim intTotalPages
Dim intPageNum
Dim strBlah1
Dim strBlah2
 
If Request.QueryString("rpp") = "" Then
	intRecordspp = 10
Else
	intRecordspp = CInt(Request.QueryString("rpp"))
End If
 
If Request.QueryString("PageNumber") = "" Then
	intPageNum = 1
Else
	intPageNum = CInt(Request.QueryString("PageNumber"))
End If	
 
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Driver={mySQL};......
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Name, Comments, Date_stamp FROM users ORDER BY Date_stamp DESC;"
rsGuestbook.CursorType = 3
rsGuestbook.Open strSQL, adoCon
rsGuestbook.PageSize = intRecordspp
 
If NOT rsGuestbook.EOF Then rsGuestbook.AbsolutePage = intPageNum
intTotalRecords = rsGuestbook.RecordCount
intTotalPages = rsGuestbook.PageCount
%>
<A NAME="top">
<TABLE CELLPADDING=10 CELLSPACING=0 BORDER=0 WIDTH="100%">
	<TR>
		<TD>Guestbook currently holds <B><%=intTotalRecords%></B> comments.<BR><A HREF="addcom.asp">Add comment</A>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH="100%">
<TR><TD></TD><TD align="right">Page <%= intPageNum%> of <%= intTotalPages%>
<BR>
<%
If intPageNum = 1 Then
Else %>
<A HREF="gb.asp?PageNumber=<%= intPageNum -1%>&rpp=<%= Request.QueryString("rpp")%>">Back</A>
<%
End If
%>
 
<% If intPageNum < intTotalPages Then %>
<A HREF="gb.asp?PageNumber=<%= intPageNum +1%>&rpp=<%= Request.QueryString("rpp")%>">Next</A>
<%
Else
End If
%>
</TD></TR></TABLE><p>
<% 
for strBlah2 = 1 to intRecordspp
if Not rsGuestbook.EOF Then
 
%>
 
<TABLE WIDTH="100%" CELLPADDING=1 CELLSPACING=0 BORDER=0>
  <TR>
    <TD CLASS="field">
      <TABLE WIDTH="100%" CELLPADDING=2 CELLSPACING=0 BORDER=0>
        <TR>
          <TD CLASS="border">Comment posted by <B><%= rsGuestbook("Name") %></B></TD>
 
        </TR>
        <TR>
          <TD><BR><%= rsGuestbook("Comments") %><P></TD>
        </TR>
	<TR>
	  <TD align=right><%= rsGuestbook("Date_stamp") %></TD>
	</TR>
      </TABLE>
    </TD>
  </TR>
</TABLE>
 
<BR>
<%
	rsGuestbook.MoveNext
End If
Next
 
'Reset server objects
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
Set adoCon1 = Nothing 
Set rsEmail = Nothing
%>
<P align=right><A HREF="#top">Top</A><BR>&nbsp<BR>
Page <%= intPageNum%> of <%= intTotalPages%>
<BR>
<%
If intPageNum = 1 Then
Else %>
<A HREF="gb.asp?PageNumber=<%= intPageNum -1%>&rpp=<%= Request.QueryString("rpp")%>">Back</A>
<%
End If
%>
 
<% If intPageNum < intTotalPages Then %>
<A HREF="gb.asp?PageNumber=<%= intPageNum +1%>&rpp=<%= Request.QueryString("rpp")%>">Next</A>
<%
Else
End If
%>
 
<%
Dim adoCon 			
Dim rsGuestbook
Dim strSQL
Dim adoCon1
Dim strEmail
Dim strSQL1
Dim rsEmail
Dim testv
Dim test1
Dim intRecordspp
Dim intTotalRecords
Dim intTotalPages
Dim intPageNum
Dim strBlah1
Dim strBlah2

If Request.QueryString("rpp") = "" Then
	intRecordspp = 10
Else
	intRecordspp = CInt(Request.QueryString("rpp"))
End If

If Request.QueryString("PageNumber") = "" Then
	intPageNum = 1
Else
	intPageNum = CInt(Request.QueryString("PageNumber"))
End If	

Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Driver={mySQL};......
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Name, Comments, Date_stamp FROM users ORDER BY Date_stamp DESC;"
rsGuestbook.CursorType = 3
rsGuestbook.Open strSQL, adoCon
rsGuestbook.PageSize = intRecordspp

If NOT rsGuestbook.EOF Then rsGuestbook.AbsolutePage = intPageNum
intTotalRecords = rsGuestbook.RecordCount
intTotalPages = rsGuestbook.PageCount
%>
<A NAME="top">
<TABLE CELLPADDING=10 CELLSPACING=0 BORDER=0 WIDTH="100%">
	<TR>
		<TD>Guestbook currently holds <B><%=intTotalRecords%></B> comments.<BR><A HREF="addcom.asp">Add comment</A>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=0 WIDTH="100%">
<TR><TD></TD><TD align="right">Page <%= intPageNum%> of <%= intTotalPages%>
<BR>
<%
If intPageNum = 1 Then
Else %>
<A HREF="gb.asp?PageNumber=<%= intPageNum -1%>&rpp=<%= Request.QueryString("rpp")%>">Back</A>
<%
End If
%>

<% If intPageNum < intTotalPages Then %>
<A HREF="gb.asp?PageNumber=<%= intPageNum +1%>&rpp=<%= Request.QueryString("rpp")%>">Next</A>
<%
Else
End If
%>
</TD></TR></TABLE><p>
<% 
for strBlah2 = 1 to intRecordspp
if Not rsGuestbook.EOF Then

%>

<TABLE WIDTH="100%" CELLPADDING=1 CELLSPACING=0 BORDER=0>
  <TR>
    <TD CLASS="field">
      <TABLE WIDTH="100%" CELLPADDING=2 CELLSPACING=0 BORDER=0>
        <TR>
          <TD CLASS="border">Comment posted by <B><%= rsGuestbook("Name") %></B></TD>

        </TR>
        <TR>
          <TD><BR><%= rsGuestbook("Comments") %><P></TD>
        </TR>
	<TR>
	  <TD align=right><%= rsGuestbook("Date_stamp") %></TD>
	</TR>
      </TABLE>
    </TD>
  </TR>
</TABLE>

<BR>
<%
	rsGuestbook.MoveNext
End If
Next

'Reset server objects
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
Set adoCon1 = Nothing 
Set rsEmail = Nothing
%>
<P align=right><A HREF="#top">Top</A><BR>&nbsp<BR>
Page <%= intPageNum%> of <%= intTotalPages%>
<BR>
<%
If intPageNum = 1 Then
Else %>
<A HREF="gb.asp?PageNumber=<%= intPageNum -1%>&rpp=<%= Request.QueryString("rpp")%>">Back</A>
<%
End If
%>

<% If intPageNum < intTotalPages Then %>
<A HREF="gb.asp?PageNumber=<%= intPageNum +1%>&rpp=<%= Request.QueryString("rpp")%>">Next</A>
<%
Else
End If
%>

•

Join Date: Dec 2004

Posts: 234

Reputation: cancer10 is an unknown quantity at this point

Solved Threads: 0

cancer10

Offline

Posting Whiz in Training

Re: ASP paging

Sep 23rd, 2006

Refer this

http://www.asp101.com/samples/db_pag...age=2&order=id

FocusInterview.com - PHP Interview Questions & Answers

IGCHosting - Cheapest Web Hosting

•

Join Date: Feb 2007

Posts: 2

Reputation: erpasoleh is an unknown quantity at this point

Solved Threads: 0

erpasoleh

Offline

Newbie Poster

Re: ASP paging

Feb 13th, 2007

you must declarate

•

Join Date: Nov 2009

Posts: 2

Reputation: webmstr is an unknown quantity at this point

Solved Threads: 0

webmstr

Offline

Newbie Poster

Nov 8th, 2009

There is a short but useful article here.. You should look at this:

<URL SNIPPED>Listing Records and ADO Recordset Paging in ASP

Last edited by peter_budo; Nov 16th, 2009 at 4:13 am. Reason: Keep It On The Site - Posts must contain actual content and substance and cannot simply be external links.