home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / certsrv.cab / wcalist.asp < prev    next >
Encoding:
Text File  |  1997-08-25  |  17.7 KB  |  527 lines
  1. <%@ LANGUAGE="VBScript" %>
  2.  
  3. <% 'Response.Expires = 0 %>
  4.  
  5. <%
  6. '------------------------------------------------------------------------------
  7. ' Microsoft Visual InterDev - Data Form Wizard
  8. ' 
  9. ' List Page
  10. '
  11. ' (c) 1997 Microsoft Corporation.  All Rights Reserved.
  12. '
  13. ' This file is an ASP that contains the list view of a Data Form.
  14. ' It requires Microsoft Internet Information Server 3.0 and can be displayed
  15. ' using any browser that supports tables. You can edit this file to further
  16. ' customize the list view.
  17. '
  18. '------------------------------------------------------------------------------
  19.  
  20. Dim strPagingMove
  21. Dim strDFName
  22. strDFName = "rsWCertAdmNames"
  23. %>
  24.  
  25. <SCRIPT RUNAT=Server LANGUAGE="VBScript">
  26.  
  27. '---- DataTypeEnum Values ----
  28. Const adUnsignedTinyInt = 17
  29. Const adBoolean = 11
  30. Const adLongVarChar = 201
  31. Const adLongVarWChar = 203
  32. Const adBinary = 128
  33. Const adVarBinary = 204
  34. Const adLongVarBinary = 205
  35.  
  36.  
  37. '------------------------------------------------------------------------------
  38. ' Purpose:  Substitutes Empty for Null and trims leading/trailing spaces
  39. ' Inputs:   varTemp    - the target value
  40. ' Returns:    The processed value
  41. '------------------------------------------------------------------------------
  42. Function ConvertNull(varTemp)
  43.    If IsNull(varTemp) Then
  44.        ConvertNull = ""
  45.    Else
  46.        ConvertNull = Trim(varTemp)
  47.    End If
  48. End Function
  49.  
  50.  
  51. '------------------------------------------------------------------------------
  52. ' Purpose:  Embeds bracketing quotes around the string
  53. ' Inputs:   varTemp    - the target value
  54. ' Returns:    The processed value
  55. '------------------------------------------------------------------------------
  56. Function QuotedString(varTemp)
  57.    If IsNull(varTemp) Then
  58.        QuotedString = Chr(34) & Chr(34)
  59.    Else
  60.        QuotedString = Chr(34) & CStr(varTemp) & Chr(34)
  61.    End If
  62. End Function
  63.  
  64.  
  65. '------------------------------------------------------------------------------
  66. ' Purpose:  Tests string to see if it is a URL by looking for protocol
  67. ' Inputs:   varTemp    - the target value
  68. ' Returns:    True - if is URL, False if not
  69. '------------------------------------------------------------------------------
  70. Function IsURL(varTemp)
  71. IsURL = True
  72.    If UCase(Left(Trim(varTemp), 6)) = "HTTP:/" Then Exit Function
  73.    If UCase(Left(Trim(varTemp), 6)) = "FILE:/" Then Exit Function
  74.    If UCase(Left(Trim(varTemp), 8)) = "MAILTO:/" Then Exit Function
  75.    If UCase(Left(Trim(varTemp), 5)) = "FTP:/" Then Exit Function
  76.    If UCase(Left(Trim(varTemp), 8)) = "GOPHER:/" Then Exit Function
  77.    If UCase(Left(Trim(varTemp), 6)) = "NEWS:/" Then Exit Function
  78.    If UCase(Left(Trim(varTemp), 7)) = "HTTPS:/" Then Exit Function
  79.    If UCase(Left(Trim(varTemp), 8)) = "TELNET:/" Then Exit Function
  80.    If UCase(Left(Trim(varTemp), 6)) = "NNTP:/" Then Exit Function
  81.    IsURL = False
  82. End Function
  83.  
  84.  
  85. '------------------------------------------------------------------------------
  86. ' Purpose:  Handles the display of a field from a recordset depending
  87. '            on its data type, attributes, and the current mode.
  88. ' Assumes:     That the recordset containing the field is open
  89. ' Inputs:   strFieldName     - the name of the field in the recordset
  90. '            avarLookup        - array of lookup values
  91. '------------------------------------------------------------------------------
  92. Function ShowField(strFieldName, avarLookup)
  93.    Dim intRow
  94.    Dim strPartial
  95.    Dim strBool
  96.    Dim nPos
  97.  
  98.    strFieldValue = ""
  99.    nPos=Instr(strFieldName,".")
  100.  
  101.    Do While nPos > 0 
  102.        strFieldName= Mid (strFieldName, nPos+1)
  103.        nPos=Instr(strFieldName,".")
  104.    Loop 
  105.  
  106.    If Not IsNull(avarLookup) Then
  107.        Response.Write "<TD BGCOLOR=White NOWRAP><FONT SIZE=-1>"
  108.        For intRow = 0 to UBound(avarLookup, 2)
  109.        If ConvertNull(avarLookup(0,intRow)) = _
  110.           ConvertNull(rsWCertAdmNames(strFieldName)) Then
  111.            Response.Write Server.HTMLEncode(ConvertNull(avarLookup(1, intRow)))
  112.            Exit For
  113.        End If
  114.        Next
  115.      
  116.        Response.Write "</FONT></TD>"
  117.        Exit Function
  118.    End If
  119.     
  120.    Select Case rsWCertAdmNames(strFieldName).Type
  121.        Case adBoolean, adUnsignedTinyInt                       'Boolean
  122.        strBool = ""
  123.        If rsWCertAdmNames(strFieldName) <> 0 Then
  124.            strBool = "True"
  125.        Else
  126.            strBool = "False"
  127.        End If
  128.        Response.Write "<TD BGCOLOR=White ><FONT SIZE=-1>" & strBool & "</FONT></TD>"
  129.             
  130.        Case adBinary, adVarBinary, adLongVarBinary           'Binary
  131.        Response.Write "<TD BGCOLOR=White ><FONT SIZE=-1>[Binary]</FONT></TD>"
  132.             
  133.        Case adLongVarChar, adLongVarWChar               'Memo
  134.        Response.Write "<TD BGCOLOR=White NOWRAP><FONT SIZE=-1>"
  135.        strPartial = Left(rsWCertAdmNames(strFieldName), 50)
  136.        If ConvertNull(strPartial) = "" Then
  137.            Response.Write " "
  138.        Else
  139.            Response.Write Server.HTMLEncode(strPartial)
  140.        End If
  141.  
  142.        If rsWCertAdmNames(strFieldName).ActualSize > 50 Then Response.Write "..."
  143.        Response.Write "</FONT></TD>"
  144.             
  145.        Case Else
  146.        Response.Write "<TD BGCOLOR=White ALIGN=Left NOWRAP><FONT SIZE=-1>"
  147.        If ConvertNull(rsWCertAdmNames(strFieldName)) = "" Then
  148.            Response.Write " "
  149.        Else
  150.            ' Check for special field types
  151.            Select Case UCase(Left(rsWCertAdmNames(strFieldName).Name,_
  152.                                4))
  153.            Case "URL_"
  154.                Response.Write "<A HREF=" & QuotedString(rsWCertAdmNames(strFieldName)) & ">"
  155.                Response.Write Server.HTMLEncode(ConvertNull(rsWCertAdmNames(strFieldName)))
  156.                   Response.Write "</A>"
  157.            Case Else
  158.                If IsURL(rsWCertAdmNames(strFieldName)) Then
  159.                Response.Write "<A HREF=" & QuotedString(rsWCertAdmNames(strFieldName)) & ">"
  160.                Response.Write Server.HTMLEncode(ConvertNull(rsWCertAdmNames(strFieldName)))
  161.                Response.Write "</A>"
  162.                Else
  163.                Response.Write Server.HTMLEncode(ConvertNull(rsWCertAdmNames(strFieldName)))
  164.                End If
  165.            End Select
  166.        End If
  167.        Response.Write "</FONT></TD>"
  168.    End Select
  169. End Function
  170.  
  171. </SCRIPT>
  172.  
  173.  
  174.  
  175. <HTML>
  176. <HEAD>
  177.    <META NAME="GENERATOR" CONTENT="Microsoft Visual InterDev">
  178.    <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=ISO-8859-1">
  179.    <META NAME="Keywords" CONTENT="Microsoft Data Form, WCertAdm List">
  180.    <TITLE>Certificate Log Administration</TITLE>
  181. </HEAD>
  182.  
  183. <!------------------------- Formatting Section ------------------------------>
  184.  
  185. <BASEFONT FACE="Arial, Helvetica, sans-serif">
  186. <LINK REL=STYLESHEET HREF="./Stylesheets/Bluerose/Style2.css">
  187. <BODY BACKGROUND="./Images/Bluerose/Background/Back2.jpg" BGCOLOR=White>
  188.  
  189. <!---------------------------- Lookups Section ------------------------------->
  190.  
  191. <!---------------------------- Heading Section ------------------------------->
  192.  
  193. <% Response.Write "<FORM ACTION=wcaForm.asp METHOD=""POST"">" %>
  194. <TABLE WIDTH=100% CELLSPACING=0 CELLPADDING=0 BORDER=0>
  195.  
  196.    <TR>
  197.        <TH NOWRAP BGCOLOR=Silver ALIGN=Left BACKGROUND="./Images/Bluerose/Navigation/Nav1.jpg" >
  198.        <FONT SIZE=6> Certificate Log Administration</FONT>
  199.        </TH>
  200.  
  201.        <TD BGCOLOR=Silver VALIGN=Middle ALIGN=Right WIDTH=100% BACKGROUND="./Images/Bluerose/Navigation/Nav1.jpg">
  202.        <INPUT TYPE="Hidden" NAME="FormMode" VALUE="Edit">
  203.         <INPUT TYPE="SUBMIT" NAME="DataAction" VALUE="Form View"> 
  204.        </TD>
  205.    </TR>
  206.  
  207.    <TR>
  208.        <TD BGCOLOR=#FFFFCC COLSPAN=3>
  209.        <FONT SIZE=-1>  
  210.            <% 
  211.            If IsEmpty(Session("rsWCertAdmNames_Filter")) Or _
  212.            Session("rsWCertAdmNames_Filter")="" Then
  213.            Response.Write "Current Filter: None<BR>"
  214.            Else
  215.            Response.Write "Current Filter: " & _
  216.            Session("rsWCertAdmNames_FilterDisplay") & "<BR>"
  217.            End If 
  218.            %>
  219.        </FONT>
  220.        </TD>
  221.     </TR>
  222. </TABLE>
  223. </FORM>
  224.  
  225. <!----------------------------- List Section --------------------------------->
  226.  
  227. <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100% >
  228.    <TR>
  229.        <TD WIDTH=20> </TD>
  230.        <TD>
  231.        <TABLE CELLSPACING=1 CELLPADDING=1 BORDER=0 WIDTH=100% >
  232.            <TR BGCOLOR=CYAN VALIGN=TOP>
  233.         <TD ALIGN=Center><FONT SIZE=-1> # </FONT></TD>
  234.            
  235.         <TD ALIGN=Left><FONT SIZE=-1><B>RequestID</B></FONT></TD>
  236.         <TD ALIGN=Left><FONT SIZE=-1><B>SerialNumber</B></FONT></TD>
  237.  
  238.         <TD ALIGN=Left><FONT SIZE=-1><B>CommonName</B></FONT></TD>
  239.         <TD ALIGN=Left><FONT SIZE=-1><B>Locality</B></FONT></TD>
  240.         <TD ALIGN=Left><FONT SIZE=-1><B>StateOrProvince</B></FONT></TD>
  241.         <TD ALIGN=Left><FONT SIZE=-1><B>Country</B></FONT></TD>
  242.         <TD ALIGN=Left><FONT SIZE=-1><B>OrganizationalUnit</B></FONT></TD>
  243.         <TD ALIGN=Left><FONT SIZE=-1><B>Organization</B></FONT></TD>
  244.  
  245.         <TD ALIGN=Left><FONT SIZE=-1><B>NotBefore</B></FONT></TD>
  246.         <TD ALIGN=Left><FONT SIZE=-1><B>NotAfter</B></FONT></TD>
  247.         <TD ALIGN=Left><FONT SIZE=-1><B>RevokedWhen</B></FONT></TD>
  248.            </TR>
  249.  
  250. <!--METADATA TYPE="DesignerControl" startspan
  251.    <OBJECT ID="rsWCertAdmNames" WIDTH=151 HEIGHT=24
  252.         CLASSID="CLSID:F602E721-A281-11CF-A5B7-0080C73AAC7E">
  253.         <PARAM NAME="BarAlignment" VALUE="0">
  254.               <PARAM NAME="PageSize" VALUE="25">
  255.         <PARAM Name="RangeType" Value="2">
  256.         <PARAM Name="DataConnection" Value="DataConn">
  257.         <PARAM Name="CommandType" Value="0">
  258.         <PARAM Name="CommandText" Value="SELECT Requests.RequestID, SerialNumber, DistinguishedName, CommonName, Locality, StateOrProvince, Country, OrganizationalUnit, Organization, SerialNumber, NotBefore, NotAfter, RevokedWhen FROM (Requests INNER JOIN Certificates ON Requests.RequestID = Certificates.RequestID) INNER JOIN Names ON Names.NameId = Certificates.SubjectNameID">
  259.         <PARAM Name="CursorType" Value="1">
  260.         <PARAM Name="LockType" Value="3">
  261.         <PARAM Name="CacheRecordset" Value="1">
  262.    </OBJECT>
  263. -->
  264.  
  265. <%
  266. fHideNavBar = False
  267. fHideNumber = False
  268. fHideRequery = False
  269. fHideRule = False
  270. stQueryString = ""
  271. fEmptyRecordset = False
  272. fFirstPass = True
  273. fNeedRecordset = False
  274. fNoRecordset = False
  275. tBarAlignment = "Left"
  276. tHeaderName = "rsWCertAdmNames"
  277. tPageSize = 25   ' was 15
  278. tPagingMove = ""
  279. tRangeType = "Table"
  280. tRecordsProcessed = 0
  281. tPrevAbsolutePage = 0
  282. intCurPos = 0
  283. intNewPos = 0
  284. fSupportsBookmarks = True
  285. fMoveAbsolute = False
  286.  
  287. If Not IsEmpty(Request("rsWCertAdmNames_PagingMove")) Then
  288.    tPagingMove = Trim(Request("rsWCertAdmNames_PagingMove"))
  289. End If
  290.  
  291. If IsEmpty(Session("rsWCertAdmNames_Recordset")) Then
  292.    fNeedRecordset = True
  293. Else
  294.    If Session("rsWCertAdmNames_Recordset") Is Nothing Then
  295.        fNeedRecordset = True
  296.    Else
  297.        Set rsWCertAdmNames = Session("rsWCertAdmNames_Recordset")
  298.    End If
  299. End If
  300.  
  301. If fNeedRecordset Then
  302.    Set DataConn = Server.CreateObject("ADODB.Connection")
  303.    DataConn.ConnectionTimeout = Session("DataConn_ConnectionTimeout")
  304.    DataConn.CommandTimeout = Session("DataConn_CommandTimeout")
  305.    DataConn.Open Session("DataConn_ConnectionString"), Session("DataConn_RuntimeUserName"), Session("DataConn_RuntimePassword")
  306.  
  307.    Set cmdTemp = Server.CreateObject("ADODB.Command")
  308.    Set rsWCertAdmNames = Server.CreateObject("ADODB.Recordset")
  309.  
  310.    cmdTemp.CommandText = "SELECT Requests.RequestID, SerialNumber, DistinguishedName, CommonName, Locality, StateOrProvince, Country, OrganizationalUnit, Organization, SerialNumber, NotBefore, NotAfter, RevokedWhen FROM (Requests INNER JOIN Certificates ON Requests.RequestID = Certificates.RequestID) INNER JOIN Names ON Names.NameId = Certificates.SubjectNameID" ' changed SubjectName to SubjectNameID
  311.  
  312.    cmdTemp.CommandType = 1
  313.    Set cmdTemp.ActiveConnection = DataConn
  314.    rsWCertAdmNames.Open cmdTemp, , 1, 3
  315. End If
  316.  
  317. On Error Resume Next
  318.  
  319. If rsWCertAdmNames.BOF And rsWCertAdmNames.EOF Then fEmptyRecordset = True
  320. On Error Goto 0
  321.  
  322. If Err Then fEmptyRecordset = True
  323.  
  324. If fNeedRecordset Then
  325.     Set Session("rsWCertAdmNames_Recordset") = rsWCertAdmNames
  326. End If
  327.  
  328. rsWCertAdmNames.PageSize = tPageSize
  329.  
  330. fSupportsBookmarks = rsWCertAdmNames.Supports(8192)
  331.  
  332. If Not IsEmpty(Session("rsWCertAdmNames_Filter")) And Not fEmptyRecordset Then
  333.    rsWCertAdmNames.Filter = Session("rsWCertAdmNames_Filter")
  334.    If rsWCertAdmNames.BOF And rsWCertAdmNames.EOF Then fEmptyRecordset = True
  335. End If
  336.  
  337. If IsEmpty(Session("rsWCertAdmNames_PageSize")) Then Session("rsWCertAdmNames_PageSize") = tPageSize
  338.  
  339. If IsEmpty(Session("rsWCertAdmNames_AbsolutePage")) Then Session("rsWCertAdmNames_AbsolutePage") = 1
  340.  
  341. If Session("rsWCertAdmNames_PageSize") <> tPageSize Then
  342.    tCurRec = ((Session("rsWCertAdmNames_AbsolutePage") - 1) * Session("rsWCertAdmNames_PageSize")) + 1
  343.    tNewPage = Int(tCurRec / tPageSize)
  344.    If tCurRec Mod tPageSize <> 0 Then
  345.        tNewPage = tNewPage + 1
  346.    End If
  347.    If tNewPage = 0 Then tNewPage = 1
  348.    Session("rsWCertAdmNames_PageSize") = tPageSize
  349.    Session("rsWCertAdmNames_AbsolutePage") = tNewPage
  350. End If
  351.  
  352. If fEmptyRecordset Then
  353.    fHideNavBar = True
  354.    fHideRule = True
  355. Else
  356.    tPrevAbsolutePage = Session("rsWCertAdmNames_AbsolutePage")
  357.    Select Case tPagingMove
  358.        Case ""
  359.        fMoveAbsolute = True
  360.        Case "Requery"
  361.        rsWCertAdmNames.Requery
  362.        fMoveAbsolute = True
  363.        Case "<<"
  364.            Session("rsWCertAdmNames_AbsolutePage") = 1
  365.        Case "<"
  366.            If Session("rsWCertAdmNames_AbsolutePage") > 1 Then
  367.            Session("rsWCertAdmNames_AbsolutePage") = Session("rsWCertAdmNames_AbsolutePage") - 1
  368.            End If
  369.        Case ">"
  370.            If Not rsWCertAdmNames.EOF Then
  371.            Session("rsWCertAdmNames_AbsolutePage") = Session("rsWCertAdmNames_AbsolutePage") + 1
  372.        End If
  373.        Case ">>"
  374.        If fSupportsBookmarks Then
  375.            Session("rsWCertAdmNames_AbsolutePage") = rsWCertAdmNames.PageCount
  376.        End If
  377.    End Select
  378.  
  379.    Do
  380.        If fSupportsBookmarks Then
  381.        rsWCertAdmNames.AbsolutePage = Session("rsWCertAdmNames_AbsolutePage")
  382.        Else
  383.        If fNeedRecordset Or fMoveAbsolute Or rsWCertAdmNames.EOF Then
  384.            rsWCertAdmNames.MoveFirst
  385.            rsWCertAdmNames.Move (Session("rsWCertAdmNames_AbsolutePage") - 1) * tPageSize
  386.        Else
  387.            intCurPos = ((tPrevAbsolutePage - 1) * tPageSize) + tPageSize
  388.            intNewPos = ((Session("rsWCertAdmNames_AbsolutePage") - 1) * tPageSize) + 1
  389.            rsWCertAdmNames.Move intNewPos - intCurPos
  390.        End If
  391.  
  392.        If rsWCertAdmNames.BOF Then rsWCertAdmNames.MoveNext
  393.            End If
  394.  
  395.        If Not rsWCertAdmNames.EOF Then Exit Do
  396.        Session("rsWCertAdmNames_AbsolutePage") = Session("rsWCertAdmNames_AbsolutePage") - 1
  397.    Loop
  398.  
  399. End If
  400.  
  401.  
  402. Do
  403.    If fEmptyRecordset Then Exit Do
  404.  
  405.    If tRecordsProcessed = tPageSize Then Exit Do
  406.  
  407.    If Not fFirstPass Then
  408.        rsWCertAdmNames.MoveNext
  409.    Else
  410.        fFirstPass = False
  411.    End If
  412.  
  413.    If rsWCertAdmNames.EOF Then Exit Do
  414.  
  415.    tRecordsProcessed = tRecordsProcessed + 1
  416. %>
  417. <!--METADATA TYPE="DesignerControl" endspan-->
  418.  
  419.    <TR VALIGN=TOP>
  420.        <TD BGCOLOR=White>
  421.        <FONT SIZE=-1>
  422.        <%
  423.            If tPageSize > 0 Then
  424.            tCurRec = ((Session("rsWCertAdmNames_AbsolutePage") - 1) * tPageSize) + tRecordsProcessed
  425.            Else
  426.            tRecordsProcessed = tRecordsProcessed + 1
  427.            tCurRec = tRecordsProcessed
  428.            End If
  429.            Response.Write "<A HREF=" & QuotedString("wcaActon.asp?Bookmark=" & tCurRec & "&DataAction=Find") & ">" & tCurRec & "</A>"
  430.        %>
  431.        </FONT>
  432.        </TD>
  433.        <%
  434.            ShowField "Requests.RequestID", Null
  435.        ShowField "SerialNumber", Null
  436.        ShowField "CommonName", Null
  437.        ShowField "Locality", Null
  438.        ShowField "StateOrProvince", Null
  439.        ShowField "Country", Null
  440.        ShowField "OrganizationalUnit", Null
  441.        ShowField "Organization", Null
  442.        ShowField "NotBefore", Null
  443.        ShowField "NotAfter", Null
  444.        ShowField "RevokedWhen", Null
  445.        fHideRule = True
  446.        %>
  447.     </TR>
  448.  
  449. <!--METADATA TYPE="DesignerControl" startspan
  450.     <OBJECT ID="DataRangeFtr1" WIDTH=151 HEIGHT=24
  451.         CLASSID="CLSID:F602E722-A281-11CF-A5B7-0080C73AAC7E">
  452.     </OBJECT>
  453. -->
  454.  
  455. <%
  456. Loop
  457. If tRangeType = "Table" Then Response.Write "</TABLE>"
  458.  
  459. If tPageSize > 0 Then
  460.     If Not fHideRule Then Response.Write "<HR>"
  461.     If Not fHideNavBar Then
  462. %>
  463.    <TABLE WIDTH=100% >
  464.        <TR>
  465.         <TD WIDTH=100% >
  466.            <P ALIGN=<%= tBarAlignment %> >
  467.                 <FORM <%= "ACTION=""" & Request.ServerVariables("PATH_INFO") & stQueryString & """" %> METHOD="POST">
  468.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <<   ">
  469.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   <    ">
  470.                     <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="    >   ">
  471.  
  472.                     <% If fSupportsBookmarks Then %>
  473.                         <INPUT TYPE="Submit" NAME="<%= tHeaderName & "_PagingMove" %>" VALUE="   >>   ">
  474.                     <% End If %>
  475.  
  476.                     <% If Not fHideRequery Then %>
  477.                         <INPUT TYPE="Submit" NAME="<% =tHeaderName & "_PagingMove" %>" VALUE=" Requery ">
  478.                     <% End If %>
  479.  
  480.                 </FORM>
  481.  
  482.            </P>
  483.             </TD>
  484.  
  485.             <TD VALIGN=MIDDLE ALIGN=RIGHT>
  486.                 <FONT SIZE=2>
  487.                 <%
  488.                 If Not fHideNumber Then
  489.                     If tPageSize > 1 Then
  490.                         Response.Write "<NOBR>Page: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  491.                     Else
  492.                         Response.Write "<NOBR>Record: " & Session(tHeaderName & "_AbsolutePage") & "</NOBR>"
  493.                     End If
  494.                 End If
  495.                 %>
  496.                 </FONT>
  497.             </TD>
  498.        </TR>
  499.    </TABLE>
  500. <%
  501.     End If
  502. End If
  503. %>
  504.  
  505. <!--METADATA TYPE="DesignerControl" endspan-->
  506.  
  507. <!---------------------------- Footer Section -------------------------------->
  508.  
  509. <% 
  510. ' TEMP: cache here until CacheRecordset property is implemented in
  511. '         data range
  512. If fNeedRecordset Then
  513.     Set Session("rsWCertAdmNames_Recordset") = rsWCertAdmNames
  514. End If 
  515. %>
  516.  
  517. </TD></TR></TABLE>
  518. </BODY>
  519. </HTML>
  520.  
  521.  
  522.  
  523.  
  524.  
  525.  
  526.  
  527.