Classic ASP

Subject Alternative Name

Demonstrates the usage of the SubjectAlternativeName property to get the certificate SAN (subject alternative name) as XML.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' Note: Not all certificates contain a Subject Alternative Name.
' If it does not, the SubjectAlternativeName property will contain the empty string.

set cert = Server.CreateObject("Chilkat.Cert")

success = cert.LoadFromFile("qa_data/certs/testIcpBrasil.cer")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>"
    Response.End
End If

subjectAltNameXml = cert.SubjectAlternativeName

Response.Write "<pre>" & Server.HTMLEncode( subjectAltNameXml) & "</pre>"

' Here's a sample of the subjectAltNameXml:

' <?xml version="1.0" encoding="utf-8"?>
' <SubjectAltName>
'     <name type="oid" oid="2.16.76.1.3.4">...</name>
'     <name type="oid" oid="2.16.76.1.3.2">...</name>
'     <name type="oid" oid="2.16.76.1.3.3">...</name>
'     <name type="oid" oid="2.16.76.1.3.7">...</name>
'     <rfc822Name>...</rfc822Name>
' </SubjectAltName>

' The XML can be parsed like this:

set xml = Server.CreateObject("Chilkat.Xml")

success = xml.LoadXml(subjectAltNameXml)

i = 0
count_i = xml.NumChildrenHavingTag("name")
Do While i < count_i
    xml.I = i
    oid = xml.ChilkatPath("name[i]|(oid)")
    name = xml.GetChildContent("name[i]")
    i = i + 1
Loop
rfc822Name = xml.GetChildContent("rfc822Name")

%>
</body>
</html>