Pagination Script Problem

I have used the following Pagination script to display database records in a series of pages, but only the first page shows up properly, and on clicking the links of subsequent pages or the NEXT , LAST page links, No records are displayed but only the Message - "Sorry, No records Found!!".shows up.
I guess some form fields values which contain multiple strings with spaces between them are not properly collected into the variables in the ASP Action Page i.e. the page where the records are displayed. Please provide a solution.
The script is given below :

Expand|Select|Wrap|Line Numbers

 
<%@LANGUAGE="VBSCRIPT"%>

<%Response.Buffer = True%>

<!---#include file ="config.asp"--->

<% CheckAdmin() 

    action=Request.QueryString("action")

    dim counterstart

      dim counterend

      dim page_size 

      dim cur_page

      dim first_page

      dim pre_page

      dim next_page

      dim last_page

      dim page_count

      page_size = pagesize 
 
'set Recordset1 = Server.CreateObject("ADODB.Recordset")

'Recordset1.ActiveConnection = DBPath
 
Dim pageName 'Asp Page Name

Dim Search ' search term duhhh!

Dim Table ' The field that we are searching for

Dim Order ' Sort desc or asc

Dim Person ' Pesonal or web details search

Dim SortOrder

PageName="view_tender.asp"
 
Search = Request.querystring("search")

Table = request.querystring("Table")
 
SortOrder = Request.querystring("SortOrder")
 
If (SortOrder = "") then sortOrder = Table

'If 

If (Person = "") then Person = "personal"
 
searchby = request.querystring("searchby")

'Order = request.querystring("order")

Order = "desc"

sortorder ="id"

'SortOrder = request.querystring("SortOrder")
 
'###### Search Recordset ADAM remember this #######
 
set Recordset1 = Server.CreateObject("ADODB.Recordset")

Recordset1.ActiveConnection = dbpath

if session("lvl")=100 then 

    If Search = "" then 

        If (sortorder = "") then sortorder ="todt"

        Recordset1.Source = "SELECT * FROM tenders ORDER BY "&SortOrder&" "& Order

    Else ' we do a search

        Recordset1.Source = "SELECT * FROM tenders WHERE "&Table&" LIKE '%"&Search&"%' ORDER BY "&SortOrder&" "&Order

    End if

Else

    If Search = "" then 

        If (sortorder = "") then sortorder ="todt"

        Recordset1.Source = "SELECT * FROM tenders WHERE deptId ="& session("deptId") &" ORDER BY "&SortOrder&" "& Order

    Else ' we do a search

        Recordset1.Source = "SELECT * FROM tenders WHERE deptId ="& session("deptId") &" and "&Table&" LIKE '%"&Search&"%' ORDER BY "&SortOrder&" "&Order

    End if

End if
 
'Recordset1.Source = "Select * from logad"
 
Recordset1.CursorType = 0

Recordset1.CursorLocation = 3

Recordset1.cachesize = 5

Recordset1.LockType = 3

Recordset1.Open

If Err.number <> 0 then

   Recordset1.ActiveConnection.Close 

   Set Recordset1 = Nothing

   checkError()

End if
 
If Recordset1.eof=false then

      Recordset1.PageSize = page_size

      page_count = Recordset1.PageCount

    cur_page= Cint(Request.QueryString("page"))

      if cur_page= "" or cur_page < 1 then

         cur_page = 1

      end if

      Recordset1.AbsolutePage=cur_page
 
%>

<html>

<head>

<meta name="GENERATOR" content="Microsoft FrontPage 5.0">

<meta name="ProgId" content="FrontPage.Editor.Document">

<META name="keywords" content="<%=sitekeywords%>">

<META name="language" content="English">

<META name="author" content="Webx">

<META name="copyright" content="Webx">

<META name="robots" content="INDEX, FOLLOW">

<META name="revisit-after" content="10 days">

<META name="document-class" content="Completed">

