Code Samples - Neevia PDFmerge/split

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

   <%
     Dim NVsplit : Set NVsplit = CreateObject("PDFsplit.Neevia")
     'Extract pages 2,3,7
     Dim retVal : retVal = NVsplit.SplitPDF("c:\1.pdf(2,3,7)", "c:\out\")
     if retVal<>0 then
       Response.Write "Error = " & CStr(retVal)
     else 
       Response.Write "Done"
     end if
   %>