home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 May / PCW0501.iso / patch / WIN98SP1 / IE401.SP2 / ieak4.CAB / corpform.asp < prev    next >
Encoding:
Text File  |  1998-02-09  |  23.6 KB  |  648 lines
  1. <%@ LANGUAGE="vbscript" %>
  2. <%
  3. '-------------------------------------------------------------------------------
  4. ' Microsoft Visual InterDev - Data Form Wizard
  5. ' 
  6. ' Form Page
  7. '
  8. ' (c) 1997 Microsoft Corporation.  All Rights Reserved.
  9. '
  10. ' This file is an Active Server Page that contains the form view of a Data Form. 
  11. ' It requires Microsoft Internet Information Server 3.0 and can be displayed
  12. ' using any browser that supports tables. You can edit this file to further 
  13. ' customize the form view.
  14. '
  15. ' Modes:         The form mode can be controlled by passing the following
  16. '                name/value pairs using POST or GET:
  17. '                FormMode=Edit
  18. '                FormMode=Filter
  19. '                FormMode=New
  20. ' Tips:            - If a field contains a URL to an image and has a name that 
  21. '                begins with "img_" (case-insensitive), the image will be 
  22. '                displayed using the IMG tag.
  23. '                - If a field contains a URL and has a name that begins with 
  24. '                "url_" (case-insensitive), a jump will be displayed using the 
  25. '                Anchor tag.
  26. '-------------------------------------------------------------------------------
  27.  
  28. Dim strPagingMove    
  29. Dim strFormMode
  30. Dim strDFName
  31. strDFName = "rsCorpAdminIEGroup"
  32. %>
  33.  
  34. <SCRIPT RUNAT=Server LANGUAGE="VBScript">
  35.  
  36. '---- FieldAttributeEnum Values ----
  37. Const adFldUpdatable = &H00000004
  38. Const adFldUnknownUpdatable = &H00000008
  39. Const adFldIsNullable = &H00000020
  40.  
  41. '---- DataTypeEnum Values ----
  42. Const adUnsignedTinyInt = 17
  43. Const adBoolean = 11
  44. Const adLongVarChar = 201
  45. Const adLongVarWChar = 203
  46. Const adBinary = 128
  47. Const adVarBinary = 204
  48. Const adLongVarBinary = 205
  49. Const adVarChar = 200
  50. Const adWVarChar = 202
  51. Const adBSTR = 8
  52. Const adChar = 129
  53. Const adWChar = 130
  54. '---- Other Values ----
  55. Const dfMaxSize = 100
  56.  
  57. '-------------------------------------------------------------------------------
  58. ' Purpose:  Substitutes Empty for Null and trims leading/trailing spaces
  59. ' Inputs:   varTemp    - the target value
  60. ' Returns:    The processed value
  61. '-------------------------------------------------------------------------------
  62.  
  63. Function ConvertNull(varTemp)
  64.     If IsNull(varTemp) Then
  65.         ConvertNull = ""
  66.     Else
  67.         ConvertNull = Trim(varTemp)
  68.     End If
  69. End Function
  70.  
  71. '-------------------------------------------------------------------------------
  72. ' Purpose:  Embeds bracketing quotes around the string
  73. ' Inputs:   varTemp    - the target value
  74. ' Returns:    The processed value
  75. '-------------------------------------------------------------------------------
  76.  
  77. Function QuotedString(varTemp)
  78.     If IsNull(varTemp) Then
  79.         QuotedString = Chr(34) & Chr(34)
  80.     Else
  81.         QuotedString = Chr(34) & CStr(varTemp) & Chr(34)
  82.     End If
  83. End Function
  84.  
  85. '-------------------------------------------------------------------------------
  86. ' Purpose:  Tests string to see if it is a URL by looking for protocol
  87. ' Inputs:   varTemp    - the target value
  88. ' Returns:    True - if is URL, False if not
  89. '-------------------------------------------------------------------------------
  90.  
  91. Function IsURL(varTemp)
  92.     IsURL = True
  93.     If UCase(Left(Trim(varTemp), 6)) = "HTTP:/" Then Exit Function
  94.     If UCase(Left(Trim(varTemp), 6)) = "FILE:/" Then Exit Function
  95.     If UCase(Left(Trim(varTemp), 8)) = "MAILTO:/" Then Exit Function
  96.     If UCase(Left(Trim(varTemp), 5)) = "FTP:/" Then Exit Function
  97.     If UCase(Left(Trim(varTemp), 8)) = "GOPHER:/" Then Exit Function
  98.     If UCase(Left(Trim(varTemp), 6)) = "NEWS:/" Then Exit Function
  99.     If UCase(Left(Trim(varTemp), 7)) = "HTTPS:/" Then Exit Function
  100.     If UCase(Left(Trim(varTemp), 8)) = "TELNET:/" Then Exit Function
  101.     If UCase(Left(Trim(varTemp), 6)) = "NNTP:/" Then Exit Function
  102.     IsURL = False
  103. End Function
  104.  
  105. '-------------------------------------------------------------------------------
  106. ' Purpose:  Tests whether the field in the recordset is updatable
  107. ' Assumes:     That the recordset containing the field is open
  108. ' Inputs:   strFieldName    - the name of the field in the recordset
  109. ' Returns:    True if updatable, False if not
  110. '-------------------------------------------------------------------------------
  111.  
  112. Function CanUpdateField(strFieldName)
  113.     Dim intUpdatable
  114.     intUpdatable = (adFldUpdatable Or adFldUnknownUpdatable)
  115.     CanUpdateField = True
  116.     If (rsCorpAdminIEGroup(strFieldName).Attributes And intUpdatable) = False Then
  117.         CanUpdateField = False
  118.     End If
  119. End Function
  120.  
  121. '-------------------------------------------------------------------------------
  122. ' Purpose:  Handles the display of a field from a recordset depending
  123. '            on its data type, attributes, and the current mode.
  124. ' Assumes:     That the recordset containing the field is open
  125. '            That strFormMode is initialized
  126. ' Inputs:   strFieldName     - the name of the field in the recordset
  127. '            strLabel        - the label to display
  128. '            blnIdentity        - identity field flag
  129. '            avarLookup        - array of lookup values
  130. '-------------------------------------------------------------------------------
  131.  
  132. Sub ShowField(strFieldName, strLabel, blnIdentity, avarLookup)
  133.     Dim blnFieldRequired
  134.     Dim intMaxSize
  135.     Dim intInputSize
  136.     Dim strOption1State
  137.     Dim strOption2State
  138.     Dim strFieldValue
  139.     Dim nPos
  140.     strFieldValue = ""
  141.     nPos=Instr(strFieldName,".")
  142.     Do While nPos > 0 
  143.         strFieldName= Mid (strFieldName, nPos+1)
  144.         nPos=Instr(strFieldName,".")
  145.     Loop 
  146.     ' If not in Edit form mode then set value to empty so doesn't display
  147.     strFieldValue = ""
  148.     If strFormMode = "Edit" Then strFieldValue = RTrim(rsCorpAdminIEGroup(strFieldName))
  149.     
  150.     ' See if the field is required by checking the attributes 
  151.     blnFieldRequired = False
  152.     If (rsCorpAdminIEGroup(strFieldName).Attributes And adFldIsNullable) = 0 Then 
  153.         blnFieldRequired = True
  154.     End If
  155.     
  156.     ' Set values for the MaxLength and Size attributes    
  157.     intMaxSize = dfMaxSize
  158.     intInputSize = rsCorpAdminIEGroup(strFieldName).DefinedSize + 2
  159.     If strFormMode <> "Filter" Then intMaxSize = intInputSize - 2
  160.     
  161.     ' Write the field label and start the value cell
  162.     Response.Write "<TR VALIGN=TOP>"
  163.     Response.Write "<TD HEIGHT=25 ALIGN=Left NOWRAP><FONT SIZE=-1><B>  " & strLabel & "</B></FONT></TD>"    
  164.     Response.Write "<TD WIDTH=100% ><FONT SIZE=-1>"
  165.     
  166.     ' If the field is not updatable, then handle 
  167.     ' it like an Identity column and exit
  168.     If Not CanUpdateField(strFieldName) Then
  169.         ' Special handling if Binary
  170.         Select Case rsCorpAdminIEGroup(strFieldName).Type
  171.             Case adBinary, adVarBinary, adLongVarBinary        'Binary
  172.                 Response.Write "[Binary]"
  173.             Case Else        
  174.                 Select Case strFormMode
  175.                     Case "Edit"
  176.                         Response.Write ConvertNull(strFieldValue)
  177.                         Response.Write "<INPUT TYPE=Hidden NAME=" & QuotedString(strFieldName)
  178.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  179.                     Case "New"
  180.                         Response.Write "[AutoNumber]"
  181.                         Response.Write "<INPUT TYPE=Hidden NAME=" & QuotedString(strFieldName)
  182.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  183.                     Case "Filter" 
  184.                         Response.Write "<INPUT TYPE=Text NAME=" & QuotedString(strFieldName)
  185.                         Response.Write " SIZE=" & intInputSize
  186.                         Response.Write " MAXLENGTH=" & intMaxSize
  187.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  188.                 End Select
  189.         End Select
  190.         Response.Write "</FONT></TD></TR>"
  191.         Exit Sub
  192.     End If
  193.     
  194.     ' Handle lookups using a select and options
  195.     If Not IsNull(avarLookup) Then
  196.         Response.Write "<SELECT NAME=" & QuotedString(strFieldName) & ">"
  197.         ' Add blank entry if not required or in filter mode
  198.         If Not blnFieldRequired Or strFormMode = "Filter" Then
  199.             If (strFormMode = "Filter" Or strFormMode = "New") Then
  200.                 Response.Write "<OPTION SELECTED>"
  201.             Else
  202.                 Response.Write "<OPTION>"
  203.             End If
  204.         End If
  205.         
  206.         ' Loop thru the rows in the array
  207.         For intRow = 0 to UBound(avarLookup, 2)
  208.             Response.Write "<OPTION VALUE=" & QuotedString(avarLookup(0, intRow))
  209.             If strFormMode = "Edit" Then
  210.                 If ConvertNull(avarLookup(0, intRow)) = ConvertNull(strFieldValue) Then
  211.                        Response.Write " SELECTED"
  212.                 End If
  213.             End If
  214.                Response.Write ">"
  215.             Response.Write ConvertNull(avarLookup(1, intRow))
  216.         Next
  217.         Response.Write "</SELECT>"
  218.         If blnFieldRequired And strFormMode = "New" Then 
  219.             Response.Write "  Required"
  220.         End If
  221.         Response.Write "</FONT></TD></TR>"
  222.         Exit Sub
  223.     End If    
  224.     
  225.     ' Evaluate data type and handle appropriately
  226.     Select Case rsCorpAdminIEGroup(strFieldName).Type
  227.     
  228.         Case adBoolean, adUnsignedTinyInt                'Boolean
  229.             If strFormMode = "Filter" Then                
  230.                 strOption1State = " >True"
  231.                 strOption2State = " >False"
  232.             Else
  233.                 Select Case strFieldValue
  234.                     Case "True", "1", "-1"
  235.                         strOption1State = " CHECKED>True"
  236.                         strOption2State = " >False"
  237.                     Case "False", "0"
  238.                         strOption1State = " >True"
  239.                         strOption2State = " CHECKED>False"
  240.                     Case Else
  241.                         strOption1State = " >True"
  242.                         strOption2State = " >False"
  243.                 End Select
  244.             End If            
  245.             Response.Write "<INPUT TYPE=Radio VALUE=1 NAME=" & QuotedString(strFieldName) & strOption1State
  246.             Response.Write "<INPUT TYPE=Radio VALUE=0 NAME=" & QuotedString(strFieldName) & strOption2State
  247.             If strFormMode = "Filter" Then
  248.                 Response.Write "<INPUT TYPE=Radio NAME=" & QuotedString(strFieldName) & " CHECKED>Neither"
  249.             End If
  250.             
  251.         Case adBinary, adVarBinary, adLongVarBinary        'Binary
  252.             Response.Write "[Binary]"
  253.             
  254.         Case adLongVarChar, adLongVarWChar                'Memo
  255.             Response.Write "<TEXTAREA NAME=" & QuotedString(strFieldName) & " ROWS=3 COLS=80>"
  256.             Response.Write Server.HTMLEncode(ConvertNull(strFieldValue))
  257.             Response.Write "</TEXTAREA>"
  258.             
  259.         Case Else
  260.             Dim nType 
  261.             nType=rsCorpAdminIEGroup(strFieldName).Type
  262.             If (nType <> adVarChar) and (nType <> adWVarChar) and (nType <> adBSTR) and (nType <> adChar) and (nType <> adWChar)  Then
  263.                 intInputSize = (intInputSize-2)*3+2
  264.                 If strFormMode <> "Filter" Then intMaxSize = intInputSize - 2
  265.             End If
  266.             If blnIdentity Then
  267.                 Select Case strFormMode
  268.                     Case "Edit"
  269.                         Response.Write ConvertNull(strFieldValue)
  270.                         Response.Write "<INPUT TYPE=Hidden NAME=" & QuotedString(strFieldName)
  271.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  272.                     Case "New"
  273.                         Response.Write "[AutoNumber]"
  274.                         Response.Write "<INPUT TYPE=Hidden NAME=" & QuotedString(strFieldName)
  275.                         Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  276.                     Case "Filter" 
  277.                         Response.Write "<INPUT TYPE=Text NAME=" & QuotedString(strFieldName) & " SIZE=" & tInputSize
  278.                         Response.Write " MAXLENGTH=" & tMaxSize & " VALUE=" & QuotedString(strFieldValue) & " >"
  279.                 End Select
  280.             Else
  281.                 If intInputSize > 80 Then intInputSize = 80            
  282.                 Response.Write "<INPUT TYPE=Text NAME=" & QuotedString(strFieldName)
  283.                 Response.Write " SIZE=" & intInputSize
  284.                 Response.Write " MAXLENGTH=" & intMaxSize
  285.                 Response.Write " VALUE=" & QuotedString(strFieldValue) & " >"
  286.                 ' Check for special field types
  287.                 Select Case UCase(Left(rsCorpAdminIEGroup(strFieldName).Name, 4))
  288.                     Case "IMG_"
  289.                         If strFieldValue <> "" Then
  290.                             Response.Write "<BR><BR><IMG SRC=" & QuotedString(strFieldValue) & "><BR> <BR>"
  291.                         End If
  292.                     Case "URL_"
  293.                         If strFieldValue <> "" Then
  294.                             Response.Write "  <A HREF=" & QuotedString(strFieldValue) & ">"
  295.                             Response.Write "Go"
  296.                             Response.Write "</A>"
  297.                         End If
  298.                     Case Else
  299.                         If IsURL(strFieldValue) Then
  300.                             Response.Write "  <A HREF=" & QuotedString(strFieldValue) & ">"
  301.                             Response.Write "Go"
  302.                             Response.Write "</A>"
  303.                         End If                    
  304.                 End Select                
  305.             End If
  306.     End Select
  307.        If blnFieldRequired And strFormMode = "New" Then
  308.         Response.Write "  Required"
  309.     End If
  310.     Response.Write "</FONT></TD></TR>"
  311. End Sub    
  312. </SCRIPT>
  313.  
  314. <% 
  315. strFormMode = "Edit"    ' Initalize the default
  316. If Not IsEmpty(Request("FormMode")) Then strFormMode = Request("FormMode")
  317. If Not IsEmpty(Request("rsCorpAdminIEGroup_PagingMove")) Then
  318.     strPagingMove = Trim(Request("rsCorpAdminIEGroup_PagingMove"))
  319. End If
  320. %>
  321.  
  322. <HTML>
  323. <HEAD>
  324.     <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev">
  325.     <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
  326.     <META NAME="Keywords" CONTENT="Microsoft Data Form, IEAK CorpAdmin Form">
  327.     <TITLE>IEAK CorpAdmin Form</TITLE>
  328. </HEAD>
  329.  
  330. <!--------------------------- Formatting Section ------------------------------>
  331.  
  332. <BASEFONT FACE="Arial, Helvetica, sans-serif">
  333. <LINK REL=STYLESHEET HREF="./Stylesheets/Grid/Style2.css">
  334. <BODY BACKGROUND="./Images/Grid/Background/Back2.jpg" BGCOLOR=White>
  335.  
  336. <!---------------------------- Lookups Section -------------------------------->
  337.  
  338. <!---------------------------- Heading Section -------------------------------->
  339.  
  340. <% Response.Write "<FORM ACTION=""CorpAdminAction.asp"" METHOD=""POST"">" %>
  341. <TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0>
  342.     <TR>
  343.         <TH NOWRAP BGCOLOR=Silver BACKGROUND="./Images/Grid/Navigation/Nav1.jpg">
  344.             <FONT SIZE=6> IEAK CorpAdmin </FONT>
  345.         </TH>
  346.         <TD ALIGN=Right BGCOLOR=Silver VALIGN=MIDDLE WIDTH=100% BACKGROUND="./Images/Grid/Navigation/Nav1.jpg">
  347.             <% 
  348.             If strFormMode = "Form View" then strFormMode = "Edit"
  349.             Select Case strFormMode
  350.                 Case "Edit"    
  351.                     %>
  352.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="Update">
  353.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="Delete">
  354.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="New">
  355.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="Filter">
  356.                     <% If Session("rsCorpAdminIEGroup_Filter") <> "" Then %>
  357.                           <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="All Records">
  358.                     <% End If %> 
  359.                 <% Case "Filter" %>
  360.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE=" Apply ">
  361.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE=" Cancel "> 
  362.                 <% Case "New" %>
  363.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE=" Insert ">
  364.                     <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE=" Cancel "> 
  365.             <% End Select %>
  366.              <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="List View">         
  367.         </TD>
  368.     </TR>
  369.     <TR>
  370.         <TD BGCOLOR=#FFFFCC COLSPAN=3>
  371.             <FONT SIZE=-1>  
  372.             <%
  373.             If Not IsEmpty(Session("rsCorpAdminIEGroup_Status")) And Session("rsCorpAdminIEGroup_Status") <>"" Then
  374.                 Response.Write Session("rsCorpAdminIEGroup_Status")
  375.                 Session("rsCorpAdminIEGroup_Status") = ""
  376.             Else
  377.                 Select Case strFormMode
  378.                     Case "Edit"
  379.                         If IsEmpty(Session("rsCorpAdminIEGroup_Filter")) Then
  380.                             Response.Write "Current Filter: None"
  381.                         Else
  382.                             If Session("rsCorpAdminIEGroup_Filter") <> "" Then
  383.                                 Response.Write "Current Filter: " & Session("rsCorpAdminIEGroup_FilterDisplay")
  384.                             Else
  385.                                 Response.Write "Current Filter: None"
  386.                             End If
  387.                         End If
  388.                     Case "Filter"
  389.                         Response.Write "Status: Ready for filter criteria"
  390.                     Case "New"
  391.                         Response.Write "Status: Ready for new record"
  392.                 End Select
  393.             End If 
  394.             %>
  395.             </FONT>
  396.         </TD>
  397.     </TR></TABLE>
  398.  
  399. <!----------------------------- Form Section ---------------------------------->
  400.  
  401. <!--METADATA TYPE="DesignerControl" startspan
  402.     <OBJECT ID="rsCorpAdminIEGroup" WIDTH=151 HEIGHT=24
  403.         CLASSID="CLSID:F602E721-A281-11CF-A5B7-0080C73AAC7E">
  404.         <PARAM NAME="BarAlignment" VALUE="0">
  405.            <PARAM NAME="PageSize" VALUE="1">
  406.         <PARAM Name="RangeType" Value="1">
  407.         <PARAM Name="DataConnection" Value="DataConn">
  408.         <PARAM Name="CommandType" Value="0">
  409.         <PARAM Name="CommandText" Value="SELECT `GroupID`, `GroupName`, `INSFile` FROM `IEGroup`">
  410.         <PARAM Name="CursorType" Value="1">
  411.         <PARAM Name="LockType" Value="3">
  412.         <PARAM Name="CacheRecordset" Value="1">
  413.     </OBJECT>
  414. -->
  415.  
  416. <%
  417. fHideNavBar = False
  418. fHideNumber = False
  419. fHideRequery = False
  420. fHideRule = False
  421. stQueryString = ""
  422. fEmptyRecordset = False
  423. fFirstPass = True
  424. fNeedRecordset = False
  425. fNoRecordset = False
  426. tBarAlignment = "Left"
  427. tHeaderName = "rsCorpAdminIEGroup"
  428. tPageSize = 1
  429. tPagingMove = ""
  430. tRangeType = "Form"
  431. tRecordsProcessed = 0
  432. tPrevAbsolutePage = 0
  433. intCurPos = 0
  434. intNewPos = 0
  435. fSupportsBookmarks = True
  436. fMoveAbsolute = False
  437.  
  438. If Not IsEmpty(Request("rsCorpAdminIEGroup_PagingMove")) Then
  439.     tPagingMove = Trim(Request("rsCorpAdminIEGroup_PagingMove"))
  440. End If
  441.  
  442. If IsEmpty(Session("rsCorpAdminIEGroup_Recordset")) Then
  443.     fNeedRecordset = True
  444. Else
  445.     If Session("rsCorpAdminIEGroup_Recordset") Is Nothing Then
  446.         fNeedRecordset = True
  447.     Else
  448.         Set rsCorpAdminIEGroup = Session("rsCorpAdminIEGroup_Recordset")
  449.     End If
  450. End If
  451.  
  452. If fNeedRecordset Then
  453.     Set DataConn = Server.CreateObject("ADODB.Connection")
  454.     DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout")
  455.     DataConn.CommandTimeout = Session("DataConn_CommandTimeout")
  456.     DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword")
  457.     Set cmdTemp = Server.CreateObject("ADODB.Command")
  458.     Set rsCorpAdminIEGroup = Server.CreateObject("ADODB.Recordset")
  459.     cmdTemp.CommandText = "SELECT `GroupID`, `GroupName`, `INSFile` FROM `IEGroup`"
  460.     cmdTemp.CommandType = 1
  461.     Set cmdTemp.ActiveConnection = DataConn
  462.     rsCorpAdminIEGroup.Open cmdTemp, , 1, 3
  463. End If
  464. On Error Resume Next
  465. If rsCorpAdminIEGroup.BOF And rsCorpAdminIEGroup.EOF Then fEmptyRecordset = True
  466. On Error Goto 0
  467. If Err Then fEmptyRecordset = True
  468. If fNeedRecordset Then
  469.     Set Session("rsCorpAdminIEGroup_Recordset") = rsCorpAdminIEGroup
  470. End If
  471. rsCorpAdminIEGroup.PageSize = tPageSize
  472. fSupportsBookmarks = rsCorpAdminIEGroup.Supports(8192)
  473.  
  474. If Not IsEmpty(Session("rsCorpAdminIEGroup_Filter")) And Not fEmptyRecordset Then
  475.     rsCorpAdminIEGroup.Filter = Session("rsCorpAdminIEGroup_Filter")
  476.     If rsCorpAdminIEGroup.BOF And rsCorpAdminIEGroup.EOF Then fEmptyRecordset = True
  477. End If
  478.  
  479. If IsEmpty(Session("rsCorpAdminIEGroup_PageSize")) Then Session("rsCorpAdminIEGroup_PageSize") = tPageSize
  480. If IsEmpty(Session("rsCorpAdminIEGroup_AbsolutePage")) Then Session("rsCorpAdminIEGroup_AbsolutePage") = 1
  481.  
  482. If Session("rsCorpAdminIEGroup_PageSize") <> tPageSize Then
  483.     tCurRec = ((Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * Session("rsCorpAdminIEGroup_PageSize")) + 1
  484.     tNewPage = Int(tCurRec / tPageSize)
  485.     If tCurRec Mod tPageSize <> 0 Then
  486.         tNewPage = tNewPage + 1
  487.     End If
  488.     If tNewPage = 0 Then tNewPage = 1
  489.     Session("rsCorpAdminIEGroup_PageSize") = tPageSize
  490.     Session("rsCorpAdminIEGroup_AbsolutePage") = tNewPage
  491. End If
  492.  
  493. If fEmptyRecordset Then
  494.     fHideNavBar = True
  495.     fHideRule = True
  496. Else
  497.     tPrevAbsolutePage = Session("rsCorpAdminIEGroup_AbsolutePage")
  498.     Select Case tPagingMove
  499.         Case ""
  500.             fMoveAbsolute = True
  501.         Case "Requery"
  502.             rsCorpAdminIEGroup.Requery
  503.             fMoveAbsolute = True
  504.         Case "<<"
  505.             Session("rsCorpAdminIEGroup_AbsolutePage") = 1
  506.         Case "<"
  507.             If Session("rsCorpAdminIEGroup_AbsolutePage") > 1 Then
  508.                 Session("rsCorpAdminIEGroup_AbsolutePage") = Session("rsCorpAdminIEGroup_AbsolutePage") - 1
  509.             End If
  510.         Case ">"
  511.             If Not rsCorpAdminIEGroup.EOF Then
  512.                 Session("rsCorpAdminIEGroup_AbsolutePage") = Session("rsCorpAdminIEGroup_AbsolutePage") + 1
  513.             End If
  514.         Case ">>"
  515.             If fSupportsBookmarks Then
  516.                 Session("rsCorpAdminIEGroup_AbsolutePage") = rsCorpAdminIEGroup.PageCount
  517.             End If
  518.     End Select
  519.     Do
  520.         If fSupportsBookmarks Then
  521.             rsCorpAdminIEGroup.AbsolutePage = Session("rsCorpAdminIEGroup_AbsolutePage")
  522.         Else
  523.             If fNeedRecordset Or fMoveAbsolute Or rsCorpAdminIEGroup.EOF Then
  524.                 rsCorpAdminIEGroup.MoveFirst
  525.                 rsCorpAdminIEGroup.Move (Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * tPageSize
  526.             Else
  527.                 intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize
  528.                 intNewPos = ((Session("rsCorpAdminIEGroup_AbsolutePage") - 1) * tPageSize) + 1
  529.                 rsCorpAdminIEGroup.Move intNewPos - intCurPos
  530.             End If
  531.             If rsCorpAdminIEGroup.BOF Then rsCorpAdminIEGroup.MoveNext
  532.         End If
  533.         If Not rsCorpAdminIEGroup.EOF Then Exit Do
  534.         Session("rsCorpAdminIEGroup_AbsolutePage") = Session("rsCorpAdminIEGroup_AbsolutePage") - 1
  535.     Loop
  536. End If
  537.  
  538. Do
  539.     If fEmptyRecordset Then Exit Do
  540.     If tRecordsProcessed = tPageSize Then Exit Do
  541.     If Not fFirstPass Then
  542.         rsCorpAdminIEGroup.MoveNext
  543.     Else
  544.         fFirstPass = False
  545.     End If
  546.     If rsCorpAdminIEGroup.EOF Then Exit Do
  547.     tRecordsProcessed = tRecordsProcessed + 1
  548. %>
  549. <!--METADATA TYPE="DesignerControl" endspan-->
  550.  
  551. <% 
  552. If strFormMode = "Edit" Then
  553.     Response.Write "<P>"
  554.     Response.Write "<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=2 BORDER=0>"
  555.     ShowField "GroupID", "GroupID", True, Null
  556.     ShowField "GroupName", "GroupName", False, Null
  557.     ShowField "INSFile", "INSFile", False, Null
  558.     Response.Write "</TABLE>"
  559.     Response.Write "</FORM></P>"
  560.     stQueryString = "?FormMode=Edit"
  561.     fHideNavBar = False
  562.     fHideRule = True
  563. Else
  564.     fHideNavBar = True
  565.     fHideRule = True
  566. End If 
  567. %>
  568.  
  569. <!--METADATA TYPE="DesignerControl" startspan
  570.     <OBJECT ID="DataRangeFtr1" WIDTH=151 HEIGHT=24
  571.         CLASSID="CLSID:F602E722-A281-11CF-A5B7-0080C73AAC7E">
  572.     </OBJECT>
  573. -->
  574. <%
  575. Loop
  576. If tRangeType = "Table" Then Response.Write "</TABLE>"
  577. If tPageSize > 0 Then
  578.     If Not fHideRule Then Response.Write "<HR>"
  579.     If Not fHideNavBar Then
  580.         %>
  581.         <TABLE WIDTH=100% >
  582.         <TR>
  583.             <TD WIDTH=100% >
  584.                 <P ALIGN=<%= tBarAlignment %> >
  585.                 <FORM <%= "ACTION=""" & Request.ServerVariables("PATH_INFO") & stQueryString & """" %> METHOD="POST">
  586.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <<   ">
  587.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <    ">
  588.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="    >   ">
  589.                     <% If fSupportsBookmarks Then %>
  590.                         <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   >>   ">
  591.                     <% End If %>
  592.                     <% If Not fHideRequery Then %>
  593.                         <INPUT TYPE="Submit" NAME="<% =tHeaderName & "_PagingMove" %>" VALUE=" Requery ">
  594.                     <% End If %>
  595.                 </FORM>
  596.                 </P>
  597.             </TD>
  598.             <TD VALIGN=MIDDLE ALIGN=RIGHT>
  599.                 <FONT SIZE=2>
  600.                 <%
  601.                 If Not fHideNumber Then
  602.                     If tPageSize > 1 Then
  603.                         Response.Write "<NOBR>Page: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  604.                     Else
  605.                         Response.Write "<NOBR>Record: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  606.                     End If
  607.                 End If
  608.                 %>
  609.                 </FONT>
  610.             </TD>
  611.         </TR>
  612.         </TABLE>
  613.     <%
  614.     End If
  615. End If
  616. %>
  617. <!--METADATA TYPE="DesignerControl" endspan-->
  618.  
  619. <% 
  620. If strFormMode <> "Edit" Then
  621.     Response.Write "<P>"
  622.     Response.Write "<TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=2 BORDER=0>"
  623.     ShowField "GroupID", "GroupID", True, Null
  624.     ShowField "GroupName", "GroupName", False, Null
  625.     ShowField "INSFile", "INSFile", False, Null
  626.     Response.Write "</TABLE>"
  627.     Response.Write "</FORM></P>"    
  628. End If
  629. %>
  630.  
  631. <!---------------------------- Footer Section --------------------------------->
  632.  
  633. <%
  634. ' Display a message if there are no records to show
  635. If strFormMode = "Edit" And fEmptyRecordset Then
  636.     Response.Write "<p align=left>No Records Available</p>"
  637. End If
  638. ' TEMP: This is here until we get a drop of the data range that has
  639. '         the CacheRecordset property  
  640. If fNeedRecordset Then
  641.     Set Session("rsCorpAdminIEGroup_Recordset") = rsCorpAdminIEGroup
  642. End If
  643. %>
  644.  
  645. </BODY>
  646. </HTML>
  647.  
  648.