<META name="document-classification" content="Online Content Management">

<META name="document-rights" content="Copyrighted Work">

<META name="document-type" content="Web Page">

<META name="document-rating" content="Safe for Kids">

<META name="document-distribution" content="Global">

<META name="document-state" content="dynamic">

<META name="cache-control" content="no-cache">

<META name="Abstract" content="Rural Works">

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<title><%=siteTitle%></title>

</head>
 
<body>

<script language="JavaScript">

function ConfirmDelete() 

{

  var confirm_del = window.confirm ("Do you really want to delete?");

  if (confirm_del) 

  {

  document.forms[1].submit();

  }

}
 
function CheckAll(chk)

{

for (var i=0;i < document.forms[1].elements.length;i++)

    {

        var e = document.forms[1].elements[i];

        if (e.type == "checkbox")

        {

            e.checked = chk.checked;

        }

    }

}

</script>

<%if recordset1.eof=false then%>

<div align="center">

  <center>

  <table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" cellpadding="0" height="485">

    <tr>

      <td width="3%">

      <font face="Verdana" size="1">&nbsp;</font></td>

      <td width="94%" colspan="2">

      <font face="Verdana" size="1">&nbsp;</font></td>

      <td width="3%">

      <font face="Verdana" size="1">&nbsp;</font></td>

    </tr>

    <tr>

      <td width="3%" bgcolor="#800000" height="20">

      <img border="0" src="Images/cornerleft.jpg"></td>

      <td width="94%" bgcolor="#800000" height="20" colspan="2">

      <p align="center"><b><font size="2" face="Verdana" color="#FFFFFF">

      Administration Area</font></b></td>

      <td width="3%" bgcolor="#800000" height="20">

      <p align="right">

      <img border="0" src="Images/cornerright.jpg"></td>

    </tr>

    <tr>

      <td width="50%" colspan="2" bgcolor="#800000" height="28">

      <p style="margin-left: 15"><b>

      <font face="Verdana" size="1" color="#FFFFFF">Welcome <%=Request.Cookies("Admin_Name")%></font></b></td>

      <td width="50%" colspan="2" bgcolor="#800000" height="28">

      <p align="right" style="margin-right: 10"><b>

      <font face="Verdana" size="1" color="#FFFFFF"><a href="adminMain.asp">

      <font color="#FFFFFF">Home</font></a> | <a href="LOGOUT.ASP">

      <font color="#FFFFFF">Logoff</font></a> </font></b></td>

    </tr>

    <tr>

      <td width="100%" colspan="4" bgcolor="#EFEFEF" height="36" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#800000">

      <!---#include file ="toplink.asp"--->

      </td>

    </tr>

    <tr>

      <td width="100%" colspan="4" height="344" style="border-style: solid; border-width: 1" bordercolor="#800000" valign="top">

      <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">

        <tr>

          <td width="100%">

          <form method="GET" action="<%=pagename%>">

           <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">

              <tr>

                <td width="25%"><b><font face="Verdana" size="1">&nbsp;</font></b></td>

                <td width="25%"><font face="Verdana" size="1">&nbsp;</font></td>

                <td width="25%"><font face="Verdana" size="1">&nbsp;</font></td>

                <td width="25%"><font face="Verdana" size="1">&nbsp;</font></td>

              </tr>

              <tr>

                <td width="25%">

                <p align="right"><b><font size="1" face="Verdana">Sort By:

                </font></b></td>

                <td width="25%">

                <p align="center"> 

    <select name="table" style="font-size: 8pt; font-family: Verdana; color: #800000">

      <option value="tenderno" selected>Tender No</option>

      <option value="nameWork">Tender Description</option>

      <option value="todt">Opening Date</option>

      <option value="department">Department</option>

    </select></td>

                <td width="25%"> 

    <input type="text" name="search" size="20" style="font-size: 8pt; font-family: Verdana; color: #800000; border: 1px solid #800000"></td>

                <td width="25%">

        <input type="submit" value="Search" name="B1" style="font-size: 10pt; font-family: Verdana; color: #FFFFFF; font-weight: bold; border-style: solid; border-width: 1; background-color: #800000"></td>

              </tr>

            </table>

          </form>

          </td>

        </tr>

      </table>

