Code Samples - Neevia PDFsign/encrypt

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

   <%
     Dim NVsign : Set NVsign = Server.CreateObject("PDFsign.Neevia")

     NVsign.CertificateFile = "c:\cert.pfx"
     NVsign.CertificatePassword = "pwd"

     NVsign.Certify = true
     NVsign.CertifyPermissions = 0

     NVsign.TimeStamp = true
     NVsign.TimeServerURL = "http://tsa.neeviaPDF.com/tsa"

     NVsign.X = 0
     NVSign.Y = 0
     NVSign.Width = 6
     NVSign.Height = 2
     NVSign.Units = 1

     NVSign.ViewType = 1

     NVSign.Reason = "I am the creator of this document"
     NVSign.TextColor = "#0000FF"
   
     NVsign.Paper = "letter"
     NVsign.Orientation = 2
     NVsign.Scale = 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
   %>