<%@ 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 ‘ Set the PDF File URL to output the FDF to (Not needed for Importing FDF) FDFout.FDFSetFile = “http://mydomain.com/My_PDF.pdf” ‘ Next we add values to the FDF Output file FDFout.FDFSetValue “Fieldname_One”, "Value_Of_Field_Onw" FDFout.FDFSetValue “Fieldname_Two”, "Value_Of_Field_Two" ‘ Write the Status to show user the values are updated FDFout.FDFSetStatus “Page Updated with new Values” ‘ Next we write the response to the PDF File through FDF Response.BinaryWrite FDFout.FDFSaveToBuf ‘ Close the FDFout Object FdfAcx.Close ‘ End the Response Respone.End %>
