If you copy and paste the code, depending on the html editor you use, sometimes the quotations marks won’t copy over properly and you’ll get an error. So check that.

For page=CLng(Request(“page”))

When I clck the required page say 2, the address bar changes to http://localhost/xxxxxx/product.asp?foo=bar&page=2

The page is not displayed as I get a page not found error.

create connection and recordset obj
set objcon=Server.CreateObject(“ADODB.Connection”)
set objrs=Server.CreateObject(“ADODB.RecordSet”)
objcon.open “….”
countItem = 0
numPerPage = 5
objrs.cursorlocation = 3
if request(“page”) = “” then
page=1
else
page=cLng(request(“page”))
end if
objrs.open “SELECT * FROM SOMETABLE”, objcon,1,2
if not objrs.EOF then
objRs.pageSize = numPerPage
totalpages = objRs.PageCount
objRs.absolutePage=page
while not objrs.EOF AND countItem < objRs.pageSize
….. do some stuff here
countItem = countItem + 1
objrs.movenext()
wend
ps = getPaginationString(page, objrs.RecordCount, numPerPage, 2, “mypage.asp?optional=”&parameter&”&goes=”&here&”&Search=Search”)
Response.Write(ps)

end if
… clean things.. conn, record set

<%
‘

sFileName = “Default.asp”
sTemplateFileName = “Default.htm”

LoadTemplate sAppPath & sTemplateFileName, “main”

LoadTemplate sHeaderFileName, “Header”

SetVar “FileName”, sFileName

Header_Show
Grid_Show
Search_Show
EmpMonth_Show
Parse “Header”, False
Parse “main”, False
Response.write PrintVar(“main”)

‘————————————————–

Sub Grid_Show()

Dim sWhere
sWhere = “”
sOrder = “”
sSQL = “”
HasParam = false

SetVar “TransitParams”, “name=” & ToURL(GetParam(“name”)) & “&dep_id=” & ToURL(GetParam(“dep_id”)) & “&email=” & ToURL(GetParam(“email”)) & “&”
SetVar “FormParams”, “name=” & ToURL(GetParam(“name”)) & “&dep_id=” & ToURL(GetParam(“dep_id”)) & “&email=” & ToURL(GetParam(“email”)) & “&”
‘ Build WHERE statement

pdep_id = GetParam(“dep_id”)
if IsNumeric(pdep_id) and not isEmpty(pdep_id) then pdep_id = CLng(pdep_id) else pdep_id = Empty
if not isEmpty(pdep_id) then
HasParam = true
sWhere = sWhere & “e.dep_id=” & pdep_id
end if

pemail = GetParam(“email”)
if not isEmpty(pemail) then
if not (sWhere = “”) then sWhere = sWhere & ” and ”
HasParam = true
sWhere = sWhere & “e.email like ‘%” & replace(pemail, “‘”, “””) & “%’”
end if

pname = GetParam(“name”)
if not isEmpty(pname) then
if not (sWhere = “”) then sWhere = sWhere & ” and ”
HasParam = true
sWhere = sWhere & “e.name like ‘%” & replace(pname, “‘”, “””) & “%’”
end if

if HasParam then sWhere = ” AND (” & sWhere & “)”
‘ Build ORDER statement
sOrder = ” order by e.name Asc”
iSort = GetParam(“FormGrid_Sorting”)
iSorted = GetParam(“FormGrid_Sorted”)
sDirection = “”
if IsEmpty(iSort) then
SetVar “Form_Sorting”, “”
else
if iSort = iSorted then
SetVar “Form_Sorting”, “”
sDirection = ” DESC”
sSortParams = “FormGrid_Sorting=” & iSort & “&FormGrid_Sorted=” & iSort & “&”
else
SetVar “Form_Sorting”, iSort
sDirection = ” ASC”
sSortParams = “FormGrid_Sorting=” & iSort & “&FormGrid_Sorted=” & “&”
end if

if iSort = 1 then sOrder = ” order by e.name” & sDirection
if iSort = 2 then sOrder = ” order by e.title” & sDirection
if iSort = 3 then sOrder = ” order by d.name” & sDirection
if iSort = 4 then sOrder = ” order by e.work_phone” & sDirection
if iSort = 5 then sOrder = ” order by e.email” & sDirection
if iSort = 6 then sOrder = ” order by e.sponsor” & sDirection ‘added
if iSort = 7 then sOrder = ” order by e.joining_date” & sDirection ‘added
if iSort = 8 then sOrder = ” order by e.ip” & sDirection ‘added
end if

‘ Build full SQL statement

sSQL = “select e.dep_id as e_dep_id, ” & _
“e.email as e_email, ” & _
“e.emp_id as e_emp_id, ” & _
“e.name as e_name, ” & _
“e.title as e_title, ” & _
“e.work_phone as e_work_phone, ” & _

“e.joining_date as e_joining_date, ” & _
“e.ip as e_ip, ” & _
“e.sponsor as e_sponsor, ” & _
“d.dep_id as d_dep_id, ” & _
“d.name as d_name ” & _

” from emps e, deps d” & _
” where d.dep_id=e.dep_id ”

sSQL = sSQL & sWhere & sOrder
SetVar “SortParams”, sSortParams

