<% Dim objQuery Set objQuery = GetDBConn() %> NJ SHUTTLE RECEIPT : DAILY RESERVATION VIEWER <% Dim noData1, noData2 noData = "Y" noData2 = "Y" Dim iYear iYear = Trim(Request("iYear")) '//response.write 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 Dim iRecordCnt Set rsList1 = funcGetMonthlyTicketListAdm_Print_AgentDaily_Adm(objQuery, cMonth, totDay, iYear, "depart_date") IF rsList1.EOF AND rsList1.BOF Then noData = "N" %>
NJ -> JFK      Summary of Reservations - <%=iMonth%>/<%=totDay%>/<%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
No. Name Flight#
PNR		 Ticket# NJ > JFK
Date		 Location Phone
There is no data.
<% Else iRecordCnt = 0 Do While Not rsList1.EOF iRecordCnt = iRecordCnt + 1 rsList1.MoveNext Loop rsList1.MoveFirst %>
NJ -> JFK      Summary of Reservation - <%=iMonth%>/<%=totDay%>/<%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
<% rowNumber = 1 Do Until rsList1.EOF iiNo = iiNo + 1 %> <% IF iiNo = 15 And iRecordCnt > rowNumber 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 - <%=iMonth%>/<%=totDay%>/<%=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 Set rsList2 = funcGetMonthlyTicketListAdm_Print_AgentDaily_Adm(objQuery, cMonth, totDay, iYear, "return_date") %>
<% IF rsList2.EOF AND rsList2.BOF Then noData2 = "N" %>
JFK -> NJ      Summary of Reservation - <%=iMonth%>/<%=totDay%>/<%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
No. Name Flight#
PNR		 Ticket# NJ > JFK
Date		 Location Phone
There is no data.
<% Else iRecordCnt = 0 Do While Not rsList2.EOF iRecordCnt = iRecordCnt + 1 rsList2.MoveNext Loop rsList2.MoveFirst %>
JFK -> NJ      Summary of Reservation - <%=iMonth%>/<%=totDay%>/<%=iYear%> Page (<%=iiPage%>)    As of <%=Date()%>
<% rowNumber = 1 Do Until rsList2.EOF iiNo = iiNo + 1 %> <% IF iiNo = 15 And iRecordCnt > rowNumber 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 - <%=iMonth%>/<%=totDay%>/<%=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 %>