Dec 15 '07 #1

Subscribe Post Reply

1960

jhardman

3,406

Expert 2GB

continued from above:

Expand|Select|Wrap|Line Numbers

       <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3">

        <tr>

          <td width="100%">

      <form method="POST" action="view_tender_action.asp">

        <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">

          <tr>

            <td width="100%" colspan="4" bgcolor="#800000"><b>

            <font face="Verdana" size="1" color="#FFFFFF">&nbsp;Tender&nbsp; Details 

            - All Active Tenders</font></b></td>

          </tr>

          <tr>

            <td width="100%" colspan="4">

            <p align="center"><font face="Verdana" size="1">&nbsp;<font color="#FF0000"><b><%=request.queryString("strErr")%></b></font></font></td>

          </tr>

          <tr>

            <td width="9%" bgcolor="#EFEFEF">

            <p style="margin-left: 15"><font face="Verdana" size="1">&nbsp;<input type="checkbox" name="selectAll" onclick=CheckAll(this) value="ON"></font></td>

            <td width="91%" bgcolor="#EFEFEF" colspan="3"><b><font face="Verdana" size="1">

            &nbsp;Select All</font></b></td>

          </tr>

          <tr>

            <td width="100%" colspan="4"><font face="Verdana" size="1">&nbsp;</font></td>

          </tr>

          <tr>

            <td width="100%" colspan="4">

            <table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5" height="53">

              <tr>

                <td width="9%" bgcolor="#800000" height="12">

                <p align="center"><b>

                <font face="Verdana" size="1" color="#FFFFFF">Delete</font></b></td>

                <td width="8%" bgcolor="#800000" height="12"><p align="center">

                <font face="Verdana" size="1" color="#FFFFFF"><b>&nbsp;Action</font></b></td>

                <td width="14%" bgcolor="#800000" height="12">

                <font face="Verdana" size="1" color="#FFFFFF"><b>&nbsp;Issue Date</b></font></td>

                <td width="13%" bgcolor="#800000" height="12">

                <font face="Verdana" size="1" color="#FFFFFF"><b>&nbsp;Tender No.</b></font></td>

                <td width="29%" bgcolor="#800000" height="12">

                <font face="Verdana" size="1" color="#FFFFFF"><b>&nbsp;Description</b></font></td>

                <td width="13%" bgcolor="#800000" height="12">

                <font face="Verdana" size="1" color="#FFFFFF"><b>&nbsp;Due Date</b></font></td>

                <td width="37%" bgcolor="#800000" height="12">

                <font face="Verdana" size="1" color="#FFFFFF"><b>&nbsp;Click for Details</b></font></td>

              </tr>

               <%

               linkpage = ""

               do while recordset1.Absolutepage=cur_page and recordset1.Eof = false

               %>

              <tr>

                <td width="9%" bgcolor="#EFEFEF" height="20">

                <p align="center"><font size="1" face="Verdana">

                <input type="checkbox" name="delete" value="<%=(Recordset1.Fields.Item("id").Value)%>"></font></td>

                <td width="8%" bgcolor="#EFEFEF" height="20">

                <p align="center"><b><font size="1" face="Verdana">

                <a href="edit_tender.asp?pg=<%=pagename%>&id=<%=(Recordset1.Fields.Item("Id").Value)%>">

                <font color="#000000">Edit</font></a></font></b></td>

                <%tdd=day(Recordset1.Fields.Item("tenderDt").Value)

                  tmm=month(Recordset1.Fields.Item("tenderDt").Value)

                tyy=Year(Recordset1.Fields.Item("tenderDt").Value)

                tdate=tdd & "/" & tmm & "/" & tyy

                %>
 
                <td width="14%" bgcolor="#EFEFEF" height="20">

                <p style="margin-left: 5"><font face="Verdana" size="1"><%=tdate%></font></td>

                <td width="13%" bgcolor="#EFEFEF" height="20">

                <p style="margin-left: 5"><font face="Verdana" size="1"><%=(Recordset1.Fields.Item("tenderNo").Value)%></font></td>

                <td width="29%" bgcolor="#EFEFEF" height="20">

                <p style="margin-left: 5"><font face="Verdana" size="1"><%=(Recordset1.Fields.Item("ShortDesc").Value)%></font></td>

                <%dd=day(Recordset1.Fields.Item("ToDt").Value)

                mm=month(Recordset1.Fields.Item("ToDt").Value)

                yy=Year(Recordset1.Fields.Item("ToDt").Value)

                tdate1=dd & "/" & mm & "/" & yy
 
                if isNull(recordset1("tenderPath")) = true or trim(recordset1("tenderPath")) = "" then

                    linkPage="tender_det.asp"

                else

                    linkPage="tender_details.asp"

                end if

                %>
 
                <td width="13%" bgcolor="#EFEFEF" height="20">

                <p style="margin-left: 5"><font face="Verdana" size="1"><%=tdate1%></font></td>

                <td width="37%" bgcolor="#EFEFEF" height="20">

                <p style="margin-left: 5">

                <font face="Verdana" size="1">

                <b>

                <a href="<%=linkPage%>?id=<%=(Recordset1.Fields.Item("Id").Value)%>">

                <font color="#000000">Details</font> </a></b></font></td>

              </tr>

               <%

               Recordset1.MoveNext()

               loop

               Recordset1.close()

               Set Recordset1 = nothing

               end if

               %>

               <tr>

                <td width="9%" bgcolor="#800000" height="12"><font size="1" face="Verdana">&nbsp;</font></td>

                <td width="8%" bgcolor="#800000" height="12"><font face="Verdana" size="1">&nbsp;</font></td>

                <td width="14%" bgcolor="#800000" height="12"><font face="Verdana" size="1">

                &nbsp;</font></td>

                <td width="13%" bgcolor="#800000" height="12"><font face="Verdana" size="1">

                &nbsp;</font></td>

                <td width="29%" bgcolor="#800000" height="12"><font face="Verdana" size="1">

                &nbsp;</font></td>

                <td width="13%" bgcolor="#800000" height="12"><font face="Verdana" size="1">

                &nbsp;</font></td>

                <td width="37%" bgcolor="#800000" height="12"><font size="1">&nbsp;</font></td>

              </tr>

            </table>

            </td>

          </tr>

          <tr>

            <td width="9%"><font face="Verdana" size="1">&nbsp;</font></td>

            <td width="32%"><font face="Verdana" size="1">&nbsp;</font></td>

            <td width="34%"><font face="Verdana" size="1">&nbsp;</font></td>

            <td width="25%"><font face="Verdana" size="1">&nbsp;</font></td>

          </tr>

          <tr>

            <td width="9%" bgcolor="#EFEFEF">

            <p align="center"><font face="Verdana" size="1">

            <input type="checkbox" name="selectAll1" onclick=CheckAll(this) value="ON"></font></td>

            <td width="91%" bgcolor="#EFEFEF" colspan="3"><b><font face="Verdana" size="1">

            Select All</font></b></td>

          </tr>

          <tr>

            <td width="100%" colspan="4">

            <p align="center"><b><font face="Verdana" size="1"><%call navBar1()%></font></b></td>

          </tr>

        </table>

