<%@ Language=VBSCRIPT %> <% Option Explicit %> <% ‘ Resume to next statement on error On error resume next ‘ Next we add our declare and set our FDF Objects, and set MIME Type(Output). Dim FDFAcx, FDFin ‘ Set the Output MIME Type to FDF before we write anything to buffer Response.ContentType = "application/vnd.fdf" ‘ Create FDF Application Set FdfAcx = Server.CreateObject("FdfApp.FdfApp") ‘ Create FDF output to PDF File Set FDFout = FdfAcx.FDFCreate ‘ Next, we create the FDF Input from PDF File (Uncomment One of them) ‘ 1. Open FDF From PDF File URL ‘ Set FDFin=FdfAcx.FDFOpenFromFile(Server.MapPath(“/PDF/my_file.pdf”)) ‘ 2. Or Open from Buffer (PDF Submit Button) ‘ Set FDFin = FdfAcx.FDFOpenFromBuf(Request.BinaryRead(Request.TotalBytes)) ‘ Next we get the values from the FDF file Dim FieldValues(2) FieldValues(1) = FDFin.FDFGetValue(“PDFField_One”) FieldValues(2) = FDFin.FDFGetValue(“PDFField_Two”) ‘ Write the Status to show user the values are updated FDFout.FDFSetStatus “Page Imported to ASP: Successful” ‘ Next we write the response to the PDF File through FDF Response.BinaryWrite FDFin.FDFSaveToBuf ‘ Close the FDF Object and End the Response FdfAcx.Close Respone.End %>
