1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14

   <%
     Dim documentToConvert : documentToConvert="c:\users\public\test.tif"

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

     Dim RVal : RVal = DC.ConvertImage(documentToConvert, documentToConvert & ".pdf")
     Set DC = Nothing

     If (RVal <> 0) Then 
       Response.Write "Error converting image !!!"
     else
       Response.Write "Done converting!!!"
     End If
   %>