<% Dim strPageTitle strPageTitle = "Search Result" %> <% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) %>
<%'//LEFT AREA %>  
<%'// Contents Start ------------------------------------------------------------------------------------------------------%> <% Dim search_name search_name = Ucase(Request("search_name")) 'IF SESSION("USERID") <> "" Then 'UserID = SESSION("USERID") 'End If Set rsList = funcGetTicketSearchAdm(objQuery, search_name) IF rsList.EOF AND rsList.BOF Then Response.write "There is no result." Else %>
Search Name : <%=search_name%>
Agent Name : <%=rsList("agent_name")%>
Agent ID : <%=rsList("user_id")%>

<% rowNumber = 1 Do Until rsList.EOF %> <% rsList.MoveNext rowNumber = rowNumber + 1 Loop %>
No. Name PNR Flight# Ticket# Location Phone Email
<%=rowNumber%> &search_name=<%=search_name%>&sflag=search"><%=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 %>