<% Dim objQuery Set objQuery = GetDBConn() %> WALKERHILL SHUTTLE RECEIPT :: DAILY RESERVATIONS VIEWER <% Dim pickdate pickdate = Trim(Request("pickdate")) Dim iYear, iMonth, cMonth, totDay Dim arrDate arrDate = Split(pickdate, "/") cMonth = Trim(arrDate(0)) totDay = Trim(arrDate(1)) iYear = Trim(arrDate(2)) Dim uUserw IF Request.Cookies("user")("USER_ID") <> "" Then uUserw = Request.Cookies("user")("USER_ID") ElseIF SESSION("USERID") <> "" Then uUserw = SESSION("USERID") End IF Set rsList1 = funcGetDailyTicketList(objQuery, uUserw, cMonth, totDay, iYear, "depart_date") IF rsList1.EOF AND rsList1.BOF Then Response.write "There is no data." Else %>
<%=pickdate%>
Agent Name : <%=rsList1("agent_name")%>
Agent ID : <%=rsList1("user_id")%>


NJ -> JFK

<% rowNumber = 1 Do Until rsList1.EOF %> <% rsList1.MoveNext rowNumber = rowNumber + 1 Loop %>
No. Name PNR Flight# Ticket# Depart Date Location Phone Email
<%=rowNumber%> <%=rsList1("name_last")%>, <%=rsList1("name_first")%>
.pdf" target="blink">
 <%=rsList1("pnr")%> <%=rsList1("d_flight")%> <%=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 Set rsList2 = funcGetDailyTicketList(objQuery, uUserw, cMonth, totDay, iYear, "return_date") IF rsList2.EOF AND rsList2.BOF Then Response.write "There is no data." Else %>
JFK -> NJ

<% rowNumber = 1 Do Until rsList2.EOF %> <% rsList2.MoveNext rowNumber = rowNumber + 1 Loop %>
No. Name PNR Flight# Ticket# Return Date Location Phone Email
<%=rowNumber%> <%=rsList2("name_last")%>, <%=rsList2("name_first")%>
.pdf" target="blink">
 <%=rsList2("pnr")%> <%=rsList2("r_flight")%> <%=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 %> <% Set objQuery = Nothing %>