Paging long articles in Classic ASP

4.14 (7 votes)

Long articles are better broken into bite-sized chunks over several pages. With static HTML, this is easily achieved by dividing the article into logical separations and creating separate .htm files for each. Here's how to do it using ASP for an article that gets posted to a database.

split() returns a one-dimensional zero-based array containing a number of substrings, so it is perfect for this job. What I want to do is take an article (which is a string) and divide it into substrings. In order to do this, I need a delimiter, and I use <!--pagebreak-->. As I enter the article into the database, I place <!--pagebreak--> at the points I want to break the article.

Then, having extracted the article from the database as part of a recordset, and consigned it to the variable article, I use split() to create an array, with each element of the array being a page.

<%
article = "This <!--pagebreak--> is <!--pagebreak--> a <!--pagebreak--> 
paged <!--pagebreak--> article"

Some articles may be small enough not to require paging, so we check to see if this is one that has been divided into pages on entry into the database

 
if instr(article,"<!--pagebreak-->") then
  pages = split(article,"<!--pagebreak-->")

I add 1 to ubound(pages) to take account of the fact that this array is zero based

totalpages = ubound(pages)+1 

I need to keep track of which is the current page

if request.querystring("page") = "" then 
  currentpage = 1
else
  currentpage = cint(request.querystring("page"))
end if
if pageno > totalpages then pageno = totalpages

I write out the contents of the current page of the article - not forgetting that I need to adjust the value by deducting 1 for the zero-based array

 
response.write "<br><strong><font color=""red"">"
& pages(currentpage-1) & "</font></strong><br>" 

And then the links from one page to the next at the bottom.

 
for j = 1 to totalpages
  if j = currentpage then
    response.write "&nbsp;" & j & "&nbsp;"
  else
    response.write "&nbsp;<a href=""article_paging.asp?page=" & _
    & j & """>" & j & "</a>&nbsp;"
  end if
next
end if
%> 

Date Posted:
Last Updated:
Posted by:
Total Views to date: 21839

2 Comments

- TVK5300

My sqlstring is:

strSQL = "SELECT * FROM trainingen RIGHT JOIN ledenlijst USING (bondsnummer,categorie) WHERE month(datum) = " + Cstr(trainmaand)
strSQL = strSQL + " and categorie = '" & reeks & "' order by datum,bondsnummer+0 asc"

When I declare at the beginning of the page trainmaand=8 en reeks="U15", the page works .

But when I retrieve the values of trainmaand and reeks with Request.Form from another page, then it only works for the first page, for the other pages I get an error in the sqlstring.

Is there a way to keep the values that come from Request.Form to be able to scroll all records?

- Mike

@TVK5300

Set the values in hidden fields. Then they get posted along with any others.

<input type="hidden" name="trainmaand" value="<%=trainmaand%>" />

You'll need to add hidden fields for the other pages so that the value can be passed to them as necessary.

Or, you can pass it in a Session variable. By the way, you really should use parameters in your SQL.

Recent Comments

Praveen 12/02/2016 14:22
In response to Migrating Classic ASP To ASP.NET Razor Web Pages Part One- Razor Syntax And Visual Basic
Nicely written article, just what I wanted to get me started, I am going to start working on a this...

Whitney W. 11/02/2016 15:37
In response to Adding A Controller
I am really new to everything and just started programming. I really need help in my project since I...

Fredrik 11/02/2016 13:10
In response to Request.Form Is Empty When Posting To ASPX Page
It worked. Thank you!...

David Valdez 11/02/2016 03:08
In response to Reading Excel Files Without Saving To Disk In ASP.NET
Muchas, muchas, gracias. Thank you so much from Dominican Republic....

Zahid 10/02/2016 00:42
In response to How To Send Email In ASP.NET MVC
Hello Sir, Great post. Just a quick question, is it possible if we can ask a client to save in an...

Al Wilton 07/02/2016 03:11
In response to Windows Authentication With ASP.NET Web Pages
I've been using this advise for quite a while. Today I was setting up a .NET 4.6.1 site and it drove...

Anders 06/02/2016 15:38
In response to iTextSharp - Working with Fonts
Thanks a lot for this excellent series on iTextSharp....

J_R 06/02/2016 02:45
In response to Simple File Download Protection with ASP.NET
Mike, Thank you for taking the time to write this. It really helped me - though I could not out a...

Nemat 04/02/2016 16:24
In response to Solved - The Microsoft.ACE.OLEDB.12.0 provider is not registered on the local machine
Installing Microsoft Access Database Engine 2010 64 bit helped me. Thanks A lot!...

Bill Barbour 03/02/2016 18:34
In response to ASP.NET MVC 5 with EF 6 - Working With Files
Wonderful example. I have it all working. I would like to add the image to each row of the index you...