<% Dim strPageTitle strPageTitle = "Confirmation" %> <% 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 'Response.write iYear & "
" 'Response.write iMonth & "
" 'Response.write totDay & "
" 'Response.write sMonth & "
" 'Response.end 'IF SESSION("USERID") <> "" Then 'UserID = SESSION("USERID") 'End If Dim arrFe, ix Set rsList = funcGetTicketList(objQuery, SESSION("USERID"), qflag, pickdate) IF rsList.EOF AND rsList.BOF Then %>
Date : <%=pickdate%>
Type : <%IF qflag = "depart_date" Then %>NJ -> JFK<%Else%>JFK -> NJ<%End IF%>
Agent Name : <%=rsList("agent_name")%>
Agent ID : <%=rsList("user_id")%>

No. Name Flight#
PNR		 Ticket# Location Phone Email
There is no data.
<% Else Dim sURL sURL = ROOT_PATH & "/Monthly_Reservation_pdf_agent_daily.asp?iYear="&iYear&"&iMonth="&iMonth&"&sMonth="&sMonth&"&totDay="&totDay&"&uID="&rsList("user_id") '//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" & rsList("agent_name") & iMonth & totDay & iYear&".pdf"), True) Set Pdf = Nothing %>
Date : <%=pickdate%>
Type : <%IF qflag = "depart_date" Then %>NJ -> JFK<%Else%>JFK -> NJ<%End IF%>
Agent Name : <%=rsList("agent_name")%>
Agent ID : <%=rsList("user_id")%>

.pdf" target="blink">
<% 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("d_flight")%>
<%=rsList("pnr")%>		<%=rsList("r_flight")%>
<%=rsList("pnr")%>		<%=rsList("ticket_number")%><%=rsList("d_air_1")%> >>
<%=rsList("d_air_2")%>		<%=rsList("r_air_1")%> >>
<%=rsList("r_air_2")%>		<%=rsList("phone")%> <%=rsList("email")%>
&email=<%=Trim(rsList("email"))%>', 'eTicketSend', 730, 700, 1);">
<% End IF rsList.close Set rsList = Nothing %>




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