1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

   <%

     Dim pageToExtract : pageToExtract=2

     Dim DC : Set DC = CreateObject("Neevia.docConverter")

     Dim RVal
     RVal = DC.extractPDFpages("c:\users\public\test.pdf","c:\users\public\page.pdf", pageToExtract, pageToExtract)

     Set DC = Nothing

     If RVal=0 Then
       Response.Write "Done !!!"
     Else
       Response.Write "There was an error extracting the page !!!"
     End If

   %>