CFF Coding Source - Classic ASP Column & Paging System

Live Editing Disabled for Server-Side Example

HTML

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%' Change the below to suit your needs.
  Const MAX_CELLS_PER_ROW = 5 ' This is the amount of columns
  Const MAX_ITEMS_PER_CELL = 20 ' This is the amount of rows.
  Dim itemIndex, cellIndex
%>


<%
Set sql = Server.CreateObject("ADODB.Command")
sql.ActiveConnection=objConn
sql.Prepared = true
Set objRs=Server.CreateObject("ADODB.RecordSet")
' Change the below number from 2 to the number of records you would like to show per page until the end.
if request("NumPerPage") <> 0 Then NumPerPage = Int(request("NumPerPage")) Else NumPerPage = 2 end if
sql.commandtext="SELECT ID, MyTitle FROM Paging"

if Request.QueryString("page") = "" Then
    CurrentPage = 1 'We're On the first page
	NumPerPageOf = 1
    Else
    CurrentPage = CInt(Request.QueryString("page"))
	NumPerPageOf = ((CurrentPage * NumPerPage) - NumPerPage) + 1
    End if
	
objRs.CursorLocation = adUseClient
objRs.CursorType = adOpenKeyset 
objRs.LockType = adLockreadonly
objRs.open sql
    Number = objRs.RecordCount
    if Not objRs.EOF Then
    	objRs.MoveFirst
    	objRs.PageSize = NumPerPage
    TotalPages = objRs.PageCount
    objRs.AbsolutePage = CurrentPage
    End if
    ScriptName = request.servervariables("ScriptName")
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>paging system for Classic ASP</title>
<link href="TheListPaging.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div align="center">
<blockquote>This is a paging system for Classic ASP, which also includes Columning with Classic ASP.<br>
Designed by: Wayne Barron / CFF Coding Source</blockquote>

<%If objRs.EOF Then%>
    No Data Found
 <% Else%>
     'Print the recent Data
   <br/><br/><hr style="background-color:#CCCCCC">Showing page <strong><%=CurrentPage%></strong> of <strong><%=TotalPages%></strong>: Total of Records: <strong><%=Number%></strong>
    <table style="border:1px double #000;">
    
   <% Do While Not objRS.EOF And objRS.AbsolutePage = CurrentPage
      cellIndex = 0
	  ' Creates the beginning table row tag%>
      <tr> 
      <%Do While cellIndex < MAX_CELLS_PER_ROW%>
        <td style="border:1px double #000;">
        <%itemIndex = 0
        Do While itemIndex < MAX_ITEMS_PER_CELL%>
         <%=objRs("MyTitle")%><br />
          <%objRS.MoveNext
          If objRS.EOF Then Exit Do
          itemIndex = itemIndex + 1
        Loop%>
        </td>
       <%cellIndex = cellIndex + 1
        If objRS.EOF Then Exit Do
      Loop
      While cellIndex < MAX_CELLS_PER_ROW%>
        <td> </td>
        <%cellIndex = cellIndex + 1
      Wend
	  ' Creates the ending table row tag%>
      </tr>
    <%Loop%>
    </table>
 <%End If

'Creating the paging numbers
    'Display PREV page link, if appropriate
%>

</div>
</body>
</html>

CSS

SQL

]
-- Create a new database called [Virtual-Class-01] in SQL Server.
-- Right-click and choose [New Query]
-- Copy and paste the code below and hit [Execute]

