home *** CD-ROM | disk | FTP | other *** search
- <% Response.ContentType = "application/x-x509-user-cert"
-
- Dim CertReq, SubmitFlag, GetCertFlag, Disp, Cert
-
- set ICertRequest = Server.CreateObject("CertificateAuthority.Request")
- set ICertConfig = Server.CreateObject("CertificateAuthority.Config")
-
- CertReq = Request.Form("RequestData")
-
- atrbs = "challenge: test" + vbCrLf
- atrbs = atrbs + "commonname: " + Request.Form("commonname") + vbCrLf
- atrbs = atrbs + "orgunit: " + Request.Form("orgunit") + vbCrLf
- atrbs = atrbs + "org: " + Request.Form("Org") + vbCrLf
- atrbs = atrbs + "locality: " + Request.Form("Locality") + vbCrLf
- atrbs = atrbs + "state: " + Request.Form("State") + vbCrLf
- atrbs = atrbs + "country: " + Request.Form("Country") + vbCrLf
- atrbs = atrbs + "email: " + Request.Form("email") + vbCrLf
-
- ConfigString = ICertConfig.GetConfig(0)
-
- Disp = ICertRequest.Submit(513, CertReq, atrbs, ConfigString)
- Certificate =ICertRequest.GetCertificate(0)
- %>
-
- <%=Certificate%>
-
-