home *** CD-ROM | disk | FTP | other *** search
/ 207.233.110.77 / 207.233.110.77.tar / 207.233.110.77 / vbasic / _fpclass / fpdbrgn2.inc < prev   
Text File  |  2001-08-30  |  2KB  |  63 lines
  1. <%
  2.     ' Close the loop iterating records
  3.     fp_iCount = fp_iCount + 1
  4.     fp_rs.MoveNext
  5. Loop
  6.  
  7. if fp_fShowNavbar then 
  8.     if fp_fTableFormat then 
  9.     if fp_iDisplayCols < 1 then fp_iDisplayCols = 16
  10.         Response.Write "<TR><TD ALIGN=LEFT VALIGN=MIDDLE COLSPAN=" & CStr(fp_iDisplayCols) & ">"
  11.     end if
  12.  
  13.     Response.Write "<FORM NAME=""" & fp_sFormName & """ ACTION=""" & fp_sPagePath & """ TARGET=""_self"" METHOD=POST>"
  14.  
  15.     if fp_iAbsPage > 1 then 
  16.         fp_sType = "Submit" 
  17.         fp_sLabel = fp_sFirstLabel
  18.     else
  19.         fp_sType = "Button"
  20.         fp_sLabel = fp_sDashLabel
  21.     end if
  22.     Response.Write "<NOBR><INPUT TYPE=" & fp_sType & " NAME=""" & fp_sFormKey & """ VALUE=""" & fp_sLabel & """>"
  23.     if fp_iAbsPage > 1 then fp_sLabel = fp_sPrevLabel
  24.     Response.Write "<INPUT TYPE=" & fp_sType & " NAME=""" & fp_sFormKey & """ VALUE=""" & fp_sLabel & """>"
  25.     if fp_iAbsPage < fp_rs.PageCount then 
  26.         fp_sType = "Submit" 
  27.         fp_sLabel = fp_sNextLabel
  28.     else 
  29.         fp_sType = "Button"
  30.         fp_sLabel = fp_sDashLabel
  31.     end if
  32.     Response.Write "<INPUT TYPE=" & fp_sType & " NAME=""" & fp_sFormKey & """ VALUE=""" & fp_sLabel & """>"
  33.     if fp_iAbsPage < fp_rs.PageCount then fp_sLabel = fp_sLastLabel
  34.     Response.Write "<INPUT TYPE=" & fp_sType & " NAME=""" & fp_sFormKey & """ VALUE=""" & fp_sLabel & """>"
  35.  
  36.     Response.Write "  [" & fp_iAbsPage & "/" & fp_rs.PageCount & "]</NOBR>"
  37.  
  38.     ' remember names and values used in query
  39.     for each fp_sKey in fp_dictInputs
  40.         fp_sVal = fp_dictInputs.Item(fp_sKey)
  41.         Response.Write "<INPUT TYPE=HIDDEN NAME=""" & fp_sKey & """ VALUE=""" & fp_sVal & """>"
  42.     next
  43.  
  44.     Response.Write "</FORM>"
  45.  
  46.     if fp_fTableFormat then 
  47.         Response.Write "</TD></TR>"
  48.     end if
  49. end if
  50.  
  51. if IsObject(fp_rs) then 
  52.     FP_Close(fp_rs)
  53.     FP_Close(fp_conn)
  54. end if
  55.  
  56. set fp_dictInputs = Nothing
  57.  
  58. set fp_rs = Nothing
  59. set fp_cmd = Nothing
  60. set fp_conn = Nothing
  61.  
  62. %>
  63.