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
  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;"
    response.write "&nbsp;<a href=""article_paging.asp?page=" & _
    & j & """>" & j & "</a>&nbsp;"
  end if
end if

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


- 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


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

Rajasekar 24/11/2015 12:27
In response to Import Data From Excel to Access with ASP.NET
While use this code i'm facing on error: "Unrecognized Database format C:\mydabase.accdb" can any...

Parmod 24/11/2015 07:28
In response to ASP.NET 5 Project Basics
For a new learner (Fresher) in ASP.NET there is a issue Fresher have to learn two types of , old...

Robert 22/11/2015 21:35
In response to ASP.NET 5 By Numbers
I have to agree fully with Paul, this does sound like an entire mis-mash of technologies. Sort of in...

Christian 21/11/2015 15:46
In response to MVC 5 with EF 6 in Visual Basic - Creating an Entity Framework Data Model
Many thanks Mike to introduce me in the EF6 Code First way of thinking. Exactly what I need for my...

ax plains 20/11/2015 16:29
In response to Examining the Details and Delete Methods
Hello, really great tutorial for a beginner like me! Is it possible to have an explanation on how a...

Abdul Latif 20/11/2015 14:42
In response to Reading Excel Files Without Saving To Disk In ASP.NET
Could anyone please help me, I am getting : "OfficeOpenXml.ExcelPackage" does not contain a for...

Thomas 20/11/2015 09:44
In response to Cheat Sheet - .NET Framework Exceptions
Hey Mike, nice list. I've also checked your article on how you created the list, but is there any to...

Pramod Gagare 19/11/2015 11:18
In response to Date Formatting in C#

Robby 19/11/2015 08:16
In response to WebMatrix - Database Helpers for IN Clauses
Would it also be possible to override the default query and querysingle methods to include the azure...

Menja 18/11/2015 08:28
In response to Sessions and Shopping Carts
Thank you for a perfect description and that you show all the screenshot at the same time!!! It a...