<% Response.ContentType = "application/x-netscape-revocation" serialnumber = Request.QueryString set Admin = Server.CreateObject("CertificateAuthority.Admin") stat = Admin.IsValidCertificate("ca-g1-issuing.corp.unifiedmicro.systems\Unified Microsystems Issuing CA G1", serialnumber) if stat = 3 then Response.Write("0") else Response.Write("1") end if %>