A simple paging ASP script

				
'**************************************
' Name: A simple paging ASP script
' Description:This script is a generic text and article paging routine. 
It uses a SESSION in order to break down the overhead and increases performance dramatically when you're working with recordsets. Can be used in many purposes. All that you have to do is to put a text with as many <NEWPAGE> tags you want into the variable "cTexto".
A sample can be ran at http://www.qbusca.com.br/snip/exemplos/008/paginar.asp
' By: Antonio Carlos Barbosa
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=7249&lngWId=4'for details.'**************************************

<STYLE>
.list-text{
FONT-SIZE: 10px; COLOR: #000000; FONT-FAMILY: Arial, Helvetica, Geneva, Swiss, SunSans-Regular
}
</STYLE>
<%
nPag = REQUEST("nPag")
If nPag = "" Then nPag = 1
If SESSION("cText") = "" Then
 ' -----------------------
 ' Here you can read a database field with the article or put the text you want to page.
 ' It is done just once, due the first time it will be saved into a SESSION variable
 ' -------------------------------------------------
 cTexto = "This is the page 1 <NEWPAGE>" &_
"This is the page 2 <NEWPAGE>" &_
"This is the page 3 <NEWPAGE>" &_
"This is the page 4"
Else
 cTexto = SESSION("cText")
End If
cLinks = ""
nTot = 0
cPagina = ShowByPage(cTexto,nPag,nTot,cLinks)
Response.Write cPagina
Response.Write cLinks
Function ShowByPage( cTxt,nPage,ByRef nTotal, ByRef cLinks )
 Dim nI
 Dim i : i = 1
 Dim cAux : cAux = cTxt
 Dim cPagina : cPagina = ""
 Dim cURL : cURL = Request.ServerVariables("SCRIPT_NAME")
 If nPage = "" Then
 SESSION("cText") = cTxt
 nPage = 1
 End If
 ShowByPage = ""
 cLinks = ""
 nTotal = 1
 nPage = CInt(nPage)
 While i > 0
 i = InStr(1,cAux,"<NEWPAGE>")
If i > 0 Then
 cPagina = Mid(cAux,1,i-1)
 cAux = Mid(cAux,i+9,Len(cAux))
 If nTotal = nPage Then
 ShowByPage = cPagina
 End If
 nTotal = nTotal + 1
End If
 Wend
 cPagina = cAux
 If nTotal = nPage Or ShowByPage = "" Then
 ShowByPage = cPagina
 End If
ShowByPage = "<DIV Class=list-text>" & ShowByPage & "</DIV>"
 If nTotal > 1 Then
For nI = 1 To nTotal
cLinks = cLinks & " <a class='list-text'href='" & cURL & "?nPag=" & nI & "'>" & nI & "</a>"
Next
 End If
 cLinks = "<hr Class=list-text>" & _
 cLinks & "<a Class=list-text> de " &_
 nTotal & "</a>"
End Function
%>