1 2 3 4 5 6 7 8 9 | <% Dim NVmerge : Set NVmerge = Server.CreateObject("PDFMerge.Neevia") 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 %> |