<% Dim strPageTitle strPageTitle = "Reservation" %> <% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) %> <% Dim departureF, returnF departureF = Trim(Request("d_flight")) returnF = Trim(Request("r_flight")) IF departureF = "" Then departureF = "OZ221" End If IF returnF = "" Then returnF = "OZ222" End If Dim nPassengers IF Trim(Request("adult_cnt")) = "" Then nPassengers = 1 Else nPassengers = cdbl(Request("adult_cnt")) End If Dim nChild IF Trim(Request("child_cnt")) = "" Then nChild = 0 Else nChild = cdbl(Request("child_cnt")) 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 * C<%Else%><%=Trim(Request("pnr"))%><%End IF%>" class="input">  (Asiana Airlines Reservation#)
Passengers *
Adult Child
NJ -> JFK Flight# / Date 
" size="10" maxlength="10" readonly>
JFK -> NJ Flight# / Date
" size="10" maxlength="10" readonly>
Passenger Name *
Primary 1. " class="input"> ,  " class="input">
  Last Name (¼º)   First Name (À̸§)
<% IF nPassengers > 1 Then Dim num For num = 2 To nPassengers %>
Adult <%=num%>. " class="input"> ,  " class="input">
<% Next End If %> <% IF nChild > 0 Then Dim numC For numC = 1 To nChild %>
Child <%=numC%>. " class="input"> ,  " class="input">
<% Next End If '//nChild %>
Phone# * " class="input">
Email Address * " class="input">
Comment
<%'// Contents End ------------------------------------------------------------------------------------------------------%>
<% End Sub %>