<% Dim strPageTitle strPageTitle = "Confirmation" %> <% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) %>
<%'//LEFT AREA %>  
<%'// Contents Start ------------------------------------------------------------------------------------------------------%> <% 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")) 'IF SESSION("USERID") <> "" Then 'UserID = SESSION("USERID") 'End If Set rsList = funcGetTicketList(objQuery, SESSION("USERID"), qflag, pickdate) IF rsList.EOF AND rsList.BOF Then Response.write "There is no data." Else %>
Date : <%=pickdate%>
Type : <%IF qflag = "depart_date" Then %>NJ -> JFK<%Else%>JFK -> NJ<%End IF%>
Agent Name : <%=rsList("agent_name")%>
Agent ID : <%=rsList("user_id")%>

<% rowNumber = 1 Do Until rsList.EOF %> <%IF qflag = "depart_date" Then%> <%Else%> <%End IF%> <%IF qflag = "depart_date" Then%> <%Else%> <%End IF%> <% rsList.MoveNext rowNumber = rowNumber + 1 Loop %>
No. Name PNR Flight# Ticket# Location Phone Email
<%=rowNumber%> &pickdate=<%=pickdate%>&qflag=<%=qflag%>&UserID=<%=UserID%>&UserType=<%=UserType%>&RecDay_y=<%=RecDay_y%>"><%=rsList("name_last")%>, <%=rsList("name_first")%>
 <%=rsList("pnr")%><%=rsList("d_flight")%><%=rsList("r_flight")%><%=rsList("ticket_number")%><%=rsList("d_air_1")%> ->
<%=rsList("d_air_2")%>		<%=rsList("r_air_1")%> ->
<%=rsList("r_air_2")%>		<%=rsList("phone")%> <%=rsList("email")%>
&email=<%=Trim(rsList("email"))%>', 'eTicketSend', 730, 700, 1);">
<% End IF rsList.close Set rsList = Nothing %>




<%'// Contents End ------------------------------------------------------------------------------------------------------%>
<% End Sub %>