Dec 17 '07 #2

jhardman

3,406

Expert 2GB

continued from above:

Expand|Select|Wrap|Line Numbers

 
        <p align="center">

        <input type="button" value="Delete" name="B1" OnClick="ConfirmDelete()" style="font-size: 10pt; font-family: Verdana; color: #FFFFFF; font-weight: bold; border-style: solid; border-width: 1; background-color: #800000">

        <input type="reset" value="Reset" name="B2" style="font-size: 10pt; font-family: Verdana; color: #FFFFFF; font-weight: bold; border-style: solid; border-width: 1; background-color: #800000"></p>

        <input type="hidden" value="<%=pageName%>" name="pageName">

        </form>

          <p>&nbsp;</td>

        </tr>

      </table>

      </td>

    </tr>

    <tr>

      <td width="45%" colspan="2" height="19" bgcolor="#EFEFEF" style="border-left-style: solid; border-left-width: 1; border-right-style: none; border-right-width: medium; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#800000">

      <p style="margin-left:15; margin-top:0; margin-bottom:0"><b>

      <font size="1" face="Verdana" color="#800000">Admin Module Version 1.0</font></b></td>

      <td width="55%" colspan="2" height="19" bgcolor="#EFEFEF" style="border-left-style: none; border-left-width: medium; border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1" bordercolor="#800000">

      <p style="margin-right: 15; margin-top: 0; margin-bottom: 0" align="right"><b>

      <font face="Verdana" size="1" color="#800000">Powered By: 

      <a href="http://www.webxindia.com"><font color="#800000">WebX</font></a></font></b></td>

    </tr>

    <tr>

      <td width="100%" colspan="4" height="20" style="border-top-style: solid; border-top-width: 1">&nbsp;</td>

    </tr>

  </table>

  </center>

