<% 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 orderBy orderBy = Trim(Request("order_by")) If Trim(Request("d_air_1")) <> "" Then orderBy = "" End If If Trim(Request("r_air_2")) <> "" Then orderBy = "" End IF If orderBy <> "" Then orderBy = "depart_date" End IF Dim sURL sURL = ROOT_PATH & "/Monthly_Reservation_pdf.asp?sFlag="&sFlag&"&iYear="&iYear&"&iMonth="&iMonth&"&sMonth="&sMonth&"&totDay="&totDay&"&user_type="&Trim(Request("user_type"))&"&agent_name="&Trim(Request("agent_name"))&"&d_flight="&Trim(Request("d_flight"))&"&d_air_1="&Trim(Request("d_air_1"))&"&r_flight="&Trim(Request("r_flight"))&"&r_air_2="&Trim(Request("r_air_2"))&"&name_last="&Trim(Request("name_last"))&"&order_by="&orderBy '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/MR_"&iYear&sMonth&".pdf"), True) Set Pdf = Nothing %>
<%=sMonth%>, <%=iYear%> Quick Link :     NJ -> JFK      JFK -> NJ

User Type ALLchecked<%End IF%>>    Agentchecked<%End IF%>>    Individualchecked<%End IF%>> Agent Name " style="width:100px;" maxlength="30">
NJ -> JFK Flight#
JFK -> NJ Flight#
Last Name " style="width:100px;" maxlength="30"> Order By

<% IF sFlag = "Y" Then Set rsList1 = funcGetMonthlyTicketListAdm_PrintSearch(objQuery, Request.Cookies("user")("USER_ID"), 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")), orderBy) Else Set rsList1 = funcGetMonthlyTicketListAdm_Print(objQuery, Request.Cookies("user")("USER_ID"), cMonth, totDay, iYear, "depart_date") End IF %>
NJ -> JFK
<% IF rsList1.EOF AND rsList1.BOF Then noData = "N" Response.write "(There is no data.)


" Else %> <% rowNumber = 1 Do Until rsList1.EOF %> <% rsList1.MoveNext rowNumber = rowNumber + 1 Loop %>
No. Name Flight#
PNR		 Ticket# Depart Date Location Phone Email
<%=rowNumber%> <%=rsList1("name_last")%>, <%=rsList1("name_first")%>
<%=rsList1("agent_name")%>
.pdf" target="blink">
 <%=rsList1("d_flight")%>
<%=rsList1("pnr")%>		 <%=rsList1("ticket_number")%> <%=rsList1("depart_date")%> <%=rsList1("d_air_1")%> ->
<%=rsList1("d_air_2")%>		 <%=rsList1("phone")%> <%=rsList1("email")%>
&email=<%=Trim(rsList1("email"))%>', 'eTicketSend', 730, 700, 1);">


<% End IF rsList1.close Set rsList1 = Nothing IF sFlag = "Y" Then Set rsList2 = funcGetMonthlyTicketListAdm_PrintSearch(objQuery, Request.Cookies("user")("USER_ID"), 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")), orderBy) Else Set rsList2 = funcGetMonthlyTicketListAdm_Print(objQuery, Request.Cookies("user")("USER_ID"), cMonth, totDay, iYear, "return_date") End If %>
JFK -> NJ
<% IF rsList2.EOF AND rsList2.BOF Then noData2 = "N" Response.write "(There is no data.)


" Else %> <% rowNumber = 1 Do Until rsList2.EOF %> <% rsList2.MoveNext rowNumber = rowNumber + 1 Loop %>
No. Name Flight#
PNR		 Ticket# Return Date Location Phone Email
<%=rowNumber%> <%=rsList2("name_last")%>, <%=rsList2("name_first")%>
<%=rsList2("agent_name")%>
.pdf" target="blink">
 <%=rsList2("r_flight")%>
<%=rsList2("pnr")%>		 <%=rsList2("ticket_number")%> <%=rsList2("return_date")%> <%=rsList2("r_air_1")%> ->
<%=rsList2("r_air_2")%>		 <%=rsList2("phone")%> <%=rsList2("email")%>
&email=<%=Trim(rsList2("email"))%>', 'eTicketSend', 730, 700, 1);">
<% End IF rsList2.close Set rsList2 = Nothing IF noData = "N" And noData2 = "N" Then %> &sMonth=<%=Trim(Request("osMonth"))%>&iYear=<%=Trim(Request("oiYear"))%>&totDay=<%=Trim(Request("ototDay"))%>"> <== Back to Previous Page <% End IF %> <% Set objQuery = Nothing %>