> Oh wow
> Would you be prepared to share the code with others?
>
Sure, no problem...
Again, thanks to Ted for showing me the light...
A bit verbose but in places I deal with different sorts of data types and you
might find it useful... and too lazy to trim it... ;)
FYI this is being read from a web (ASP) page...
newLine = chr(10) & chr(13)
'********************************************************************
'
' Created the FDF merge file
'
'********************************************************************
' this makes up the Header
cFDFstring = "%FDF-1.2" & newLine
cFDFstring = cFDFstring & "%âãÏÓ" & newLine
' this is a reference to the PDF Template file cFDFstring = cFDFstring & "1 0
obj<</FDF<</F(Forms_User_Access_Request.pdf)/Fields 2 0 R>>>>" & newLine
cFDFstring = cFDFstring & "endobj" & newLine
'start the data feed
cFDFstring = cFDFstring & "2 0 obj["
cFDFstring = cFDFstring & "<</T(txtDateRequestedBy)/V(" & txtDateRequestedBy &
")>>"
cFDFstring = cFDFstring & "<</T(txtHireDate)/V(" & txtHireDate & ")>>"
cEmployeeName = txtFirstName & " " & txtMI & " " & txtLastName cFDFstring =
cFDFstring & "<</T(txtName)/V(" & cEmployeeName & ")>>"
cFDFstring = cFDFstring & "<</T(txtTitle)/V(" & txtTitle & ")>>"
cFDFstring = cFDFstring & "<</T(txtUserID)/V(" & txtUserID & ")>>"
cFDFstring = cFDFstring & "<</T(txtPhone)/V(" & txtPhone & ")>>"
cFDFstring = cFDFstring & "<</T(txtDepartment)/V(" & txtDepartment & ")>>"
if radUserType = 1 then
cFDFstring = cFDFstring & "<</T(chkHospitalEmployee)/V(Yes)>>"
else
cFDFstring = cFDFstring & "<</T(chkContractEmployee)/V(Yes)>>"
end if
cFDFstring = cFDFstring & "<</T(txtStartDate)/V(" & txtStartDate & ")>>"
cFDFstring = cFDFstring & "<</T(txtEndDate)/V(" & txtEndDate & ")>>"
if request.form("chkNewHire")<>"" then
cFDFstring = cFDFstring & "<</T(chkNewHire)/V(Yes)>>"
end if
if request.form("txtTerminateDate")<>"" then
cFDFstring = cFDFstring & "<</T(txtTerminateDate)/V(" & txtTerminateDate &
")>>"
end if
if request.form("chkRoleChange")<>"" then
cFDFstring = cFDFstring & "<</T(chkRoleChange)/V(Yes)>>"
end if
if request.form("txtNewRole")<>"" then
cFDFstring = cFDFstring & "<</T(txtNewRole)/V(" & txtNewRole & ")>>"
end if
'terminate the data feed
cFDFstring = cFDFstring & "]" & newLine
' this makes up the Footer
cFDFstring = cFDFstring & "endobj" & newLine cFDFstring = cFDFstring &
"trailer" & newLine cFDFstring = cFDFstring & "<</Root 1 0 R>>" & newLine
cFDFstring = cFDFstring & "%%EOF" & newLine
Thanks,
Matthew Jarvis || Business Systems Analyst
IT Department
McKenzie-Willamette Medical Center
1460 G Street, Springfield, OR 97477 || Ph: 541-744-6092 || Fax: 541-744-6145
--------------------------------------------------------------------------
Disclaimer: This electronic message may contain information that is
Proprietary, Confidential, or legally privileged or protected. It
is intended only for the use of the individual(s) and entity named
in the message. If you are not an intended recipient of this
message, please notify the sender immediately and delete the
material from your computer. Do not deliver, distribute or copy
this message and do not disclose its contents or take any action in
reliance on the information it contains.
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/69f310c05dd83c48a84ba3769ce1ecf805d94...@tntriexevs02.triadhospitals.net
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
