<% Response.ContentType = "application/x-netscape-revocation" serialnumber = Request.QueryString set Admin = Server.CreateObject("CertificateAuthority.Admin") stat = Admin.IsValidCertificate("ca01.caluette.com\Caluette Family Root CA01", serialnumber) if stat = 3 then Response.Write("0") else Response.Write("1") end if %>