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

   <%
     Dim DC : Set DC = Server.CreateObject("Neevia.docCreator")

     DC.setInputDocument "c:\users\public\test.pdf"

     DC.setParameter "DocumentOutputFormat", "TXT"
     DC.setParameter "DocumentOutputName", "testTXT_ASP"
     DC.setParameter "DocumentOutputFolder", "c:\users\public\"

     Dim RVal : RVal = DC.create  
     Set DC = Nothing

     If (RVal <> 0) Then 
       Response.Write "Error while parsing the PDF file!!!"
     Else
       Response.Write "Done !!!"
     End If
   %>