Comment on VBScript Pagination

2008-04-17T13:33:47+01:00

Comment by vipin ( http://genesis-in.com )

i worked on ur code. everything worked right.
But my whole data(1387 rows) is displaying only on the 1st page.

help me!

Thanx in advance

Comment on VBScript Pagination

2008-02-21T16:33:00+00:00

Comment by Jason ( http:// )

Ahh Frontpage *runs far away*

Comment on VBScript Pagination

2008-02-19T14:02:28+00:00

Comment by Shawson ( http:// )

Cheers Dave, once more you have removed a little pain from my day- i recall seeing this function years back on a site of yours i worked at back at the egg- was hoping it would appear on here somewhere!

Comment on VBScript Pagination

2007-09-27T08:01:56+01:00

Comment by Varun Reddy ( http:// )

Use this for Pagination. I made necessary modifications so that every one can use it.

Comment on VBScript Pagination

2007-09-27T07:57:56+01:00

Comment by Varun Reddy ( )

and the DbConMain.inc includes

Comment on VBScript Pagination

2007-09-27T07:56:54+01:00

Comment by Varun Reddy ( )

<%@ Language="VBScript" EnableSessionState="True" %>
<% Option Explicit
server.ScriptTimeout=1000
Response.Buffer = True

%>

<%
Dim db
db=request.querystring("src")

if db="NIC" then
openCNMain
end if
if db <> "NIC" then
Response.Redirect("default.asp")
end if
%>

Invoice Creation

Invoice Creation

<% if Request.QueryString("Del") <> "" then Response.Write("Record Deleted Successfully") end if %>

<%
dim rsInvoice,qryInvoice

set rsInvoice=Server.CreateObject("ADODB.RecordSet")
qryInvoice="SELECT invoice_Details.invoiceID, Portfolio.portfolioName, Program.programName, Project.projectName,ModuleList.moduleName, invoice_Details.createdate, invoice_Details.fromDate, invoice_Details.toDate, invoice_Details.toAddress FROM (Program INNER JOIN (Project INNER JOIN (invoice_Details INNER JOIN ModuleList ON invoice_Details.moduleID = ModuleList.moduleID) ON Project.projectID = ModuleList.projectID) ON Program.programID = Project.programID) INNER JOIN Portfolio ON Program.portfolioID = Portfolio.portfolioID ORDER BY invoice_Details.invoiceID"

Dim thisPage, rowcount, TotalPages, pgSise, RecCount
Const adOpenStatic = 3
thisPage = Trim(Request("thisPage"))
if thisPage = "" then thisPage = 1

rsInvoice.CursorType = adOpenStatic
rsInvoice.PageSize = 10
rsInvoice.Open qryInvoice,con,1,3
if not rsInvoice.EOF then
rsInvoice.AbsolutePage = cINT(thisPage)
end if
TotalPages = rsInvoice.PageCount
pgSise = rsInvoice.PageSize
RecCount = rsInvoice.RecordCount

'Response.Write(TotalPages&"
")
rowCount = 0

If Not rsInvoice.EOF then
Do While Not rsInvoice.EOF and rowCount < pgSise
%>

<%
rsInvoice.movenext
rowCount = rowCount + 1
Loop
else
%>

<%
end if
%>

Invoice Id	Program	Module	Create Date	From Date	To Date
<%=rsInvoice(0)%>	<%=rsInvoice(2)%>	<%=rsInvoice(4)%>	<%=DatePart("d",rsInvoice(5))%>-<%=monthname(DatePart("m",rsInvoice(5)),true)%>-<%=DatePart("yyyy",rsInvoice(5))%>	<%=DatePart("d",rsInvoice(6))%>-<%=monthname(DatePart("m",rsInvoice(6)),true)%>-<%=DatePart("yyyy",rsInvoice(6))%>	<%=DatePart("d",rsInvoice(7))%>-<%=monthname(DatePart("m",rsInvoice(7)),true)%>-<%=DatePart("yyyy",rsInvoice(7))%>
Sorry ! No Records To Display

<%
If TotalPages > 1 then
CALL Pagination(thisPage, TotalPages)
End if
%>
<%
Function Pagination(thisPage, TotalPages)

thisPage = cint(thisPage)
Dim url, MaxPages, MinPages, CurrPage, vUrl
Dim strPages : strPages = ""

vUrl = "invoice_list.asp?src=NIC&"

IF (TotalPages > 10) THEN 'Main IF
if (TotalPages > 3) then
MaxPages = 3
else
MaxPages = TotalPages
end if

for CurrPage = 1 to MaxPages
if (CurrPage = thisPage) then
strPages = strPages & ""&CurrPage&""
else
strPages = strPages & ""&CurrPage&""
end if
if (CurrPage < MaxPages) then
strPages = strPages & "  "
end if
next

if (TotalPages > 3) then 'If Sub if 1
if ((thisPage > 1) and (thisPage < TotalPages)) then 'If Sub if 2
if (thisPage > 5) then
strPages = strPages & " . . . "
else
strPages = strPages & "  "
end if

if (thisPage > 4) then
MinPages = thisPage
else
MinPages = 5
end if

if (thisPage < TotalPages - 4) then
MaxPages = thisPage
else
MaxPages = TotalPages - 4
end if

for CurrPage = MinPages - 1 to MaxPages + 1
if (CurrPage = thisPage) then
strPages = strPages & ""&CurrPage&""
else
strPages = strPages & ""&CurrPage&""
end if
if (CurrPage < MaxPages + 1) then
strPages = strPages & "  "
end if
next

if (thisPage < TotalPages - 4) then
strPages = strPages & " . . . "
else
strPages = strPages & "  "
end if
else
strPages = strPages & " . . . "
end if 'End If Sub if 2

for CurrPage = TotalPages - 2 to TotalPages
if (CurrPage = thisPage) then
strPages = strPages & ""&CurrPage&""
else
strPages = strPages & ""&CurrPage&""
end if
if (CurrPage < TotalPages) then
strPages = strPages & "  "
end if
next
end if 'End If Sub IF 1
else
for CurrPage = 1 to TotalPages
if (CurrPage = thisPage) then
strPages = strPages & ""&CurrPage&""
else
strPages = strPages & ""&CurrPage&""
end if

if (CurrPage < TotalPages) then
strPages = strPages & "  "
end if
next
End IF 'Mail End IF

Pagination = strPages

Dim DecthisPage,IncthisPage
DecthisPage = thisPage - 1
IncthisPage = thisPage + 1

'Response.Write(DecthisPage&"
")
'Response.Write(thisPage&"
")
'Response.Write(IncthisPage&"
")
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write("

") Response.Write(" ") Response.Write("
") if thisPage > 1 then Response.Write("Previous ") end if Response.Write(Pagination) if IncthisPage <= TotalPages then Response.Write(" Next ") end if Response.Write("

")

End Function
%>

<%

rsInvoice.Close
Set rsInvoice = Nothing
con.Close
%>

Comment on VBScript Pagination

2007-07-03T19:19:13+01:00

Comment by Dylan Evans ( http://cornerpocket.co.nr )

Great example, Dave. Thank you so much.

As for MANDALAY, grow up.

Comment on VBScript Pagination

2007-05-16T15:13:44+01:00

Comment by Dave Child ( http://www.ilovejackdaniels.com )

Thanks for the intelligent, constructive criticism, Mandalay. Always nice to see smart people contributing.

Comment on VBScript Pagination

2007-05-16T11:43:28+01:00

Comment by MANDALAY ( http:// )

You suck dude.....its really disgusting the way u write this code...man you are just a baby...

Comment on VBScript Pagination

2006-12-25T22:06:10+00:00

Comment by A Man ( http://www.etronics.ro )

Drago i dont think the man should show you how to go to bathroom. He already show you how actually can paginate records in ASP. If you are a bedroom programmer like many others, I suggest you to try something else.

Comments on VBScript Pagination - ILoveJackDaniels.com

Comment on VBScript Pagination

Comment on VBScript Pagination

Comment on VBScript Pagination

Comment on VBScript Pagination

Comment on VBScript Pagination

Comment on VBScript Pagination

Comment on VBScript Pagination

Comment on VBScript Pagination

Comment on VBScript Pagination

Comment on VBScript Pagination