</div>

<% 

Else

if request.queryString("strErr") = "" then

    DispErr= "Sorry No Records Found!!"

Else

    DispErr = request.queryString("strErr")

End if
 
%>

       <center>

            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber7">

              <tr>

                <td width="20" bgcolor="#800000">

      <img border="0" src="Images/cornerleft.jpg"></td>

                <td width="660" bgcolor="#800000">

                <p align="center"><b>

                <font color="#FFFFFF" size="2" face="Verdana">Information</font></b></td>

                <td width="20">

                <p align="right">

                <img border="0" src="Images/cornerright.jpg"></td>

              </tr>

              <tr>

                <td width="20" bgcolor="#EFEFEF" bordercolor="#800000" style="border-left-style: solid; border-left-width: 1">&nbsp;</td>

                <td width="660" bgcolor="#EFEFEF">&nbsp;</td>

                <td width="20" bgcolor="#EFEFEF" bordercolor="#800000" style="border-right-style: solid; border-right-width: 1">&nbsp;</td>

              </tr>

              <tr>

                <td width="20" bordercolor="#800000" style="border-left-style: solid; border-left-width: 1">&nbsp;</td>

                <td width="660">&nbsp;</td>

                <td width="20" bordercolor="#800000" style="border-right-style: solid; border-right-width: 1">&nbsp;</td>

              </tr>

              <tr>

                <td width="20" bordercolor="#800000" style="border-left-style: solid; border-left-width: 1">&nbsp;</td>

                <td width="660">

                <p align="center"><font size="2" face="Verdana" color="#800000"><b><%=dispErr%></b></td>

                <td width="20" bordercolor="#800000" style="border-right-style: solid; border-right-width: 1">&nbsp;</td>

              </tr>

              <tr>

                <td width="20" bordercolor="#800000" style="border-left-style: solid; border-left-width: 1">&nbsp;</td>

                <td width="660">&nbsp;</td>

                <td width="20" bordercolor="#800000" style="border-right-style: solid; border-right-width: 1">&nbsp;</td>

              </tr>

              <tr>

                <td width="20" bordercolor="#800000" style="border-left-style: solid; border-left-width: 1; border-bottom-style: solid; border-bottom-width: 1" bgcolor="#EFEFEF">&nbsp;</td>

                <td width="660" bgcolor="#EFEFEF" bordercolor="#800000" style="border-bottom-style: solid; border-bottom-width: 1">&nbsp;</td>

                <td width="20" bgcolor="#EFEFEF" bordercolor="#800000" style="border-right-style: solid; border-right-width: 1; border-bottom-style: solid; border-bottom-width: 1">&nbsp;</td>

              </tr>

            </table>

            <font size="2" face="Verdana"></center>

        <%

            Recordset1.close()

            Set Recordset1 = Nothing

            Response.end 

        end if 

