home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 May / W2KPRK.iso / apps / crystal / disk24 / Xasp27 < prev    next >
Text File  |  1999-08-23  |  4KB  |  80 lines
  1. <%
  2. ' Set the correct numbers on the paging buttons
  3.  
  4. brch = request.querystring("BRCH")
  5. if brch <> "" then
  6.     brch = "&" & "brch=" & brch
  7.     basepage = "<a href =" & chr(34) &"javascript:parent.parent.location = 'rptserver.asp?init=html_frame&page=1'" & chr(34) & ">"
  8.     drillimg = "<img border=0 src='/viewer/images/toolbar/pdrilld.gif'>"
  9. end if 
  10.  
  11. CurrentPageNumber = CStr(session("CurrentPageNumber"))
  12. lastknownpage = CStr(session("lastknownpage"))
  13. LastPageNumber = CStr(session("LastPageNumber"))
  14.  
  15. if CurrentPageNumber = "" then 
  16.     CurrentPageNumber = "1"
  17. end if
  18.  
  19. if lastknownpage = "" then
  20.     lastknownpage = "0"
  21. end if
  22.  
  23.  
  24.  
  25. if LastPageNumber <> ""  and (CurrentPageNumber = LastPageNumber) then
  26.     lastknownpage = CurrentPageNumber
  27.     ' remember the last known page
  28.     session("lastknownpage") = CurrentPageNumber
  29.     nextlink = ""
  30.     lastlink = ""
  31.     if CInt(CurrentPageNumber) > 1 then
  32.         previouspage = CInt(CurrentPageNumber) - 1
  33.         previouslink = "<a href=" & chr(34) & "javascript:parent.location='rptserver.asp?cmd=toolbar%5Fpage&viewer=html%5Fframe&vfmt=html%5Fframe&page=" & previouspage & brch & "'" & chr(34) & ">"
  34.         firstlink = "<a href=" & chr(34) & "javascript:parent.location='rptserver.asp?cmd=toolbar%5Fpage&viewer=html%5Fframe&vfmt=html%5Fframe&page=1" & brch & "'" & chr(34) & ">"
  35.     else
  36.         previouslink = ""
  37.         firstlink = ""
  38.     end if
  39. else
  40.     if (CInt(lastknownpage) < CInt(CurrentPageNumber)) and LastPageNumber = "" then
  41.         ' remember the last known page
  42.         session("lastknownpage") = CurrentPageNumber
  43.         lastknownpage = CurrentPageNumber & "+"
  44.     else 
  45.         if lastknownpage <> LastPageNumber then
  46.             lastknownpage = lastknownpage & "+"
  47.         end if
  48.     end if
  49.     if CInt(CurrentPageNumber) > 1 then
  50.         previouspage = CInt(CurrentPageNumber) -1
  51.         previouslink = "<a href=" & chr(34) & "javascript:parent.location='rptserver.asp?cmd=toolbar%5Fpage&viewer=html%5Fframe&vfmt=html%5Fframe&page=" & previouspage & brch & "'" & chr(34) & ">"
  52.         firstlink = "<a href=" & chr(34) & "javascript:parent.location='rptserver.asp?cmd=toolbar%5Fpage&viewer=html%5Fframe&vfmt=html%5Fframe&page=1" & brch & "'" & chr(34) & ">"
  53.     else
  54.         previouslink = ""
  55.         firstlink = ""
  56.         previouspage = 1
  57.     end if
  58.     nextpage = CInt(CurrentPageNumber) + 1
  59.     nextlink = "<a href=" & chr(34) & "javascript:parent.location='rptserver.asp?cmd=toolbar%5Fpage&viewer=html%5Fframe&vfmt=html%5Fframe&page=" & nextpage & brch & "'" & chr(34) & ">"
  60.     lastlink = "<a href=" & chr(34) & "javascript:parent.location='rptserver.asp?cmd=toolbar%5Fpage&viewer=html%5Fframe&vfmt=html%5Fframe&page=32756" & brch & "'" & chr(34) & ">"
  61. end if
  62.  
  63. %>
  64.  
  65. <html>
  66. <body background="/viewer/images/toolbar/toolbg.gif" topmargin=0 leftmargin=0>
  67. <form method="POST" name=pf target="CrystalViewerPageFrame" action="rptserver.asp?cmd=srch&viewer=html%5Fframe&vfmt=html_frame&page=<%response.write CurrentPageNumber %>&dir=FOR&case=0">
  68. <table border=0 width=100% cellpadding=0 cellspacing=0 height=100%><tr nowrap>
  69. <td nowrap align=right width=10%><% response.write firstlink %><img border=0 src="/viewer/images/toolbar/first.gif" alt="First page"><% response.write previouslink %><img border=0 src="/viewer/images/toolbar/prev.gif" alt="Previous page"></td>
  70. <td nowrap valign=center align=center width=20%><b> <%response.write CurrentPageNumber %></b> of <%response.write lastknownpage %></td>
  71. <td nowrap align=left width=10%><%response.write nextlink %><img border=0 src="/viewer/images/toolbar/next.gif" alt="Next page"></a><%response.write lastlink %><img border=0 src="/viewer/images/toolbar/last.gif" alt="Last page"></a></td>
  72. <td align=center width=10%><a href ="javascript:parent.parent.location = 'rptserver.asp?cmd=rfsh&viewer=html%5Fframe&vfmt=html%5Fframe&page=<%response.write CurrentPageNumber %>'"><img border=0 src="/viewer/images/toolbar/refresh.gif" alt="Refresh"></a></td>
  73. <td align=right width=15%><input type=text size=10 maxlength=255 name=text></td>
  74. <td align=left width=5%><input type=image src="/viewer/images/toolbar/search.gif"></td>
  75. <td nowrap valign=bottom align=right width=30%><% response.write basepage %><% response.write drillimg %></td>
  76. </tr></table>
  77. </form>
  78. </body>
  79. </html>
  80.