Code Samples - Neevia PDFsign/encrypt

 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
  %>