<%
     Dim NVresize : Set NVresize = Server.CreateObject("Neevia.PDFresize")
 
     NVresize.PageWidth = 5 ' page width = 5 inches
     NVresize.PageHeight = 10 ' page height = 10 inches
     NVresize.Units = 1 ' measurement units = inches

     NVresize.Scale = true ' scale page
     NVresize.ConstrainProportions = true ' constrain proportions when scaling

     NVresize.Center = true ' center page content

     NVresize.Pages = "1" 'resize the first page of the PDF
 
     Dim retVal : retVal = NVresize.ResizePDF("c:\in.pdf", "c:\out.pdf")
     if retVal<>0 then
       Response.Write "Error code=" & CStr(retVal)
     else 
       Response.Write "Done"
     end if
   %>