1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | <% Dim NVsign : Set NVsign = Server.CreateObject("PDFsign.Neevia") NVsign.CertificateSubject = "Test certificate" NVsign.CertificatePassword = "password" NVsign.Reason = "I am the creator of this document" NVsign.Invisible = true Dim retVal : retVal = NVsign.SignPDF("c:\in.pdf","c:\out.pdf") If retVal <> 0 Then Response.Write "Error code=" & CStr(retVal) Else Response.Write "Done" End If %> |