<%@ CODEPAGE=65001 'UTF-8%> <%' certckpn.asp - (CERT)srv web - (C)hec(K) (P)e(N)ding certificates ' Copyright (C) Microsoft Corporation, 1998 - 1999 %> <%Response.Expires=-1%> <%'Stop%> Microsoft Certificate Services
Microsoft Certificate Services  --  <%=sServerDisplayName%>   Home

View the Status of a Pending Certificate Request
<% ' fill the list box with pending request entries ' get the list of requests from the cookie Dim rgRequests, nIndex rgRequests=GetRequests() ' are there any requests? If IsNull(rgRequests) Then 'No pending requests (that we know of) %>

You have no pending certificate requests.

<% Else ' Yes, there are requests %>

Select the certificate request you want to view: <%If "Text"=sBrowser Then%>

<% ' loop over all the requests in the request array For nIndex=0 To UBound(rgRequests) ' add button for this request %>
<% Next %>
<%Else%> <% ' loop over all the requests in the request array For nIndex=0 To UBound(rgRequests) ' add a link for this request %> <%If "IE"=sBrowser Then%> <%Else%> <%End If%> <% Next %>
'; return true;" OnMouseOut="window.status=''; return true;" OnKeyDown="if (13==event.keyCode) {CheckPending2('<%=rgRequests(nIndex)(FIELD_REQID)%>', '<%=rgRequests(nIndex)(FIELD_TARGETSTOREFLAGS)%>', '<%=rgRequests(nIndex)(FIELD_SAVECERT)%>');return false;} else if (9==event.keyCode) {return true;};return false;" OnClick="CheckPending2('<%=rgRequests(nIndex)(FIELD_REQID)%>', '<%=rgRequests(nIndex)(FIELD_TARGETSTOREFLAGS)%>', '<%=rgRequests(nIndex)(FIELD_SAVECERT)%>');return false;" ><%=rgRequests(nIndex)(FIELD_FRIENDLYTYPE)%> '; return true;" OnMouseOut="window.status=''; return true;" OnClick="CheckPending2('<%=rgRequests(nIndex)(FIELD_REQID)%>', '<%=rgRequests(nIndex)(FIELD_TARGETSTOREFLAGS)%>', '<%=rgRequests(nIndex)(FIELD_SAVECERT)%>');return false;" ><%=rgRequests(nIndex)(FIELD_FRIENDLYTYPE)%>
<%End If%>

<% End If %> <%If "Text"=sBrowser Then%> <%Else%>
<%End If%>