Populating a pdf form from a database

Question

There seems to be a lot of information on the forum that skirts around this problem, but so far everything I've tried falls short.
<br />
<br />I have a pdf form that can be filled out via a browser (the web server is Win2k and IIS.
<br />
<br />I can fill out this form and use an http submit button to send it to a .asp url where a vbscript program captures the data and creates a record in a sql server table.
<br />
<br />What I want to be able to do is call up that pdf form and populate it with the data from a specific record from the table - again using .asp and vbscript. The following code brings up the form, but does not fill in the fields. Is what I want to do possible and if so can someone help?
<br />
<br />Thanks.
<br />
<br />Dave Space
<br />
<br /><%@ LANGUAGE = VBScript%>
<br />
<!--#include virtual="/Common/adovbs.inc"-->
<br /><%<br />On Error Resume Next<br />TableName = Request.Form("TableName")<br />Set Conn = Server.CreateObject("ADODB.Connection")<br />Conn.Open "Database=fff;DSN=fff;UID=myuid;Password=mypass"<br />Set RS = Server.CreateObject("ADODB.Recordset")<br />RS.CursorLocation = adUseServer<br />RS.CursorType = adOpenKeyset<br />RS.LockType = adLockOptimistic<br />RS.Open "Select * from iacuc where id = 4", Conn, , , adCmdText<br />Response.ContentType = "application/vnd.adobe.xdp+xml" <br />Response.Write "<?xml version=""1.0"" encoding=""UTF-8""?>" <br />Response.Write "<?xfa generator=""XFA2_0"" APIVersion=""2.2.5028.0""?>" <br />Response.Write "<xdp:xdp xmlns:xdp=""http://ns.adobe.com/xdp/"">" <br />Response.Write "<xfa:datasets xmlns:xfa=""http://www.xfa.org/schema/xfa-data/1.0/"">" <br />Response.Write "<xfa:data>" <br />Response.Write "<form1>" <br />For Each item in RS.Fields<br /> If InStr("IPADDR ID", uCase(item.name)) = 0 Then<br />  Response.Write("<"&item.name&">"&item.value&"</"&item.name&">")<br /> End If<br />Next<br />RS.Close<br />set RS = nothing<br />Conn.Close<br />Set Conn = Nothing<br />Response.Write "</form1>" <br />Response.Write "</xfa:data>" <br />Response.Write "</xfa:datasets>" <br />Response.Write "<pdf href=""http://aaa.bbb.edu/pdf_forms/aaa.pdf"" xmlns=""http://ns.adobe.com/xdp/pdf/"" />" <br />Response.Write "</xdp:xdp>" <br />Response.Flush <br />Response.End <br />%>

Answer 1

David,<br /><br />Can you try to loop through your recordset before doing any of the Response.Write(). Save the the output in a string called "mystring" and output it at the end? So it would look something like this:<br /><br />Response.ContentType = "application/vnd.adobe.xdp+xml" <br />Response.Write "<?xml version=""1.0"" encoding=""UTF-8""?>" <br />Response.Write "<?xfa generator=""XFA2_0"" APIVersion=""2.2.5028.0""?>" <br />Response.Write "<xdp:xdp xmlns:xdp=""http://ns.adobe.com/xdp/"">" <br />Response.Write "<xfa:datasets xmlns:xfa=""http://www.xfa.org/schema/xfa-data/1.0/"">" <br />Response.Write "<xfa:data>" <br />Response.Write "<form1>" <br />Response.Write(mystring)<br />Response.Write "</form1>" <br />Response.Write "</xfa:data>" <br />Response.Write "</xfa:datasets>" <br />Response.Write "<pdf href=""http://aaa.bbb.edu/pdf_forms/aaa.pdf"" xmlns=""http://ns.adobe.com/xdp/pdf/"" />" <br />Response.Write "</xdp:xdp>" <br />Response.Flush <br />Response.End <br />%><br /><br />Can you tell me what is your "mystring" look like? See if you get a different result?