1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | <% Dim DC : Set DC = Server.CreateObject("Neevia.docConverter") Dim RVal : RVal = DC.mergePDF("c:\users\public\file1.pdf","c:\users\public\file2.pdf", "c:\users\public\out.pdf") Set DC = Nothing If RVal=0 Then Response.Write "Done !!!" Else Response.Write "There was an error merging the documents !!!" End If %> |