%>

<%sub navBar1()

'Counter for paging loop

    if(cur_page mod 10)= 0 then

            counterstart = cur_page - 9

        else

            counterstart = cur_page - (cur_page mod 10) + 1

        end if

            counterend = counterstart + 9
 
        if counterend >= page_count then

            counterend=Page_count

        end if
 
'For Last

    last_page=page_count

'For next page

    if ( (counterstart + 10) <= page_count )then

      next_page= counterstart + 10

    end if

'First page

      first_page=1

'Previous Page

    if counterstart > 10 then

      pre_page = counterstart - 10 

    end if    
 
'paging string    

    strpage=""

     for k=counterstart to counterend step 1

     if counterstart < page_count or  counterstart = page_count then    

          if k = cur_page then

                strpage = strpage &"&nbsp;"& k

            else

                strpage = strpage & "&nbsp;<A href="& pageName &"?table="& table & "&search="& search & "&action=showAll&page="& k 

                strpage = strpage & ">" & k & "</A>"

          end if

   end if

  next
 
  '///////////////////////

  'first

  if  cur_page <> 1 then

    str1="<A href="& pageName &"?table="& table & "&search="& search & "&action=showAll&page=1>First</A>&nbsp;:&nbsp;"

  else

    str1=  "First&nbsp;:&nbsp;"

  end if
 
  'previous

  if counterstart < 10 then

     str1= str1 &"Previous"

  else

    str1= str1 &"<A href="& pageName &"?table="& table & "&search="& search & "&action=showAll&page="& pre_page &">Previous</A>"

  end if 
 
'Next

  if counterstart+10 < page_count then

      str2="<A href="& pageName &"?table="& table & "&search="& search & "&action=showAll&page="& next_page &">Next</A>&nbsp;:&nbsp;"

  else

      str2="Next&nbsp;:&nbsp;"

  end if    

'Last

  if cur_page < page_count then

    str2=str2 &"<A href="& pageName &"?table="& table & "&search="& search & "&action=showAll&page="& last_page &">Last</A>"     

  else

    str2= str2 &"Last"

  end if

  '///////////////////////
 
  'Response.Write "<table width=98% cellpadding=4 cellspacing=1 bgcolor=#663333 >"

  'Response.Write"<tr><td align=right bgcolor=#ffffff >"

  'Response.Write "<FONT face='Verdana, Arial, Helvetica, sans-serif'color=#663333 size=2>"  

  Response.Write str1 & " [ " & strpage & " ] " & str2 &"</font>&nbsp;&nbsp;"

  'Response.Write"</td></tr></table>"
 
  end sub%>
 
</body>
 
</html>

Dec 17 '07 #3

jhardman

3,406

Expert 2GB

you just posted almost 500 lines of code. There is no way I am going to read through it to try to find a problem. Shorten it down to 50 lines and a bunch of psuedo-code and I will look into it.

Jared

Dec 17 '07 #4

Nicodemas

164

Expert 100+

I have a pretty neat piece of VBScript that will page out a resultset using GetRows available for download off my website. Go to The Projects and look for the link there.

Dec 18 '07 #5

jhardman

3,406

Expert 2GB

I have a pretty neat piece of VBScript that will page out a resultset using GetRows available for download off my website. Go to The Projects and look for the link there.

Interested in writing it down in "how-to" article format? this question comes up often enough.

Jared

Dec 18 '07 #6

Similar topics