1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

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

     DC.setParameter "StationeryFile", "d:\stat.pdf"

     DC.setParameter "StampRotate", "0"
     DC.setParameter "StampX", "0"
     DC.setParameter "StampY", "0"

     ' place the stationery as stamp (over the page content)
     DC.setParameter "Watermark", "false"
  
     DC.setParameter "PlaceStationeryOnPages", "0"

     Dim RVal : RVal=DC.stampPDF("d:\test.pdf", "d:\out.pdf")

     Set DC = Nothing

     If RVal=0 Then
       Response.Write "Done !!!"
     Else
       Response.Write "There was an error stamping the document !!!"
     End If
   %>