<% Dim objQuery Set objQuery = GetDBConn() %> WALKERHILL SHUTTLE RECEIPT :: MONTHLY RESERVATIONS VIEWER <% Dim sFlag, noData1, noData2 sFlag = Trim(Request("sFlag")) noData = "Y" noData2 = "Y" Dim iYear iYear = Trim(Request("iYear")) Dim iMonth, sMonth, cMonth iMonth = Trim(Request("iMonth")) sMonth = Trim(Request("sMonth")) Dim totDay totDay = Trim(Request("totDay")) IF Len(iMonth) > 1 Then cMonth = iMonth Else cMonth = "0" & iMonth End If Dim iiNo, iiPage iiNo = 0 iiPage = 1 Dim arrFe, ix IF sFlag = "Y" Then Set rsList1 = funcGetMonthlyTicketListAdm_PrintSearch(objQuery, SESSION("USERID"), cMonth, totDay, iYear, "depart_date", Trim(Request("user_type")), Trim(Request("agent_name")), Trim(Request("d_flight")), Trim(Request("d_air_1")), Trim(Request("r_flight")), Trim(Request("r_air_2")), Trim(Request("name_last")), Trim(Request("order_by"))) Else Set rsList1 = funcGetMonthlyTicketListAdm_Print(objQuery, SESSION("USERID"), cMonth, totDay, iYear, "depart_date") End IF %> <% IF rsList1.EOF AND rsList1.BOF Then noData = "N" %>
NJ -> JFK      Summary of Reservation for <%=sMonth%> <%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
No. Name Flight#
PNR		 Ticket# NJ > JFK
Date		 Location Phone
There is no data.
<% Else %>
NJ -> JFK      Summary of Reservation for <%=sMonth%> <%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
<% rowNumber = 1 Do Until rsList1.EOF iiNo = iiNo + 1 %> <% IF iiNo = 15 Then iiNo = 0 iiPage = iiPage + 1 %>
No. Name Flight#
PNR		 Ticket# NJ > JFK
Date		 Location Phone
<%=rowNumber%> <%=rsList1("name_last")%>, <%=rsList1("name_first")%> <% arrFe = funcGetPassengerName(objQuery, rsList1("confirmation_id")) If IsArray(arrFe) Then Response.write "
" For ix=0 To UBound(arrFe, 2) Response.write "Fellows: " & arrFe(2, ix) & ", "& arrFe(1, ix) &"
" Next End IF %>
<%=rsList1("email")%> 		<%=rsList1("d_flight")%>
<%=rsList1("pnr")%>		 <%=rsList1("ticket_number")%> <%=rsList1("depart_date")%> <%=rsList1("d_air_1")%> >>
<%=rsList1("d_air_2")%>		 <%=rsList1("phone")%>
Continued Next Page >>

NJ -> JFK      Summary of Reservation for <%=sMonth%> <%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
<% End IF rsList1.MoveNext rowNumber = rowNumber + 1 Loop %>
No. Name Flight#
PNR		 Ticket# NJ > JFK
Date		 Location Phone
Total <%=rowNumber-1%> Row(s) Result


<% End IF rsList1.close Set rsList1 = Nothing iiNo = 0 iiPage = iiPage + 1 IF sFlag = "Y" Then Set rsList2 = funcGetMonthlyTicketListAdm_PrintSearch(objQuery, SESSION("USERID"), cMonth, totDay, iYear, "return_date", Trim(Request("user_type")), Trim(Request("agent_name")), Trim(Request("d_flight")), Trim(Request("d_air_1")), Trim(Request("r_flight")), Trim(Request("r_air_2")), Trim(Request("name_last")), Trim(Request("order_by"))) Else Set rsList2 = funcGetMonthlyTicketListAdm_Print(objQuery, SESSION("USERID"), cMonth, totDay, iYear, "return_date") End If %>
<% IF rsList2.EOF AND rsList2.BOF Then noData2 = "N" %>
JFK -> NJ      Summary of Reservation for <%=sMonth%> <%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
No. Name Flight#
PNR		 Ticket# NJ > JFK
Date		 Location Phone
There is no data.
<% Else %>
JFK -> NJ      Summary of Reservation for <%=sMonth%> <%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
<% rowNumber = 1 Do Until rsList2.EOF iiNo = iiNo + 1 %> <% IF iiNo = 15 Then iiNo = 0 iiPage = iiPage + 1 %>
No. Name Flight#
PNR		 Ticket# JFK > NJ
Date		 Location Phone
<%=rowNumber%> <%=rsList2("name_last")%>, <%=rsList2("name_first")%> <% arrFe = funcGetPassengerName(objQuery, rsList2("confirmation_id")) If IsArray(arrFe) Then Response.write "
" For ix=0 To UBound(arrFe, 2) Response.write "Fellows: " & arrFe(2, ix) & ", "& arrFe(1, ix) &"
" Next End IF %>
<%=rsList2("email")%> 		<%=rsList2("r_flight")%>
<%=rsList2("pnr")%>		 <%=rsList2("ticket_number")%> <%=rsList2("return_date")%> <%=rsList2("r_air_1")%> >>
<%=rsList2("r_air_2")%>		 <%=rsList2("phone")%>
Continued Next Page >>

JFK -> NJ      Summary of Reservation for <%=sMonth%> <%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
<% End IF rsList2.MoveNext rowNumber = rowNumber + 1 Loop %>
No. Name Flight#
PNR		 Ticket# JFK > NJ
Date		 Location Phone
Total <%=rowNumber-1%> Row(s) Result
<% End IF rsList2.close Set rsList2 = Nothing %> <% Set objQuery = Nothing %>