<% Dim strPageTitle strPageTitle = "Confirmation" %> <% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) Dim confirmation_id confirmation_id = Trim(Request("confirmation_id")) Dim sURL sURL = ROOT_PATH & "/shuttle_ticket_pdf.asp?confirmation_id="&confirmation_id Dim Pdf, Doc Set Pdf = Server.CreateObject("Persits.Pdf") Set Doc = Pdf.CreateDocument Doc.ImportFromUrl sURL, "landscape=false, LeftMargin=10, RightMargin=10, TopMargin=0, BottomMargin=0 " Filename = Doc.Save( Server.MapPath("/upload/"&confirmation_id&".pdf"), True) Set Pdf = Nothing %>

<%'//LEFT AREA %>		<%'// Contents Start ------------------------------------------------------------------------------------------------------%> <% Dim rsConfirm, ticketN, tn Set rsConfirm = funcGetTicketConfirmation(objQuery, confirmation_id) IF rsConfirm.EOF AND rsConfirm.BOF Then Response.write "Confirmation ID is not available, please contact to our service manager." Else ticketN = CDbl(rsConfirm("adult_cnt")) + CDbl(rsConfirm("child_cnt")) %> SHUTTLE BUS RECEIPT (NJ -> JFK) Issued Date: <%=rsConfirm("insert_date")%> Passenger Name: <%=rsConfirm("name_last")%>, <%=rsConfirm("name_first")%> (Primary#1) Dep. Date: <%=rsConfirm("depart_date")%> PNR #: <%=rsConfirm("pnr")%> Ticket #: <%=rsConfirm("ticket_number")%> Flight #: <%=rsConfirm("d_flight")%> Agency: <%=rsConfirm("agent_name")%> <%=rsConfirm("d_air_1")%> >>> <%=rsConfirm("d_air_2")%> If you have any questions, please contact to your agency. (North Bergen Route) (Shuttle Boarding Time: _____________________) <% Response.write " " IF Trim(rsConfirm("return_date")) <> "" Then %> SHUTTLE BUS RECEIPT (JFK -> NJ) Issued Date: <%=rsConfirm("insert_date")%> Passenger Name: <%=rsConfirm("name_last")%>, <%=rsConfirm("name_first")%> (Primary#1) Arr. Date: <%=rsConfirm("return_date")%> PNR #: <%=rsConfirm("pnr")%> Ticket #: <%=rsConfirm("ticket_number")%> Flight #: <%=rsConfirm("r_flight")%> Agency: <%=rsConfirm("agent_name")%> <%=rsConfirm("r_air_1")%> >>> <%=rsConfirm("r_air_2")%> If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: _____________________) <% End IF %> <% Response.write " " End If rsConfirm.close Set rsConfirm = Nothing %> <%'// Contents End ------------------------------------------------------------------------------------------------------%>

<% End Sub %>