Paging long articles in Classic ASP

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: Saturday, March 31, 2007 5:46 PM
Last Updated:
Posted by: Mikesdotnetting
Total Views to date: 18014

2 Comments

Tuesday, August 10, 2010 5:32 PM - 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?

Wednesday, August 11, 2010 6:40 PM - 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.
Add your comment

If you have any comments to make about this article, please use this form to do so. Make sure that your comment relates specifically to the article above. More general comments can be posted through the form on the Contact page.

Please note, all comments are moderated, and some may not be published. The kind of things that will ensure your comment is deleted without ever seeing the light of day are as follows:

  • Not relevant to the article
  • Gratuitous links to your own site or product
  • Anything abusive or libellous
  • Spam
  • Anything in a language I don't understand including gibberish.

I do not pass email addresses on to spammers, so a valid one will assist me in responding to you personally if required.

Recent Comments

Bino 11/27/2014 7:05 PM
In response to MVC 5 with EF 6 in Visual Basic - Async and Stored Procedures with the Entity Framework
Copy +...

Manas 11/27/2014 5:30 AM
In response to Scheduled Tasks In ASP.NET With Quartz.Net
Hi Mike, Thank you for awesome article. My concern is it might impact website if we use or is...

priya 11/26/2014 6:50 PM
In response to Create PDFs in ASP.NET - getting started with iTextSharp
very nice.....its save my time...

ransems 11/24/2014 12:29 AM
In response to Adding A Controller
Love the article. I dislike that the world thinks c# articles are the way to go. Love the VB, keep...

Gautam 11/20/2014 8:01 AM
In response to I'm Writing A Book On WebMatrix
Hello Mike, I read your book, loved it! However, I have a few request/suggestions: 1) an example...

Bret Dev 11/19/2014 8:39 PM
In response to The Difference Between @Helpers and @Functions In WebMatrix
Excellent post! One concern - where can you place global @Functions code within an MVC project to Is...

Rob Farquharson 11/19/2014 4:28 PM
In response to iTextSharp - Links and Bookmarks
How can I place text at an absolute position on the page? Also, how can I rotate text?...

Andy 11/17/2014 8:08 PM
In response to MVC 5 with EF 6 in Visual Basic - Sorting, Filtering and Paging
Hello I'm testing your sorting instructions above. This is great and I was able to get it to work...

Gautam 11/17/2014 5:51 PM
In response to WebMatrix - Database Helpers for IN Clauses
Hi Mike, I am very new to programming: In the above example if I want to use a delete button the...

donramon 11/17/2014 3:22 PM
In response to Entity Framework 6 Recipe - Alphabetical Paging In ASP.NET MVC
Congratulations on your new website look and the excellent articles. Thank you!...