<% Dim strPageTitle strPageTitle = "Reservations Management - Admin" %> <% 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")) Dim iYear, iMonth, totDay Dim arrDate arrDate = Split(pickdate, "/") iMonth = Trim(arrDate(0)) totDay = Trim(arrDate(1)) iYear = Trim(arrDate(2)) Dim sMonth Select Case iMonth Case "01" sMonth = "January" Case "02" sMonth = "February" Case "03" sMonth = "March" Case "04" sMonth = "April" Case "05" sMonth = "May" Case "06" sMonth = "June" Case "07" sMonth = "July" Case "08" sMonth = "August" Case "09" sMonth = "September" Case "10" sMonth = "October" Case "11" sMonth = "November" Case "12" sMonth = "December" End Select 'IF Request.Cookies("user")("USER_ID") <> "" Then 'UserID = Request.Cookies("user")("USER_ID") 'End If Dim arrFe, ix Dim arrFe2, ix2 IF (qflag = "depart_date") then Set rsList = funcGetTicketListAdmFlight(objQuery, Request.Cookies("user")("USER_ID"), qflag, pickdate, "OZ221") Set rsList2 = funcGetTicketListAdmFlight(objQuery, Request.Cookies("user")("USER_ID"), qflag, pickdate, "OZ223") ELSE Set rsList = funcGetTicketListAdmFlight(objQuery, Request.Cookies("user")("USER_ID"), qflag, pickdate, "OZ222") Set rsList2 = funcGetTicketListAdmFlight(objQuery, Request.Cookies("user")("USER_ID"), qflag, pickdate, "OZ224") END IF IF ( (rsList.EOF AND rsList.BOF) AND ( rsList2.EOF AND rsList2.BOF ) ) Then %>
Date : <%=pickdate%>
Type : <%IF qflag = "depart_date" Then %>NJ -> JFK<%Else%>JFK -> NJ<%End IF%>
No. Name Flight#
PNR		 Ticket# Location Phone Email
There is no data.
<% Else Dim sURL sURL = ROOT_PATH & "/adm/Monthly_Reservation_pdf_agent_daily.asp?iYear="&iYear&"&iMonth="&iMonth&"&sMonth="&sMonth&"&totDay="&totDay '//response.write sURL '//response.end Dim Pdf, Doc Set Pdf = Server.CreateObject("Persits.Pdf") Set Doc = Pdf.CreateDocument Doc.ImportFromUrl sURL, "landscape=false, LeftMargin=10, RightMargin=10, TopMargin=0, BottomMargin=0 " Filename = Doc.Save( Server.MapPath("/upload/Daily" & iMonth & totDay & iYear&".pdf"), True) Set Pdf = Nothing %>
Date : <%=pickdate%>
Type : <%IF qflag = "depart_date" Then %>NJ -> JFK<%Else%>JFK -> NJ<%End IF%>
Flight : <%IF qflag = "depart_date" Then %>OZ221<%Else%>OZ222<%End IF%>

<% 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 Flight#
PNR		 Ticket# Location Phone Email
<%=rowNumber%> &pickdate=<%=pickdate%>&qflag=<%=qflag%>&UserID=<%=UserID%>&UserType=<%=UserType%>&RecDay_y=<%=RecDay_y%>"><%=rsList("name_last")%>, <%=rsList("name_first")%> <% arrFe = funcGetPassengerName(objQuery, rsList("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 %>
<%=rsList("agent_name")%>
<%=rsList("d_flight")%>
<%=rsList("pnr")%>		<%=rsList("r_flight")%>
<%=rsList("pnr")%>		<%=rsList("ticket_number")%>bgcolor="#FFFF00" title="Same Destination"<%End IF%>><%=rsList("d_air_1")%> >>
<%=rsList("d_air_2")%><%IF Trim(rsList("d_air_1")) = Trim(rsList("d_air_2")) Then%>(Not Adjusted)<%End IF%>		bgcolor="#FFFF00" title="Same Destination"<%End IF%>><%=rsList("r_air_1")%> >>
<%=rsList("r_air_2")%><%IF Trim(rsList("r_air_1")) = Trim(rsList("r_air_2")) Then%>(Not Adjusted)<%End IF%>		<%=rsList("phone")%> <%=rsList("email")%>
&email=<%=Trim(rsList("email"))%>', 'eTicketSend', 730, 700, 1);">



Date : <%=pickdate%>
Type : <%IF qflag = "depart_date" Then %>NJ -> JFK<%Else%>JFK -> NJ<%End IF%>
Flight : <%IF qflag = "depart_date" Then %>OZ223<%Else%>OZ224<%End IF%>

<% rowNumber = 1 Do Until rsList2.EOF %> <%IF qflag = "depart_date" Then%> <%Else%> <%End IF%> <%IF qflag = "depart_date" Then%> <%Else%> <%End IF%> <% rsList2.MoveNext rowNumber = rowNumber + 1 Loop %>
No. Name Flight#
PNR		 Ticket# Location Phone Email
<%=rowNumber%> &pickdate=<%=pickdate%>&qflag=<%=qflag%>&UserID=<%=UserID%>&UserType=<%=UserType%>&RecDay_y=<%=RecDay_y%>"><%=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("agent_name")%>
<%=rsList2("d_flight")%>
<%=rsList2("pnr")%>		<%=rsList2("r_flight")%>
<%=rsList2("pnr")%>		<%=rsList2("ticket_number")%>bgcolor="#FFFF00" title="Same Destination"<%End IF%>><%=rsList2("d_air_1")%> >>
<%=rsList2("d_air_2")%><%IF Trim(rsList2("d_air_1")) = Trim(rsList2("d_air_2")) Then%>(Not Adjusted)<%End IF%>		bgcolor="#FFFF00" title="Same Destination"<%End IF%>><%=rsList2("r_air_1")%> >>
<%=rsList2("r_air_2")%><%IF Trim(rsList2("r_air_1")) = Trim(rsList2("r_air_2")) Then%>(Not Adjusted)<%End IF%>		<%=rsList2("phone")%> <%=rsList2("email")%>
&email=<%=Trim(rsList2("email"))%>', 'eTicketSend', 730, 700, 1);">
<% End IF rsList.close rsList2.close Set rsList = Nothing Set rsList2 = Nothing %>




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