Microsoft Certificate Services

<%@ CODEPAGE=65001 'UTF-8%> <%' certrser.asp - (CERT)srv web - (R)e(S)ult: (ER)ror ' Copyright (C) Microsoft Corporation, 1998 - 1999 %> <% ' came from certfnsh.asp Dim ICertRequest, nDisposition, nResult, nLastStatus, sMode, sErrMsg On Error Resume Next Const CR_GEMT_HRESULT_STRING =&H00000001 'Disposition code ref: \nt\public\sdk\inc\certcli.h Const CR_DISP_INCOMPLETE =0 Const CR_DISP_ERROR =1 Const CR_DISP_DENIED =2 Const CR_DISP_ISSUED =3 Const CR_DISP_ISSUED_OUT_OF_BAND=4 Const CR_DISP_UNDER_SUBMISSION =5 Const CR_DISP_REVOKED =6 Const no_disp=-1 Set ICertRequest=Session("ICertRequest") nDisposition=Session("nDisposition") nResult=Session("nResult") sErrMsg=Session("sErrMsg") nLastStatus=no_disp nLastStatus=ICertRequest.GetLastStatus() sMode=Server.HTMLEncode(Request.Form("Mode")) %> Microsoft Certificate Services

Microsoft Certificate Services -- <%=sServerDisplayName%>

Home

Error
<%If 0<>InStr(sMode,"newreq") Then%>

Your request failed. An error occurred while the server was processing your request.

<%ElseIf "chkpnd"=sMode Then%>

An error occurred while the server was checking on your pending certificate request.

<%ElseIf ""=Request.Form And ""=Request.QueryString Then%>

You did not come to this page as a result of a form submission.
You may not bookmark this page.

<%End If%>

Contact your administrator for further assistance.

<%If "IE"=sBrowser Then%>

<%End If%>

<%If VarType(ICertRequest)=vbEmpty or VarType(ICertRequest)=vbNull Then%> Failed to create 'CertificateAuthority.Request' object. <%Else%>

Request Mode:: <%=sMode%> - <% if "newreq"=sMode Then%> New Request <%ElseIf "newreq NN"=sMode Then%> New Request (keygen) <%ElseIf "chkpnd"=sMode Then%> Check Pending <%ElseIf ""=Request.Form And ""=Request.QueryString Then%> (no form data) <%ElseIf ""<>Request.QueryString Then%> (certnew.cer/certnew.p7b/certcrl.crl certificate/crl fetch) <%Else%> (unknown) <%End If%>
Disposition:: <%If nDisposition=no_disp Then%> (never set) <%Else%> <%=HEX(nDisposition)%> - <% if nDisposition=CR_DISP_INCOMPLETE Then%> Incomplete <%ElseIf nDisposition=CR_DISP_ERROR Then%> Error <%Else%> (unknown) <%End If%> <%End If%>
Disposition message:: <%If ""=ICertRequest.GetDispositionMessage() Then%> (none) <%Else%> <%=ICertRequest.GetDispositionMessage()%> <%End If%>
Result:: <%=ICertRequest.GetErrorMessageText(nResult, CR_GEMT_HRESULT_STRING)%>
COM Error Info:: <%=sErrMsg%>
LastStatus:: <%If nLastStatus=no_disp Then%> (never set) <%Else%> <%=ICertRequest.GetErrorMessageText(nLastStatus, CR_GEMT_HRESULT_STRING)%> <%End If%>
Suggested Cause:: <% if nLastStatus=&H000006BA Then 'legacy entry - RPC_S_SERVER_UNAVAILABLE%> This error can occur if the Certification Authority Service has not been started. <%ElseIf nLastStatus=&H8009000D Then 'legacy entry - NTE_NO_KEY%> This error may indicate a problem with the Certification Authority key. The key was not found and the certificate was not issued. <%ElseIf nLastStatus=&H00000057 Then 'legacy entry - ERROR_INVALID_PARAMETER%> This error indicates that "Invalid Data" was submitted to Certificate Server. This can occur if A) You are submitting a request that is not formatted correctly or B) The Certification Authority used a network share or relative path to point to the "Shared Folder" when configuring Certificate Server. <%ElseIf nLastStatus=&H8007000D And nResult=&H8007000D Then 'updated entry - ERROR_INVALID_DATA%> The encoded length of your request is 7F. Some old programs cannot handle certificates of this size, so Certificate Services will not issue the certificate. Please reapply for this certificate and change the length of the value you entered for Name, Department, etc., or ask your administrator to change this setting. <%ElseIf nLastStatus=&H80093005 And nResult=&H80093005 Then 'new entry - OSS_DATA_ERROR%> <% ' Note: ' This error and the next are similar, however, I suspect ' that this error occurs when the request is only slightly garbled and ' probably mostly parsable, while the next error occurs when ' the request is truly fubar. %> The certificate request contained bad data. If you are submitting a saved request, make sure that the request contains no garbage data outside the BEGIN and END tags, and that the file containing the saved request is not corrupted. <%ElseIf nLastStatus=&H00000000 And nResult=&H8007000D Then 'new entry - ERROR_SUCCESS, ERROR_INVALID_DATA%> The certificate request contained bad data. If you are submitting a saved request, make sure that the request contains no garbage data outside the BEGIN and END tags, and that the file containing the saved request is not corrupted. <%ElseIf nLastStatus=&H80093004 Then 'new entry - OSS_MORE_INPUT%> The certificate request was empty. This should never happen, and it indicates an internal error. <%ElseIf nLastStatus=&H80094004 And nResult=&H80094004 Then 'new entry - CERTSRV_E_PROPERTY_EMPTY%> You have have attempted to check on a certificate that has not been requested. Most likely, the certificate server has been reinstalled and the database containing the original request was destroyed. <%ElseIf nLastStatus=&H800706BA Or nResult=&H80070005 Then 'new entry - RPC_S_SERVER_UNAVAILABLE, ERROR_ACCESS_DENIED%> The Certification Authority Service has not been started. <%ElseIf nLastStatus=&H800706BA Then 'new entry - RPC_S_SERVER_UNAVAILABLE%> 1. The CA is not running.
2. The CA is too busy to accept requests.
3. The network connection to the CA is having problems.
<%ElseIf nLastStatus=&H80094801 Or nResult=&H80094801 Then 'new entry - CERTSRV_E_NO_CERT_TYPE%> The certificate request contains no certificate template information. This should never happen, and it indicates an internal error. <%ElseIf ""=Request.Form And ""=Request.QueryString Then%> No form data was included in the HTTP request. This is most likely caused by reaching this page through a bookmark. <%Else%> No suggestions. <%End If%>

<%End If%>

<%If "chkpnd"=sMode Then%> <%End If%>

<%Session.Abandon()%>