1 2 3 4 5 6 7 8 9 10 | <% Dim NVmerge : Set NVmerge = Server.CreateObject("PDFMerge.Neevia") NVmerge.removeBookmarks = true Dim retVal : retVal = NVmerge.MergePDF("c:\1.pdf+c:\2.pdf", "c:\merged.pdf") if retVal<>0 then Response.Write "Error code=" & CStr(retVal) else Response.Write "Done" end if %> |