<%

  Dim DC : Set DC = Server.CreateObject("Neevia.docCreator")

  DC.setParameter "PDFEncryption", "true"
  DC.setParameter "PDFEncryptionType", "40"

  DC.setParameter "PDFOwnerPassword", "test"
  DC.setParameter "PDFUserPassword", "open"

  DC.setParameter "PDFNoCopyPermission", "true"
  DC.setParameter "PDFNoPrintPermission", "true"
  DC.setParameter "PDFNoChangePermission", "true"
  DC.setParameter "PDFNoAddPermission", "true"

  Dim RVal : RVal=DC.encryptPDF("d:\test.pdf", "d:\out.pdf")
  Set DC = Nothing

  If (RVal<>0) Then
    Response.Write "There was an error encrypting the document!!!"
  Else
    Response.Write "Done encrypting !!!"
  End If

%>