Check if Certificate Expired

How to check to see if a digital certificate is expired.

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set cert = Server.CreateObject("Chilkat_9_5_0.Cert")

'  The LoadByCommonName method searches the registry-based
'  Windows Current User Certificate Store and Local Machine Certificate
'  Store for a certificate whose common name (CN) matches
'  the argument:

success = cert.LoadByCommonName("Chilkat Software, Inc.")
If (success = 0) Then
    Response.Write "Failed to find certificate!" & "<br>"
Else

    '  Display the certificate's distinguished name:
    Response.Write Server.HTMLEncode( cert.SubjectDN) & "<br>"

    isExpired = cert.Expired
    If (isExpired = 1) Then
        Response.Write Server.HTMLEncode( "Certificate is expired.") & "<br>"
    Else
        Response.Write Server.HTMLEncode( "Certificate is NOT expired.") & "<br>"
    End If

End If

'  Alternatively, load a Certificate from a .cer file.
'  (Certs may also be loaded from other types of files, such as PEM, DER, PFX, etc.)
success = cert.LoadFromFile("myCert.cer")
If (success = 0) Then
    Response.Write "Failed to load certificate!" & "<br>"
Else

    '  Display the certificate's distinguished name:
    Response.Write Server.HTMLEncode( cert.SubjectDN) & "<br>"

    isExpired = cert.Expired
    If (isExpired = 1) Then
        Response.Write Server.HTMLEncode( "Certificate is expired.") & "<br>"
    Else
        Response.Write Server.HTMLEncode( "Certificate is NOT expired.") & "<br>"
    End If

End If

'  The Chilkat Certificate, Certificate Store, Private Key,
'  Public Key, and Key Container classes / objects are freeware.

'  They are used by and included with the Chilkat Email,
'  Crypt, S/MIME, and other commercial Chilkat components.

%>
</body>
</html>