Project Detail

Description

This project requires the transcition of an ASP form page that generates a PDF file for printing. Currently, It is neccessary that we install the Adobe FDF toolkit for this page to generate the PDF file. I am not too technica, but this is part of how the code is written:
---BEGIN CODE-----

<%@ LANGUAGE=VBScript%><%
Response.ContentType="application/vnd.fdf"
Response.Expires=0
%><SCRIPT LANGUAGE=vbscript RUNAT=SERVER>Set FdfAcx=Server.CreateObject("FdfApp.FdfApp")
Set FDF=FdfAcx.FDFCreate
id=Request.QueryString("CustomerID")
if id="" then
id=Session("CustomerID")
end if
Set NewSchool=Server.CreateObject("ADODB.Connection")
NewSchool.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="+Server.MapPath("../media/database.mdb"))
Set RS=Server.CreateObject("ADODB.RecordSet")
SQL="SELECT CustomerID,DueDate,Month(DueDate) AS mmm,Day(DueDate) AS ddd,Year(DueDate) As

yyy,Certificate,CaseDocket,CourtName.CourtName,CompletionDate,Month(CompletionDate) AS

mm,Day(CompletionDate) AS dd,Year(CompletionDate) As yy,BirthDate,Month(BirthDate) AS

m,Day(BirthDate) AS d,Year(BirthDate) As y,Address,City,State,Zip,FirstLastName,"
SQL=SQL & "EMail FROM Chap,CourtName WHERE Chap.CourtName=CourtName.CourtID and CustomerID='" & id

& "'"
RS.Open SQL, NewSchool, 1,3
if RS.EOF then
Response.Redirect("index.html")
else
FDF.FDFSetValue "cn", "" & RS("Certificate"), False
FDF.FDFSetValue "dc", "" & RS("mm") & "/" & RS("dd") & "/" & RS("yy"), False
FDF.FDFSetValue "db", "" & RS("m") & "/" & RS("d") & "/" & RS("y"), False
FDF.FDFSetValue "name", "" & RS("FirstLastName"), False
FDF.FDFSetValue "address", "" & RS("Address")+chr(13)+RS("City")+", "+RS("State")+" "+RS("Zip"),

False
FDF.FDFSetValue "dr", "" & RS("CustomerID"), False
FDF.FDFSetValue "court", "" & RS("CourtName"), False
FDF.FDFSetValue "case", "" & RS("CaseDocket"), False
FDF.FDFSetValue "dd", "" & RS("mmm") & "/" & RS("ddd") & "/" & RS("yyy"), False
end if
FDF.FDFSetFile "http://www.cleantickets.com/roland/Certificate.pdf"
Response.BinaryWrite FDF.FDFSaveToBuf
FDF.FDFClose
sql="UPDATE Chap SET PrintCertificate=True WHERE CustomerID='" & RS("CustomerID") & "'"
RS.Close
NewSchool.Execute(sql)
NewSchool.Close
Set RS=Nothing
Set NewSchool=Nothing</SCRIPT>

----END CODE-----

I do not want to be depending on any adobe file and we want to have this page generate an ASP or HTML file instead of a PDF file. If you do not understand any of this let me know...

Payment.
Payment will be provided once project is completed.