‘ Open recordset
openrs rs, sSQL
if rs.eof then
‘ Recordset is empty
set rs = nothing
SetVar “DListGrid”, “”
Parse “GridNoRecords”, False
Parse “FormGrid”, False
exit sub
end if

‘added pagination
‘ Select current page
iPage = GetParam(“Formemps_Page”)
if IsEmpty(iPage) then iPage = 1
‘ Open recordset
openrs rs, sSQL
if rs.eof then
‘ Recordset is empty
set rs = nothing
SetVar “DListemps”, “”
Parse “empsNoRecords”, False
SetVar “empsScroller”, “”
Parse “Formemps”, False
exit sub
end if

aemp_level = Split(“0;;3;Admin”, “;”)
amanmonth = Split(“0;;1;Yes”, “;”)
iCounter = 0
while not rs.eof and iCounter < (iPage-1)*15
rs.movenext
iCounter = iCounter + 1
wend
iCounter = 0

‘end pagination

‘ Show main table based on recordset
while not rs.EOF and iCounter < 15
fldname = GetValue(rs, “e_name”)
fldtitle = GetValue(rs, “e_title”)
flddep_id = GetValue(rs, “d_name”)
fldwork_phone = GetValue(rs, “e_work_phone”)
fldemail = GetValue(rs, “e_email”)
fldemail=”” & fldemail & “”
fldsponsor = GetValue(rs,”e_sponsor”)
fldjoining_date = GetValue(rs,”e_joining_date”)
fldip = GetValue(rs,”e_ip”)

SetVar “name”, ToHTML(fldname)
SetVar “name_URLLink”, “EmpDetail.asp”
SetVar “Prm_emp_id”, ToURL(GetValue(rs, “e_emp_id”))
SetVar “title”, ToHTML(fldtitle)
SetVar “dep_id”, ToHTML(flddep_id)
SetVar “work_phone”, ToHTML(fldwork_phone)
SetVar “email”, fldemail
SetVar “sponsor”, ToHTML(fldsponsor)
SetVar “joining_date”, ToHTML(fldjoining_date)
SetVar “ip”, ToHTML(fldip)

Parse “DListGrid”, True

rs.MoveNext
‘added
iCounter = iCounter + 1
‘end added
wend

‘added

‘ Parse scroller
if rs.EOF and iPage = 1 then
SetVar “empsScroller”, “”
else
if rs.EOF then
SetVar “empsScrollerNextSwitch”, “_”
else
SetVar “NextPage”, (iPage + 1)
SetVar “empsScrollerNextSwitch”, “”
end if

if iPage = 1 then
SetVar “empsScrollerPrevSwitch”, “_”
else
SetVar “PrevPage”, (iPage – 1)
SetVar “empsScrollerPrevSwitch”, “”
end if

SetVar “empsCurrentPage”, iPage
Parse “empsScroller”, False
end if

‘end added

set rs = nothing
SetVar “GridNoRecords”, “”
Parse “FormGrid”, False

End Sub

Sub Search_Show()

SetVar “ActionPage”, “Default.asp”

‘ Set variables with search parameters

flddep_id = GetParam(“dep_id”)
fldname = GetParam(“name”)
fldemail = GetParam(“email”)
‘ Show fields

SetVar “LBdep_id”, “”
SetVar “ID”, “”
SetVar “Value”, “All”
Parse “LBdep_id”, True
openrs rsdep_id, “select dep_id, name from deps order by 2″
while not rsdep_id.EOF
SetVar “ID”, GetValue(rsdep_id, 0) : SetVar “Value”, GetValue(rsdep_id, 1)
if cstr(GetValue(rsdep_id, 0)) = cstr(flddep_id) then SetVar “Selected”, “SELECTED” else SetVar “Selected”, “”
Parse “LBdep_id”, True
rsdep_id.MoveNext
wend
set rsdep_id = nothing

SetVar “name”, ToHTML(fldname)
SetVar “email”, ToHTML(fldemail)
Parse “FormSearch”, False
End Sub

Sub EmpMonth_Show()

Dim sWhere
sWhere = “”
sOrder = “”
sSQL = “”
HasParam = false

SetVar “TransitParams”, “”
SetVar “FormParams”, “”
‘ Build WHERE statement

sWhere = ” WHERE manmonth=1″

‘ Build full SQL statement

sSQL = “select e.name as e_name, ” & _
“e.picture as e_picture ” & _
” from emps e ”

sSQL = sSQL & sWhere & sOrder
‘ Open recordset
openrs rs, sSQL
if rs.eof then
‘ Recordset is empty
set rs = nothing
SetVar “DListEmpMonth”, “”
Parse “EmpMonthNoRecords”, False
Parse “FormEmpMonth”, False
exit sub
end if

‘ Show main table based on recordset
while not rs.EOF
fldpicture = GetValue(rs, “e_picture”)
fldname = GetValue(rs, “e_name”)
flddep_id = GetValue (rs, “d_name”)
fldpicture=”"

SetVar “picture”, fldpicture
SetVar “name”, ToHTML(fldname)
SetVar “d_name”, ToHTML(fldd_name)
Parse “DListEmpMonth”, True

rs.MoveNext

wend

set rs = nothing
SetVar “EmpMonthNoRecords”, “”
Parse “FormEmpMonth”, False

End Sub

%>

page – current page
totalitems – whole amount of pages in Recordset
limit – ?
adjacents – ?
targetpage – link to page.