USE [Virtual-Class-01]
GO
/****** Object:  Table [dbo].[Paging]    Script Date: 9/19/2022 8:01:13 PM ******/
/*This is the shortlist, only 100 records instead of the giant list of 1,298 records.*/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[Paging](
    [ID] [int] IDENTITY(1,1) NOT NULL,
    [MyTitle] [nvarchar](50) NOT NULL,
 CONSTRAINT [PK_Paging] PRIMARY KEY CLUSTERED 
(
    [ID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON, OPTIMIZE_FOR_SEQUENTIAL_KEY = OFF) ON [PRIMARY]
) ON [PRIMARY]
GO
SET IDENTITY_INSERT [dbo].[Paging] ON 
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (1, N'MyTitles')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (2, N'Cycle')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (3, N'dame')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (4, N'Ethiopian')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (5, N'language')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (6, N'doomy')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (7, N'Smirk')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (8, N'unbacked')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (9, N'Vitrifacture')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (10, N'pellagra')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (11, N'Dunkirk')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (12, N'Smatch')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (13, N'interproximal')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (14, N'figurer')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (15, N'or38')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (16, N'texan')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (17, N'mispronunciation')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (18, N'shaddock')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (19, N'samiel')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (20, N'ascendable')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (21, N'Rushed')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (22, N'Cucumis')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (23, N'raccoon')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (24, N'dog')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (25, N'Sickleman')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (26, N'nt')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (27, N'Alabaster')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (28, N'pliant')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (29, N'photographer')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (30, N'Crotaphytus')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (31, N'venenosum')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (32, N'suborder')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (33, N'Passeres')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (34, N'prat')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (35, N'icing')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (36, N'sugar')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (37, N'across')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (38, N'Cant')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (39, N'cloud')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (40, N'forest')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (41, N'chigger')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (42, N'flower')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (43, N'unequivocally')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (44, N'To')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (45, N'blow')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (46, N'upon')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (47, N'off-hour')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (48, N'dies')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (49, N'irae')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (50, N'Melanism')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (51, N'claystone')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (52, N'Pearl')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (53, N'travelled')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (54, N'drinking')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (55, N'Bush')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (56, N'bean')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (57, N'63f')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (58, N'Goll')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (59, N'elemi')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (60, N'stonewalling')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (61, N'Signora')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (62, N'nepalese')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (63, N'Balaton')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (64, N'burn')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (65, N'mark')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (66, N'Ni-resist')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (67, N'Unworthy')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (68, N'distressing')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (69, N'Kraut')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (70, N'occidental')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (71, N'wall-paperer')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (72, N'VCR')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (73, N'ls')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (74, N'subalpine')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (75, N'fir')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (76, N'override')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (77, N'Nephridia')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (78, N'populate')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (79, N'Camphene')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (80, N'autofocus')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (81, N'fellfare')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (82, N'forces')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (83, N'obelize')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (84, N'Saltier')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (85, N'hoosac')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (86, N'mountain')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (87, N'lick')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (88, N'decembrist')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (89, N'refractively')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (90, N'underwool')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (91, N'Cyclopteridae')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (92, N'Haggada')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (93, N'Wrap')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (94, N'goal')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (95, N'line')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (96, N'polo,')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (97, N'marco')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (98, N'hame')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (99, N'gramme')
GO
INSERT [dbo].[Paging] ([ID], [MyTitle]) VALUES (100, N'sea')
GO
SET IDENTITY_INSERT [dbo].[Paging] OFF
GO

Classic ASP

<!--#include file="ADOVBS.inc"-->
<%
getServer = "sqlcorecs-01"
getInstance = "sql2019"
getID = "testuser"
getPW = "testuser"
csurl = "demo.cffcs.com"

Set objConn = CreateObject("ADODB.Connection")
objConn.Open("Provider=SQLOLEDB; Data Source="&getServer&"\"&getInstance&"; Initial Catalog=Virtual-Class-01;User ID="&getID&";Password="&getPW&";")
%>

<%
'--------------------------------------------------------------------
' Microsoft ADO
'
' (c) 1996 Microsoft Corporation.  All Rights Reserved.
'
' ADO constants include file for VBScript.
'--------------------------------------------------------------------

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100
Const adMovePrevious = &H00000200
Const adAddNew = &H01000400
Const adDelete = &H01000800
Const adUpdate = &H01008000
Const adBookmark = &H00002000
Const adApproxPosition = &H00004000
Const adUpdateBatch = &H00010000
Const adResync = &H00020000
Const adNotify = &H00040000

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- ExecuteOptionEnum Values ----
Const adRunAsync = &H00000010

'---- ObjectStateEnum Values ----
Const adStateClosed = &H00000000
Const adStateOpen = &H00000001
Const adStateConnecting = &H00000002
Const adStateExecuting = &H00000004

'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- DataTypeEnum Values ----
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205

'---- FieldAttributeEnum Values ----
Const adFldMayDefer = &H00000002
Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008
Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020
Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080
Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200
Const adFldCacheDeferred = &H00001000

'---- EditModeEnum Values ----
Const adEditNone = &H0000
Const adEditInProgress = &H0001
Const adEditAdd = &H0002
Const adEditDelete = &H0004

'---- RecordStatusEnum Values ----
Const adRecOK = &H0000000
Const adRecNew = &H0000001
Const adRecModified = &H0000002
Const adRecDeleted = &H0000004
Const adRecUnmodified = &H0000008
Const adRecInvalid = &H0000010
Const adRecMultipleChanges = &H0000040
Const adRecPendingChanges = &H0000080
Const adRecCanceled = &H0000100
Const adRecCantRelease = &H0000400
Const adRecConcurrencyViolation = &H0000800
Const adRecIntegrityViolation = &H0001000
Const adRecMaxChangesExceeded = &H0002000
Const adRecObjectOpen = &H0004000
Const adRecOutOfMemory = &H0008000
Const adRecPermissionDenied = &H0010000
Const adRecSchemaViolation = &H0020000
Const adRecDBDeleted = &H0040000

'---- GetRowsOptionEnum Values ----
Const adGetRowsRest = -1

'---- PositionEnum Values ----
Const adPosUnknown = -1
Const adPosBOF = -2
Const adPosEOF = -3

'---- enum Values ----
Const adBookmarkCurrent = 0
Const adBookmarkFirst = 1
Const adBookmarkLast = 2

'---- MarshalOptionsEnum Values ----
Const adMarshalAll = 0
Const adMarshalModifiedOnly = 1

'---- AffectEnum Values ----
Const adAffectCurrent = 1
Const adAffectGroup = 2
Const adAffectAll = 3

'---- FilterGroupEnum Values ----
Const adFilterNone = 0
Const adFilterPendingRecords = 1
Const adFilterAffectedRecords = 2
Const adFilterFetchedRecords = 3
Const adFilterPredicate = 4

'---- SearchDirection Values ----
Const adSearchForward = 1
Const adSearchBackward = -1

'---- ConnectPromptEnum Values ----
Const adPromptAlways = 1
Const adPromptComplete = 2
Const adPromptCompleteRequired = 3
Const adPromptNever = 4

'---- ConnectModeEnum Values ----
Const adModeUnknown = 0
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4
Const adModeShareDenyWrite = 8
Const adModeShareExclusive = &Hc
Const adModeShareDenyNone = &H10

'---- IsolationLevelEnum Values ----
Const adXactUnspecified = &Hffffffff
Const adXactChaos = &H00000010
Const adXactReadUncommitted = &H00000100
Const adXactBrowse = &H00000100
Const adXactCursorStability = &H00001000
Const adXactReadCommitted = &H00001000
Const adXactRepeatableRead = &H00010000
Const adXactSerializable = &H00100000
Const adXactIsolated = &H00100000

'---- XactAttributeEnum Values ----
Const adXactCommitRetaining = &H00020000
Const adXactAbortRetaining = &H00040000

'---- PropertyAttributesEnum Values ----
Const adPropNotSupported = &H0000
Const adPropRequired = &H0001
Const adPropOptional = &H0002
Const adPropRead = &H0200
Const adPropWrite = &H0400

'---- ErrorValueEnum Values ----
Const adErrInvalidArgument = &Hbb9
Const adErrNoCurrentRecord = &Hbcd
Const adErrIllegalOperation = &Hc93
Const adErrInTransaction = &Hcae
Const adErrFeatureNotAvailable = &Hcb3
Const adErrItemNotFound = &Hcc1
Const adErrObjectInCollection = &Hd27
Const adErrObjectNotSet = &Hd5c
Const adErrDataConversion = &Hd5d
Const adErrObjectClosed = &He78
Const adErrObjectOpen = &He79
Const adErrProviderNotFound = &He7a
Const adErrBoundToCommand = &He7b
Const adErrInvalidParamInfo = &He7c
Const adErrInvalidConnection = &He7d
Const adErrStillExecuting = &He7f
Const adErrStillConnecting = &He81

'---- ParameterAttributesEnum Values ----
Const adParamSigned = &H0010
Const adParamNullable = &H0040
Const adParamLong = &H0080

'---- ParameterDirectionEnum Values ----
Const adParamUnknown = &H0000
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adParamInputOutput = &H0003
Const adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004

'---- SchemaEnum Values ----
Const adSchemaProviderSpecific = -1
Const adSchemaAsserts = 0
Const adSchemaCatalogs = 1
Const adSchemaCharacterSets = 2
Const adSchemaCollations = 3
Const adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6
Const adSchemaConstraintTableUsage = 7
Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialContraints = 9
Const adSchemaTableConstraints = 10
Const adSchemaColumnsDomainUsage = 11
Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13
Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15
Const adSchemaProcedures = 16
Const adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18
Const adSchemaStatistics = 19
Const adSchemaTables = 20
Const adSchemaTranslations = 21
Const adSchemaProviderTypes = 22
Const adSchemaViews = 23
Const adSchemaViewColumnUsage = 24
Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26
Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29
%>

<ol id="Paging">
    <%if Not CurrentPage = 1 Then
    'This is the beginning, to jump to the start.
    '%>
    <li class="StraightLined">
    <a itemprop="url" rel="prev" href="<%=ScriptName%>?<%=whatLink%>&NumPerPage=<%=NumPerPage%>&page=<%=CurrentPage - 1%><%=theTab%>">
    <span class="Dots"><strong>« Previous</strong></span></a>
    </li>
    <% if CurrentPage > 5 and TotalPages > 10 Then
    %>
   <li class="StraightLined"> 
   <a itemprop="url" href="<%=ScriptName%>?<%=whatLink%>&NumPerPage=<%=NumPerPage%>&page=1<%=theTab%>">
   <span class="NotOne"><strong>1</strong></span></a><span class="Dots"><strong> ... </strong></span>
   </li>
    <%
    End if
    
    if TotalPages > 10 Then
        
        if CurrentPage > 5 Then
            if TotalPages > (CurrentPage + 5) Then
                ini = (CurrentPage - 4)
                fim = (CurrentPage + 5)
            Else
                ini = (TotalPages - 9)
                fim = TotalPages
            End if 
        Else
            ini = 1
            fim = 10
        End if
        
    else
    ini=1
    fim = TotalPages
    End if
    For a = ini To fim
    
    ' here, we will check if the page is before or after, so we can add the REL=PREV or REL=NEXT for the navigation.
    if a <Cint(request("page")) then
    tehRel =  "rel=""prev"""
    elseif a > Cint(request("page")) then
    tehRel =  "rel=""next"""
    end if
    if a = Cint(request("page")) Then
    ' This is the CURRENT page we are on.
    %>
    <li class="StraightLined"><span class="One"><strong><%=a%></strong></span></li>
    <% Else 
    ' This is the next and previous page?? WHY??%>
   <li class="StraightLined">
   <a itemprop="url" <%=tehRel%> href="<%=ScriptName%>?<%=whatLink%>&NumPerPage=<%=NumPerPage%>&page=<%=a%><%=theTab%>">
   <span class="Numbered"><strong><%=a%></strong></span></a>
   </li>
    <%
    End if
    Next
    Else
        if TotalPages = 1 Then
                Response.write ""
            Else
                ' This is the FIRST page!!!
                %>
   <li class="StraightLined"> <span class="One"><strong>1</strong></span></li>
    <%
        End if
        if TotalPages > 10 Then
        fim = 10
        Else
        fim = TotalPages
        End if
        For a = 2 To fim
    if a = Cint(request("page")) Then
    %>
   <li class="StraightLined"> <span class="One"><strong><%=a%></strong></span></li>
    <% Else %>
   <li class="StraightLined"> 
   <a itemprop="url" rel="next" href="<%=ScriptName%>?<%=whatLink%>&NumPerPage=<%=NumPerPage%>&page=<%=a%><%=theTab%>">
   <span class="Numbered"><strong><%=a%></strong></span>
   </a>
   </li>
    <%
    End if
    Next
    End if
    if CurrentPage < TotalPages - 5 and TotalPages > 10 Then
    ' The last ...   [NUMBER]  ...
    %>
    <li class="StraightLined">
    <span class="Dots"><strong> ... </strong></span>
    <a itemprop="url" href="<%=ScriptName%>?<%=whatLink%>&NumPerPage=<%=NumPerPage%>&page=<%=TotalPages%><%=theTab%>">
    <span class="Numbered"><%=TotalPages%></strong></span>
    </a>
    </li>
    <% End if
    
    

    'Display NEXT page link, if appropriate
    if not CurrentPage = TotalPages Then%>
    <li class="StraightLined">
    <a itemprop="url" rel="next" href="<%=ScriptName%>?<%=whatLink%>&NumPerPage=<%=NumPerPage%>&page=<%=CurrentPage + 1%><%=theTab%>">
    <span class="Dots"><strong> Next » </strong></span>
    </a>
    </li>
    <%end if%>
     </ol>

Preview

About Company

Top Viewed Articles