Paging long articles in Classic ASP
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 " " & j & " "
else
response.write " <a href=""article_paging.asp?page=" & _
& j & """>" & j & "</a> "
end if
next
end if
%>
Currently rated 4.00 by 4 people
Rate Now!
Date Posted:
31 March 2007 17:46
Last Updated:
Posted by:
Mikesdotnetting
Total Views to date:
2019
Printer Friendly Version
Comments
11 August 2010 18:40 from Mikesdotnetting
@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.
10 August 2010 17:32 from 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?