<%@ Page Language="VB" Debug="TRUE" %> <%@ import Namespace="System.Data" %> <%@ import Namespace="System.Data.OLEDB" %> <%@ import Namespace="FdfAcx_Net" %> <script runat="server"> ‘ 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 FDFApp As New FDFApp.FDFApp.FDFApp_Class Dim FDFDoc As New FDFApp.FDFApp.FDFDoc_Class ‘ Set the Output MIME Type to FDF before we write anything to buffer Response.ContentType = "application/vnd.fdf" ‘ Create FDF output to PDF File Set FDFDoc = FDFApp.FDFCreate ‘ Set the PDF File URL to output the FDF to (Not needed for Importing FDF) FDFDoc.FDFSetFile(“http://mydomain.com/My_PDF.pdf”) ‘ Call Subroutine to perform Data Population Perform_Query Sub Perform_Query() Dim ds as Dataset ' Declare Recordset Dim dr as DataRow ' Declare DataRow Dim da as OLEDBDataAdapter Dim ConnStr as String ‘ Declare Connection String Dim RecordCounter as Integer ConnStr = “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=” & Server.MapPath(“/Databases/My_Database.mdb”) ‘ Open Updatable Recordset Syntax is as follows ds = New Dataset da = new OLEDataAdapter("Select * From Table_One Where UniqueID = 2;", ConnStr) da.Fill(ds,"Table_One") ‘ Check if a record is found RecordCounter = ds.Table(0).Rows.Count + 0 If RecordCounter < 1 then response.write “no records found” response.end else dr = ds.tables(0).rows(0) end if ‘ if the field type is a string then add a empty string to the end to not throw an error fdfdoc.fdfsetvalue(“fieldname_one”, dr(“fieldname_one") & “”) ‘ if the field type is numeric then add zero to not throw an error fdfdoc.fdfsetvalue(“fieldname_two”, dr(“fieldname_two”) + 0) fdfdoc.fdfsetstatus(“page updated with new values”) response.binarywrite(fdfdoc.fdfsavetobuf) end sub </script>
