home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 9 / IOPROG_9.ISO / contrib / iis4 / certsrv.cab / kgaccept.asp < prev    next >
Encoding:
Text File  |  1997-08-25  |  983 b   |  27 lines

  1. <%      Response.ContentType = "application/x-x509-user-cert"
  2.      
  3.     Dim CertReq, SubmitFlag, GetCertFlag, Disp, Cert
  4.  
  5.     set ICertRequest = Server.CreateObject("CertificateAuthority.Request")
  6.     set ICertConfig = Server.CreateObject("CertificateAuthority.Config") 
  7.  
  8.     CertReq = Request.Form("RequestData")
  9.     
  10.         atrbs = "challenge: test" + vbCrLf
  11.     atrbs = atrbs + "commonname: " + Request.Form("commonname") + vbCrLf
  12.     atrbs = atrbs + "orgunit: " + Request.Form("orgunit") + vbCrLf
  13.     atrbs = atrbs + "org: " + Request.Form("Org") + vbCrLf
  14.     atrbs = atrbs + "locality: " + Request.Form("Locality") + vbCrLf
  15.     atrbs = atrbs + "state: " + Request.Form("State") + vbCrLf
  16.     atrbs = atrbs + "country: " + Request.Form("Country") + vbCrLf
  17.     atrbs = atrbs + "email: " + Request.Form("email") + vbCrLf
  18.  
  19.     ConfigString = ICertConfig.GetConfig(0)
  20.  
  21.     Disp = ICertRequest.Submit(513, CertReq, atrbs, ConfigString)
  22.     Certificate =ICertRequest.GetCertificate(0)
  23. %>
  24.  
  25. <%=Certificate%>
  26.  
  27.