<% Dim strPageTitle strPageTitle = "Reservations Management - Admin" %> <% 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 Dim pickdate, qflag pickdate = Trim(Request("pickdate")) '//Date qflag = Trim(Request("qflag")) '//Depart or Return Dim UserID, UserType, RecDay_y UserID = Trim(Request("UserID")) UserType = Trim(Request("UserType")) RecDay_y =Trim(Request("RecDay_y")) Dim rsConfirm 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 Dim departureF, returnF IF Trim(Request("d_flight")) <> "" Then departureF = Trim(Request("d_flight")) Else departureF = Trim(rsConfirm("d_flight")) End If IF Trim(Request("r_flight")) <> "" Then returnF = Trim(Request("r_flight")) Else returnF = Trim(rsConfirm("r_flight")) End IF IF departureF = "" Then departureF = "OZ221" End If IF returnF = "" Then returnF = "OZ222" End If Dim nPassengers IF Trim(Request("adult_cnt")) = "" Then nPassengers = cdbl(rsConfirm("adult_cnt")) Else nPassengers = cdbl(Request("adult_cnt")) End If Dim nChild IF Trim(Request("child_cnt")) = "" Then nChild = cdbl(rsConfirm("child_cnt")) Else nChild = cdbl(Request("child_cnt")) End If Dim depart_date IF Trim(Request("depart_date")) = "" Then depart_date = Trim(rsConfirm("depart_date")) Else depart_date = Trim(Request("depart_date")) End If Dim return_date IF Trim(Request("return_date")) = "" Then return_date = Trim(rsConfirm("return_date")) Else return_date = Trim(Request("return_date")) End If %>
<%'//LEFT AREA %>  
<%'// Contents Start ------------------------------------------------------------------------------------------------------%> "> ">
Type of Travel * Round Tripchecked<%End IF%>>    One Waychecked<%End IF%>>
Ticket# * " class="input" onKeyPress="if ((event.keyCode<48)||(event.keyCode>57)) event.returnValue=false;">
PNR * " class="input"> (Asiana Airlines Reservation#)
Passengers *
Adult Child
NJ -> JFK Flight# / Date *
<%IF departureF = "OZ222" Then%> <%ELSE%> <%End IF%> <%IF departureF = "OZ221" Then%> <%Else%> <%End IF%>
JFK -> NJ Flight# / Date
<%IF returnF = "OZ222" Then%> <%Else%> <%End IF%> <%IF returnF = "OZ221" Then%> <%Else%> <%End IF%>
<% IF Trim(Request("sflag")) = "search" Then %> <% Else %> <% End IF %>
Date(s) of Travel *
NJ > JFK
  ~  
JFK > NJ
Passenger Name *
Primary 1. " class="input"> ,  " class="input">
  Last Name (¼º)   First Name (À̸§)
<% IF nPassengers > 1 Then Dim num Dim arrAdult, a1 arrAdult = funcGetPassenger(objQuery, confirmation_id, "A") a1 = 0 IF IsArray(arrAdult) Then For num = 2 To nPassengers %>
Adult <%=num%>. , 
<% a1 = a1 + 1 Next Else For num = 2 To nPassengers %>
Adult <%=num%>. " class="input"> ,  " class="input">
<% Next End IF End If %> <% IF nChild > 0 Then Dim numC Dim arrChild, a2 arrChild = funcGetPassenger(objQuery, confirmation_id, "C") a2 = 0 IF IsArray(arrChild) Then For numC = 1 To nChild %>
Child <%=numC%>. , 
<% a2 = a2 + 1 Next Else For numC = 1 To nChild %>
Child <%=numC%>. " class="input"> ,  " class="input">
<% Next End IF End If '//nChild %>
Phone# * " class="input">
Email Address * " class="input">
Comment
">          
<%IF pickdate = "" Then%><%Else%><%End IF%>          
<%'// Contents End ------------------------------------------------------------------------------------------------------%>
<% End IF rsConfirm.close Set rsConfirm = Nothing End Sub %>