WebRequest webRequest = (HttpWebRequest)WebRequest.Create("https://xxx/ui/Register/RegViewFoundCert.asp");
                        webRequest.Method = "POST";
                        webRequest.ContentType = "application/x-www-form-urlencoded";
                        webRequest.ContentType = "application/x-x509-ca-cert";
                        webRequest.ContentType="application/pkix-cert";
                        webRequest.Headers.Add("Content-Disposition","Attachment;FileName=cert.cer");

                        System.Net.ServicePointManager.CertificatePolicy = new TrustAllCertificatePolicy();

                        byte[] ByteArr = System.Text.UTF8Encoding.UTF8.GetBytes("TokenID=XXX&Password=XXX&CertID=" + cert_id);

                        webRequest.ContentLength = ByteArr.Length;
                        webRequest.GetRequestStream().Write(ByteArr, 0, ByteArr.Length);
                        webRequest.GetRequestStream().Close();

                        HttpWebResponse webResponse = (HttpWebResponse)webRequest.GetResponse();
                        WebHeaderCollection temp = webResponse.Headers;
                        String str = temp.ToString();
                        Int64 fileSize = webResponse.ContentLength;

                        Stream strResponse = webResponse.GetResponseStream();

                        byte[] _buffer = new byte[fileSize];
                        strResponse.Read(_buffer, 0, _buffer.Length);

                        X509Certificate2 serverCert = new X509Certificate2(_buffer);

<!-- #include FILE="RegHeader.asp" -->

<%
    CheckToken "RegViewFoundCert.asp"
	if UseFindCertModeReg <> 1 then SysError "Запрещенный режим доступа к странице."
    Dim objView
    Dim CertID
    CertID=Request.Form("CertID")
	If Len(CertID) = 0 then SysError "Вам отказано в доступе к данной странице."
' Get certificate info
	Dim objReq
	Set objReq = Server.CreateObject(PROGID_CERTMAN)	
	Dim adoRs
	Set adoRs = Server.CreateObject("ADODB.Recordset")
	Dim xmlDoc
	Set xmlDoc = Server.CreateObject(PROGID_XMLDOC)
	xmlDoc.async=false
	xmlDoc.loadXML objReq.GetCertificateInfo(CertID)
	if err.number <> 0 then SysError "Невозможно получить сертификат." & Hex(err.number) & ": " & err.description
	adoRs.Open xmlDoc
' Check for error
	if err.number <> 0 then SysError "Невозможно получить сертификат." & Hex(err.number) & ": " & err.description
    
    Response.Clear 
    Response.ContentType="application/x-x509-ca-cert"
    Response.ContentType="application/pkix-cert"
    Response.AddHeader "Content-Disposition", "Attachment;FileName=cert.cer"
    Response.Write adoRs("PKCS").Value
    set adoRs=Nothing
    Response.End 
    ' Check for error
    if err.number <> 0 then SysError Hex(err.number) & ": " & err.description
%>