this is my code it is of two different asp pages, one called pdf.asp the other pdfexec.asp
*pdf.asp
<%@ Language=VBScript %>
<%
Response.Buffer = true
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("part1.mdb")
%>
<form method="post" action="pdfexec.asp">
<select size="1" name="appid">
<option value="select">...Applicant ID...</option>
<%
Set RSA = Server.CreateObject("ADODB.Recordset")
RSA.Open "SELECT FROM appData", data_source
While Not RSA.EOF
%>
<option value="<%= RSA("appid") %>"><%= RSA("appid") %></option>
<%
RSA.MoveNext
Wend
RSA.Close
Set RSA = Nothing
%>
</select>
<p><select size="1" name="pdffile">
<option selected value="0">select a form</option>
<option value="pdf1.pdf">pdf1</option>
<option value="pdf2.pdf">pdf2</option>
<option value="pdf3.pdf">pdf3</option>
<option value="pdf4.pdf">pdf4</option>
<option value="pdf5.pdf">pdf5</option>
<option value="pdf6.pdf">pdf6</option>
<option value="pdf7.pdf">pdf7</option>
<option value="pdf8.pdf">pdf8</option>
<option value="pdf9.pdf">pdf9</option>
<option value="pdf10.pdf">pdf10</option>
</select></p>
<p>
<input type="submit" value="Select">
</p>
</form>
**pdfexec.asp**
<%@ Language=VBScript %>
<%
Response.Buffer = true
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("part1.mdb")
appid = Request("appid")
pdffile = Request("pdffile")
Set rsm = Server.CreateObject("ADODB.Recordset")
rsm.Open "select * from appData where ( appid = " & appid & " )", data_source
FirstName = Trim(rsm("fname"))
MiddleName = Trim(rsm("mname"))
LastName = Trim(rsm("lname"))
rsm.Close
Set rsm = Nothing
Dim FdfAcX As FDFACXLib.FdfApp
Set FdfAcx = Server.CreateObject("FdfApp.FdfApp")
Set myFdf = FdfAcx.FDFCreate
myFdf.fdfsetvalue "FirstName", FirstName, false
myFdf.fdfsetvalue "MI", MiddleName, false
myFdf.fdfsetvalue "LastName", LastName, false
myFDF.fdfSetFile "http://www.company.com" & pdfile
Response.ContentType = "text/html"
myfdf.fdfclose
FdfAcx.Close
set FdfAcx = Nothing
set myfdf = Nothing
appIDRS.Close
Set appIDRS = Nothing
appIDConnectionObject.Close
Set appIDConnectionObject = Nothing
%>