<%@ CODEPAGE=65001 'UTF-8%>
<%' certcarc.asp - (CERT)srv web - install (CA) (R)oot (C)ertificate
' Copyright (C) Microsoft Corporation, 1998 - 1999 %>
<!-- #include FILE=certsbrt.inc -->
<!-- #include FILE=certdat.inc -->
<%
On Error Resume Next
' from \nt\public\sdk\inc\certcli.h
Const CR_OUT_BASE64HEADER=&H00000000
Const CR_OUT_BASE64 =&H00000001
Const CR_OUT_BINARY =&H00000002
Const CR_OUT_CHAIN =&H00000100
Const CATYPE_ENTERPRISE_ROOTCA=0
Const CATYPE_ENTERPRISE_SUBCA=1
Const CATYPE_STANDALONE_ROOTCA=3
Const CATYPE_STANDALONE_SUBCA=4
Const CATYPE_UNKNOWN_CA=5
' from \nt\private\ca\include\certlib.h
Const GETCERT_CAEXCHCERT=True
Const GETCERT_CASIGCERT=False
Const CR_GEMT_HRESULT_STRING =&H00000001
Const CR_PROP_CASIGCERTCOUNT=11
Const CR_PROP_CASIGCERTCHAIN=13
Const CR_PROP_CACERTSTATE=19
Const CR_PROP_CRLSTATE=20
Const PROPTYPE_LONG=1
Const PROPTYPE_BINARY=3
Const CRL_AVAILABLE=3 ' == CR_DISP_ISSUED
Const CERT_VALID=3 ' == CR_DISP_ISSUED
' Strings To Be Localized
Const L_InstallThisCACert_Message="Install this CA certificate"
Const L_InstallThisCACertChain_Message="Install this CA certificate chain"
Const L_InstallCACert_Message="Install CA certificate"
Const L_DownloadCert_Message="Download CA certificate"
Const L_DownloadChain_Message="Download CA certificate chain"
Const L_DownloadBaseCrl_Message="Download latest base CRL"
Const L_DownloadDeltaCrl_Message="Download latest delta CRL"
Dim sCaInfo, rgCaInfo, nRenewals, rgCrlState, rgCertState, bFailed, nError
Set ICertRequest=Server.CreateObject("CertificateAuthority.Request")
' get the number of renewals
bFailed=False
nRenewals=ICertRequest.GetCAProperty(sServerConfig, CR_PROP_CASIGCERTCOUNT, 0, PROPTYPE_LONG, CR_OUT_BINARY)
If 0=Err.Number Then
nRenewals=nRenewals-1
' get the key-reused state of the CRLs and the validity of the CA Certs
ReDim rgCrlState(nRenewals) ' 0 based size
ReDim rgCertState(nRenewals) ' 0 based size
For nIndex=0 To nRenewals
rgCrlState(nIndex)=ICertRequest.GetCAProperty(sServerConfig, CR_PROP_CRLSTATE, nIndex, PROPTYPE_LONG, CR_OUT_BINARY)
rgCertState(nIndex)=ICertRequest.GetCAProperty(sServerConfig, CR_PROP_CACERTSTATE, nIndex, PROPTYPE_LONG, CR_OUT_BINARY)
Next
' get the cert chain and save in on this page so the client can install it
If "IE"=sBrowser Then
Public sPKCS7
Dim sCertificate
sCertificate=ICertRequest.GetCACertificate(GETCERT_CASIGCERT, sServerConfig, CR_OUT_BASE64_HEADER Or CR_OUT_CHAIN)
sPKCS7=FormatBigString(sCertificate, " sPKCS7=sPKCS7 & ")
End If
End If
If Err.Number<>0 Then
' CA may be down.
bFailed=True
nError=Err.Number
End If
'-----------------------------------------------------------------
' Format the big string as a concatenated VB string, breaking at the embedded newlines
Function FormatBigString(sSource, sLinePrefix)
Dim sResult, bCharsLeft, nStartChar, nStopChar, chQuote
sResult=""
chQuote=chr(34)
bCharsLeft=True
nStopChar=1
While (bCharsLeft)
nStartChar=nStopChar
nStopChar=InStr(nStopChar, sSource, vbNewLine)
If (nStopChar>0) Then
sResult=sResult & sLinePrefix & chQuote & Mid(sSource, nStartChar, nStopChar-nStartChar) & chQuote & " & vbNewLine"
If (nStopChar>=Len(sSource)-Len(vbNewLine)) Then
bCharsLeft=False
End If
Else
bCharsLeft=False
End if
sResult=sResult & vbNewLine
nStopChar=nStopChar+Len(vbNewLine)
Wend
FormatBigString=sResult
End Function
'-----------------------------------------------------------------
' Walk through the CRL validity list and return the nearest valid CRL
Function GetGoodCrlIndex(nIndex)
Dim nSource
nSource=nRenewals-nIndex
While (nSource>0 And CRL_AVAILABLE<>CInt(rgCrlState(nSource)))
nSource=nSource-1
Wend
GetGoodCrlIndex=nSource
End Function
%>
<HTML>
<Head>
<Meta HTTP-Equiv="Content-Type" Content="text/html; charset=UTF-8">
<Title>Microsoft Certificate Services</Title>
</Head>
<Body BgColor=#FFFFFF Link=#0000FF VLink=#0000FF ALink=#0000FF><Font ID=locPageFont Face="Arial">
<Table Border=0 CellSpacing=0 CellPadding=4 Width=100% BgColor=#008080>
<TR>
<TD><Font Color=#FFFFFF><LocID ID=locMSCertSrv><Font Face="Arial" Size=-1><B><I>Microsoft</I></B> Certificate Services -- <%=sServerDisplayName%> </Font></LocID></Font></TD>
<TD ID=locHomeAlign Align=Right><A Href="/certsrv"><Font Color=#FFFFFF><LocID ID=locHomeLink><Font Face="Arial" Size=-1><B>Home</B></Font></LocID></Font></A></TD>
</TR>
</Table>
<%If True=bFailed Then %>
<P ID=locPageTitle1><Font Color=#FF0000><B>Error</B></Font>
<!-- Green HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR></Table>
<P ID=locErrorMsg> An unexpected error has occurred:
<%If nError=&H800706BA Or nError=&H80070005 Then%>
<LocID ID=locSvcNotStarted>The Certification Authority Service has not been started.</LocID>
<%Else%>
<%=ICertRequest.GetErrorMessageText(nError, CR_GEMT_HRESULT_STRING)%>
<%End If%>
<%Else 'True<>bFailed%>
<Form Name=UIForm>
<P ID=locPageTitle2> <B> Download a CA Certificate, Certificate Chain, or CRL</B>
<!-- Green HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR></Table>
<P>
<%If "IE"=sBrowser Then%>
<LocID ID=locInstallIE>
To trust certificates issued from this certification authority,
<Span tabindex=0 Style="cursor:hand; color:#0000FF; text-decoration:underline;"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_InstallThisCACertChain_Message%>';return true;"
OnMouseOut="window.status='';return true;"
OnKeyDown="if (13==event.keyCode) {preInstall();return false;} else if (9==event.keyCode) {return true;};return false;"
OnClick="preInstall();return false;"
>install this CA certificate chain</Span>.
</LocID>
<%ElseIf "NN"=sBrowser Then%>
<LocID ID=locInstallNN>
To trust certificates issued from this certification authority,
<A Href="certnew.cer?ReqID=CACert&Renewal=<%=nRenewals%>&Mode=inst&Enc=b64"
OnMouseOver="window.status='<%=L_InstallThisCACert_Message%>';return true;"
OnMouseOut="window.status='';return true;"
>install this CA certificate</A>.
</LocID>
<%Else%>
<LocID ID=locInstallTxt>
To trust certificates issued from this certification authority, install this CA certificate chain.
</LocID>
<%End If%>
<P>
<LocID ID=locPrompt>To download a CA certificate, certificate chain, or CRL, select the certificate and encoding method.</B></LocID>
<%If "Text"<>sBrowser Then%>
<Table Border=0 CellSpacing=0 CellPadding=0>
<TR> <!--establish column widths. -->
<TD><Img Src="certspc.gif" Alt="" Height=1 Width=<%=L_LabelColWidth_Number%>></TD> <!-- label column, top border -->
<TD RowSpan=59><Img Src="certspc.gif" Alt="" Height=1 Width=4></TD> <!-- label spacing column -->
<TD></TD> <!-- field column -->
</TR>
<TR>
<TD ID=locCaCertHead ColSpan=3><Font Face="Arial" Size=-1><BR><B>CA certificate:</B></Font></TD>
</TR>
<TR><TD ColSpan=3 BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR>
<TR><TD ColSpan=3><Img Src="certspc.gif" Alt="" Height=6 Width=1></TD></TR>
<TR>
<TD Align=Right VAlign=Top ID=locCaCertLabel></TD>
<TD><Select Name=lbCaInstance Size=4>
<Option Value="0" Selected><LocID ID=locCurCertEntry>Current</LocID> <%If 0<>nRenewals Then%><LocID ID=locCaNameRen1>[<%=sServerDisplayName%>(<%=nRenewals%>)]</LocID><%Else%><LocID ID=locCaNameNoRen1>[<%=sServerDisplayName%>]</LocID><%End If%>
<%For nIndex=1 To nRenewals%>
<%If CERT_VALID=CInt(rgCertState(nRenewals-nIndex)) Then%>
<Option Value="<%=nIndex%>"><LocID ID=locPrevCertEntry>Previous</LocID> <%If nIndex<>nRenewals Then%><LocID ID=locCaNameRen2>[<%=sServerDisplayName%>(<%=nRenewals-nIndex%>)]</LocID><%Else%><LocID ID=locCaNameNoRen2>[<%=sServerDisplayName%>]</LocID><%End If%>
<%End If%>
<%Next%>
</Select>
</TD>
</TR>
<TR><TD ColSpan=3><Img Src="certspc.gif" Alt="" Height=4 Width=1></TD></TR>
<TR>
<TD ID=locEncodingHead ColSpan=3><Font Face="Arial" Size=-1><BR><B>Encoding method:</B></Font></TD>
</TR>
<TR><TD ColSpan=3 BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR>
<TR><TD ColSpan=3><Img Src="certspc.gif" Alt="" Height=6 Width=1></TD></TR>
<TR><TD></TD>
<TD><Font ID=locEncDerFont Face="Arial">
<Input Type=Radio ID=rbDerEnc Name=rbEncoding Checked><Label For=rbDerEnc ID=locDerEnc0>DER</Label>
</Font>
</TD>
</TR>
<TR><TD></TD>
<TD><Font ID=locEncB64Font Face="Arial">
<Input Type=Radio ID=rbB64Enc Name=rbEncoding><Label For=rbB64Enc ID=locB64Enc0>Base 64</Label>
</Font>
</TD>
</TR>
<TR><TD ColSpan=3><Img Src="certspc.gif" Alt="" Height=6 Width=1></TD></TR>
</Table>
<%If "IE"=sBrowser Then%>
<Table CellSpacing=0 CellPadding=0>
<TR><TD></TD>
<TD><Font ID=locDlCaCFont Face="Arial">
<Span tabindex=0 Style="cursor:hand; color:#0000FF; text-decoration:underline;"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_DownloadCert_Message%>'; return true;"
OnMouseOut="window.status=''; return true;"
OnKeyDown="if (13==event.keyCode) {handleGetCert();return false;} else if (9==event.keyCode) {return true;};return false;"
OnClick="handleGetCert();return false;">
<LocID ID=locDownloadCert>Download CA certificate</LocID></Span></Font>
</TD>
</TR>
<TR><TD ColSpan=3 Height=3></TD></TR>
<TR><TD></TD>
<TD><Font ID=locDlCaCpFont Face="Arial">
<Span tabindex=0 Style="cursor:hand; color:#0000FF; text-decoration:underline;"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_DownloadChain_Message%>'; return true;"
OnMouseOut="window.status=''; return true;"
OnKeyDown="if (13==event.keyCode) {handleGetChain();return false;} else if (9==event.keyCode) {return true;};return false;"
OnClick="handleGetChain();return false;">
<LocID ID=locDownloadCertChain>Download CA certificate chain</LocID></Span></Font>
</TD>
</TR>
<TR><TD ColSpan=3 Height=3></TD></TR>
<TR><TD></TD>
<TD><Font ID=locDlBaseCrlFont Face="Arial">
<Span tabindex=0 Style="cursor:hand; color:#0000FF; text-decoration:underline;"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_DownloadBaseCrl_Message%>'; return true;"
OnMouseOut="window.status=''; return true;"
OnKeyDown="if (13==event.keyCode) {handleGetBaseCrl();return false;} else if (9==event.keyCode) {return true;};return false;"
OnClick="handleGetBaseCrl();return false;">
<LocID ID=locDownloadBaseCRL>Download latest base CRL</LocID></Span></Font>
</TD>
</TR>
<TR><TD ColSpan=3 Height=3></TD></TR>
<TR><TD></TD>
<TD><Font ID=locDlDeltaCrlFont Face="Arial">
<Span tabindex=0 Style="cursor:hand; color:#0000FF; text-decoration:underline;"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_DownloadDeltaCrl_Message%>'; return true;"
OnMouseOut="window.status=''; return true;"
OnKeyDown="if (13==event.keyCode) {handleGetDeltaCrl();return false;} else if (9==event.keyCode) {return true;};return false;"
OnClick="handleGetDeltaCrl();return false;">
<LocID ID=locDownloadDeltaCRL>Download latest delta CRL</LocID></Span></Font>
</TD>
</TR>
</Table>
<%Else '"NN"=sBrowser%>
<Table CellSpacing=0 CellPadding=0>
<TR><TD></TD>
<TD><Font ID=locInstCaCFont Face="Arial">
<A Href="#"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_InstallCACert_Message%>'; return true;"
OnMouseOut="window.status=''; return true;"
OnClick="handleInstCert();return false;">
<LocID ID=locInstallCert>Install CA certificate</LocID></A></Font>
</TD>
</TR>
<TR><TD ColSpan=3 Height=3></TD></TR>
<TR><TD></TD>
<TD><Font ID=locDlCaCFont2 Face="Arial">
<A Href="#"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_DownloadCert_Message%>'; return true;"
OnMouseOut="window.status=''; return true;"
OnClick="handleGetCert();return false;">
<LocID ID=locDownloadCert2>Download CA certificate</LocID></A></Font>
</TD>
</TR>
<TR><TD ColSpan=3 Height=3></TD></TR>
<TR><TD></TD>
<TD><Font ID=locDlCaCpFont2 Face="Arial">
<A Href="#"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_DownloadChain_Message%>'; return true;"
OnMouseOut="window.status=''; return true;"
OnClick="handleGetChain();return false;">
<LocID ID=locDownloadCertChain2>Download CA certificate chain</LocID></A></Font>
</TD>
</TR>
<TR><TD ColSpan=3 Height=3></TD></TR>
<TR><TD></TD>
<TD><Font ID=locDlBaseCrlFont2 Face="Arial">
<A Href="#"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_DownloadBaseCrl_Message%>'; return true;"
OnMouseOut="window.status=''; return true;"
OnClick="handleGetBaseCrl();return false;">
<LocID ID=locDownloadBaseCRL2>Download latest base CRL</LocID></A></Font>
</TD>
</TR>
<TR><TD ColSpan=3 Height=3></TD></TR>
<TR><TD></TD>
<TD><Font ID=locDlDeltaCrlFont2 Face="Arial">
<A Href="#"
OnContextMenu="return false;"
OnMouseOver="window.status='<%=L_DownloadDeltaCrl_Message%>'; return true;"
OnMouseOut="window.status=''; return true;"
OnClick="handleGetDeltaCrl();return false;">
<LocID ID=locDownloadDeltaCRL2>Download latest delta CRL</LocID></A></Font>
</TD>
</TR>
</Table>
<%End If%>
<%Else '"Text"=sBrowser%>
<!-- Text only: enumerate everything! -->
<DL>
<%For nIndex=0 To nRenewals%>
<%If CERT_VALID=CInt(rgCertState(nRenewals-nIndex)) Then%>
<DT><LocID ID=locCaCertHead3>CA Certificate: <%If 0=nIndex Then%><LocID ID=locCurCertEntry3>Current</LocID><%Else%><LocID ID=locPrevCertEntry3>Previous</LocID><%End If%><%If nIndex<>nRenewals Then%> <LocID ID=locCaNameRen3>[<%=sServerDisplayName%>(<%=nRenewals-nIndex%>)]</LocID><%Else%> <LocID ID=locCaNameNoRen3>[<%=sServerDisplayName%>]</LocID><%End If%>
<DD><LocID ID=locDownloadCert3>Download CA certificate with the following encoding method: </LocID>
<DD><LocID ID=locSep5> </LocID><A Href="certnew.cer?ReqID=CACert&Renewal=<%=nRenewals-nIndex%>&Enc=bin"><LocID ID=locDerEnc1>DER</LocID></A><LocID ID=locSep1> </LocID><A Href="certnew.cer?ReqID=CACert&Renewal=<%=nRenewals-nIndex%>&Enc=b64"><LocID ID=locB64Enc1>Base 64</LocID></A><BR>
<LocID ID=locDownloadCertChain3>Download CA certificate chain with the following encoding method: </LocID>
<DD><LocID ID=locSep6> </LocID><A Href="certnew.p7b?ReqID=CACert&Renewal=<%=nRenewals-nIndex%>&Enc=bin"><LocID ID=locDerEnc2>DER</LocID></A><LocID ID=locSep2> </LocID><A Href="certnew.p7b?ReqID=CACert&Renewal=<%=nRenewals-nIndex%>&Enc=b64"><LocID ID=locB64Enc2>Base 64</LocID></A><BR>
<LocID ID=locDownloadBaseCRL3>Download latest base CRL with the following encoding method: </LocID>
<DD><LocID ID=locSep7> </LocID><A Href="certcrl.crl?Type=base&Renewal=<%=GetGoodCrlIndex(nIndex)%>&Enc=bin"><LocID ID=locDerEnc3>DER</LocID></A><LocID ID=locSep3> </LocID><A Href="certcrl.crl?Type=base&Renewal=<%=GetGoodCrlIndex(nIndex)%>&Enc=b64"><LocID ID=locB64Enc3>Base 64</LocID></A><BR>
<LocID ID=locDownloadDeltaCRL3>Download latest delta CRL with the following encoding method: </LocID>
<DD><LocID ID=locSep8> </LocID><A Href="certcrl.crl?Type=delta&Renewal=<%=GetGoodCrlIndex(nIndex)%>&Enc=bin"><LocID ID=locDerEnc4>DER</LocID></A><LocID ID=locSep4> </LocID><A Href="certcrl.crl?Type=delta&Renewal=<%=GetGoodCrlIndex(nIndex)%>&Enc=b64"><LocID ID=locB64Enc4>Base 64</LocID></A><BR>
<BR>
<%End If%>
<%Next%>
</DL>
<%End If%>
<BR>
<!-- Green HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR></Table>
<!-- White HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#FFFFFF><Img Src="certspc.gif" Alt="" Height=5 Width=1></TD></TR></Table>
</Form>
</Font>
<!-- ############################################################ -->
<!-- End of standard text. Scripts follow -->
<%bIncludeXEnroll=True%>
<%bIncludeGetCspList=False%>
<!-- #include FILE=certsgcl.inc -->
<%If "IE"=sBrowser Then%>
<!-- This form passes data to certrmpn.asp -->
<Span Style="display:none">
<Form Name=SubmittedData Action="certrmpn.asp" Method=Post>
<Input Type=Hidden Name=Action Value="instCA">
<Input Type=Hidden Name=ActionErr Value="OK">
<Input Type=Hidden Name=CertInstalled Value="NO">
</Form>
</Span>
<%End If%>
<Script Language="JavaScript">
//================================================================
// PAGE GLOBAL VARIABLES
// constants
var CRL_AVAILABLE=3; // == CR_DISP_ISSUED
// CA state information
var nRenewals=<%=nRenewals%>;
var rgCrlState=new Array(
<%For nIndex=0 To nRenewals%>
<%=rgCrlState(nIndex)%><%If nIndex<>nRenewals Then%>,<%End If%>
<%Next%>
);
<%If "IE"=sBrowser Then%>
;
// Strings To Be Localized
var L_UnknownInstallFailure_ErrorMessage="\"Unable to install the CA certificate:\\n\\nError: \"+sErrorNumber";
// Cannot install a cert until XEnroll has been loaded
var g_bXEnrollLoaded=false;
// Prevent attempts to install cert while first install is going
var g_bInstallingCert=false;
<%End If%>
//================================================================
// LINK HANDLERS
//----------------------------------------------------------------
// Get the requested cert
function handleGetCert() {
location="certnew.cer?ReqID=CACert&Renewal="+getChosenRenewal()+"&"+getEncoding();
}
//----------------------------------------------------------------
// Install the requested cert
function handleInstCert() {
location="certnew.cer?ReqID=CACert&Renewal="+getChosenRenewal()+"&Mode=inst&Enc=b64";
}
//----------------------------------------------------------------
// Get the requested certificate chain
function handleGetChain() {
location="certnew.p7b?ReqID=CACert&Renewal="+getChosenRenewal()+"&"+getEncoding();
}
//----------------------------------------------------------------
// Get the nearest valid Base CRL
function handleGetBaseCrl() {
var nSource=getChosenRenewal();
while (nSource>0 && CRL_AVAILABLE!=rgCrlState[nSource]) {
nSource--;
}
location="certcrl.crl?Type=base&Renewal="+nSource+"&"+getEncoding();
}
//----------------------------------------------------------------
// Get the nearest valid Delta CRL
function handleGetDeltaCrl() {
var nSource=getChosenRenewal();
while (nSource>0 && CRL_AVAILABLE!=rgCrlState[nSource]) {
nSource--;
}
location="certcrl.crl?Type=delta&Renewal="+nSource+"&"+getEncoding();
}
//----------------------------------------------------------------
// Return the renewal # of the currently chosen cert
function getChosenRenewal() {
return nRenewals-document.UIForm.lbCaInstance[document.UIForm.lbCaInstance.selectedIndex].value;
}
//----------------------------------------------------------------
// Return the ecoding parameter based upon the radio button
function getEncoding() {
if (true==document.UIForm.rbEncoding[0].checked) {
return "Enc=bin";
} else {
return "Enc=b64";
}
}
<%If "IE"=sBrowser Then%>
//================================================================
// INSTALL ROUTINES
//----------------------------------------------------------------
// IE SPECIFIC:
// Make sure XEnroll is ready before installing the cert
function preInstall() {
// prevent double clicking and race conditions
if (true==g_bInstallingCert) {
return;
}
g_bInstallingCert=true;
if (false==g_bXEnrollLoaded) {
// XEnroll has never been loaded, so we need to do that first.
// set our special failure handler
g_fnOnLoadFail=handleLoadFail;
// Load an XEnroll object into the page
loadXEnroll("preInstallPhase2()");
} else {
// XEnroll is already loaded, so just install the cert
Install();
}
}
function preInstallPhase2() {
// continued from above
// Now XEnroll is loaded and we're ready to go.
g_bXEnrollLoaded=true;
// install the cert
Install();
}
//----------------------------------------------------------------
// IE SPECIFIC:
// what to to if XEnroll fails to load. In this case, not much.
function handleLoadFail() {
// We are done trying to install a cert, so the user can try again.
// Note that we also *don't* disable controls, since there are no
// controls related to installing a cert (just a link)
g_bInstallingCert=false;
}
//----------------------------------------------------------------
// IE SPECIFIC:
// perform substitution on the error string, because VBScript cannot
function evalErrorMessage(sErrorNumber) {
return eval(L_UnknownInstallFailure_ErrorMessage);
}
<%End If '"IE"=sBrowser%>
</Script>
<%If "IE"=sBrowser Then%>
<Script Language="VBScript">
'-----------------------------------------------------------------
' IE SPECIFIC:
' The current CA Certificate
Public sPKCS7
sPKCS7=""
<%=sPKCS7%>
'-----------------------------------------------------------------
' IE SPECIFIC:
' Install the certificate
Sub Install()
Dim sMessage
Dim CertInstalled
On Error Resume Next
CertInstalled = XEnroll.InstallPKCS7Ex(sPKCS7)
If 0=Err.Number Then
' Certificate has been successfully installed. Go to 'success' page
document.SubmittedData.submit
ElseIf -2147023673 = Err.Number Then
' if HRESULT_FROM_WIN32(ERROR_CANCELLED), set extra msg
document.SubmittedData.ActionErr.Value = "Cancel"
If 0 <> CertInstalled Then
document.SubmittedData.CertInstalled = "YES"
End If
document.SubmittedData.submit
Else
' unknown error
sMessage=evalErrorMessage("0x" & Hex(Err.Number))
Alert sMessage
End If
g_bInstallingCert=False
End Sub
</Script>
<%End If '"IE"=sBrowser%>
<%End If 'bFailed%>
</Body>
</HTML>