<% Dim email, sendingFlag email = Trim(Request("email")) sendingFlag = Trim(Request("sendingFlag")) %>

Change Email Address

<% Dim objQuery Set objQuery = GetDBConn() Dim confirmation_id confirmation_id = Trim(Request("confirmation_id")) Dim Mailer Dim strSubject Dim strHead, strBody, strFooter strSubject = "SHUTTLE BUS RESERVATION for " & UCase(name_first) & " " & UCase(name_last) strHead = "Dear "&UCase(name_first) & " " & UCase(name_last) & ",

" strHead = strHead & "Thank you for your reservation.
" strHead = strHead & "Your request has been received.

" strHead = strHead & "Confirmation# : "&confirmation_id&"
" strHead = strHead & "PRINT YOUR RECEIPT http://www.walkerhillshuttle.com/shuttle_ticket.asp?confirmation_id="&confirmation_id&"

" Dim rsConfirm, ticketN, tn Set rsConfirm = funcGetTicketConfirmation(objQuery, confirmation_id) ticketN = CDbl(adult_cnt) + CDbl(child_cnt) '//Response.write ticketN & "


" IF rsConfirm.EOF = False AND rsConfirm.BOF = False Then IF Trim(rsConfirm("return_date")) <> "" Then strBody = "" strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " SHUTTLE BUS RECEIPT (NJ -> JFK) " strBody = strBody & " Issued Date: "&rsConfirm("insert_date")&" " strBody = strBody & " Passenger Name: "&rsConfirm("name_last")&", "&rsConfirm("name_first")&" (Primary#1) " strBody = strBody & " Dep. Date: "&rsConfirm("depart_date")&" " strBody = strBody & " PNR #: "&rsConfirm("pnr")&" " strBody = strBody & " Ticket #: "&rsConfirm("ticket_number")&" " strBody = strBody & " Flight #: "&rsConfirm("d_flight")&" " strBody = strBody & " Agency: "&rsConfirm("agent_name")&" " strBody = strBody & " " strBody = strBody & " " strBody = strBody & rsConfirm("d_air_1")&" >>> "&rsConfirm("d_air_2")&" " strBody = strBody & " If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: "& funcBoardingTime(objQuery, "DEPART", Trim(rsConfirm("d_air_1")))&") " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " SHUTTLE BUS RECEIPT (JFK -> NJ) " strBody = strBody & " Issued Date: "&rsConfirm("insert_date")&" " strBody = strBody & " Passenger Name: "&rsConfirm("name_last")&", "&rsConfirm("name_first")&" (Primary#1) " strBody = strBody & " Arr. Date: "&rsConfirm("return_date")&" " strBody = strBody & " PNR #: "&rsConfirm("pnr")&" " strBody = strBody & " Ticket #: "&rsConfirm("ticket_number")&" " strBody = strBody & " Flight #: "&rsConfirm("r_flight")&" " strBody = strBody & " Agency: "&rsConfirm("agent_name")&" " strBody = strBody & " " strBody = strBody & " " strBody = strBody & rsConfirm("r_air_1")&" >>> "&rsConfirm("r_air_2")&" " strBody = strBody & " If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: "&funcBoardingTime(objQuery, "RETURN", Trim(rsConfirm("r_air_1")))&") " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & "

" Else strBody = "" strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " SHUTTLE BUS RECEIPT (NJ -> JFK) " strBody = strBody & " Issued Date: "&rsConfirm("insert_date")&" " strBody = strBody & " Passenger Name: "&rsConfirm("name_last")&", "&rsConfirm("name_first")&" (Primary#1) " strBody = strBody & " Dep. Date: "&rsConfirm("depart_date")&" " strBody = strBody & " PNR #: "&rsConfirm("pnr")&" " strBody = strBody & " Ticket #: "&rsConfirm("ticket_number")&" " strBody = strBody & " Flight #: "&rsConfirm("d_flight")&" " strBody = strBody & " Agency: "&rsConfirm("agent_name")&" " strBody = strBody & " " strBody = strBody & " " strBody = strBody & rsConfirm("d_air_1")&" >>> "&rsConfirm("d_air_2")&" " strBody = strBody & " If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: "& funcBoardingTime(objQuery, "DEPART", Trim(rsConfirm("d_air_1")))&") " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & "

" End If Dim pNum IF CDbl(adult_cnt) > 1 Then Dim arrAdult arrAdult = funcGetPassenger(objQuery, confirmation_id, "A") IF IsArray(arrAdult) Then pNum = 1 IF Trim(rsConfirm("return_date")) <> "" Then For tn = 0 To UBound(arrAdult, 2) pNum = pNum + 1 strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " SHUTTLE BUS RECEIPT (NJ -> JFK) " strBody = strBody & " Issued Date: "&rsConfirm("insert_date")&" " strBody = strBody & " Passenger Name: "&Trim(arrAdult(2, tn))&", "&Trim(arrAdult(1, tn))&" (Adult#"&pNum&")"&" " strBody = strBody & " Dep. Date: "&rsConfirm("depart_date")&" " strBody = strBody & " PNR #: "&rsConfirm("pnr")&" " strBody = strBody & " Ticket #: "&rsConfirm("ticket_number")&" " strBody = strBody & " Flight #: "&rsConfirm("d_flight")&" " strBody = strBody & " Agency: "&rsConfirm("agent_name")&" " strBody = strBody & " " strBody = strBody & " " strBody = strBody & rsConfirm("d_air_1")&" >>> "&rsConfirm("d_air_2")&" " strBody = strBody & " If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: "& funcBoardingTime(objQuery, "DEPART", Trim(rsConfirm("d_air_1")))&") " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " SHUTTLE BUS RECEIPT (JFK -> NJ) " strBody = strBody & " Issued Date: "&rsConfirm("insert_date")&" " strBody = strBody & " Passenger Name: "&Trim(arrAdult(2, tn))&", "&Trim(arrAdult(1, tn))&" (Adult#"&pNum&")"&" " strBody = strBody & " Arr. Date: "&rsConfirm("return_date")&" " strBody = strBody & " PNR #: "&rsConfirm("pnr")&" " strBody = strBody & " Ticket #: "&rsConfirm("ticket_number")&" " strBody = strBody & " Flight #: "&rsConfirm("r_flight")&" " strBody = strBody & " Agency: "&rsConfirm("agent_name")&" " strBody = strBody & " " strBody = strBody & " " strBody = strBody & rsConfirm("r_air_1")&" >>> "&rsConfirm("r_air_2")&" " strBody = strBody & " If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: "&funcBoardingTime(objQuery, "RETURN", Trim(rsConfirm("r_air_1")))&") " strBody = strBody & " " strBody = strBody & "

" Next strBody = strBody & "

" Else For tn = 0 To UBound(arrAdult, 2) pNum = pNum + 1 strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " SHUTTLE BUS RECEIPT (NJ -> JFK) " strBody = strBody & " Issued Date: "&rsConfirm("insert_date")&" " strBody = strBody & " Passenger Name: "&Trim(arrAdult(2, tn))&", "&Trim(arrAdult(1, tn))&" (Adult#"&pNum&")"&" " strBody = strBody & " Dep. Date: "&rsConfirm("depart_date")&" " strBody = strBody & " PNR #: "&rsConfirm("pnr")&" " strBody = strBody & " Ticket #: "&rsConfirm("ticket_number")&" " strBody = strBody & " Flight #: "&rsConfirm("d_flight")&" " strBody = strBody & " Agency: "&rsConfirm("agent_name")&" " strBody = strBody & " " strBody = strBody & " " strBody = strBody & rsConfirm("d_air_1")&" >>> "&rsConfirm("d_air_2")&" " strBody = strBody & " If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: "& funcBoardingTime(objQuery, "DEPART", Trim(rsConfirm("d_air_1")))&") " strBody = strBody & " " strBody = strBody & "

" Next strBody = strBody & "

" End If End IF End If IF CDbl(child_cnt) > 0 Then Dim arrChild arrChild = funcGetPassenger(objQuery, confirmation_id, "C") IF IsArray(arrChild) Then pNum = 0 IF Trim(rsConfirm("return_date")) <> "" Then For tn = 0 To UBound(arrChild, 2) pNum = pNum + 1 strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " SHUTTLE BUS RECEIPT (NJ -> JFK) " strBody = strBody & " Issued Date: "&rsConfirm("insert_date")&" " strBody = strBody & " Passenger Name: "&Trim(arrChild(2, tn))&", "&Trim(arrChild(1, tn))&" (Child#"&pNum&")"&" " strBody = strBody & " Dep. Date: "&rsConfirm("depart_date")&" " strBody = strBody & " PNR #: "&rsConfirm("pnr")&" " strBody = strBody & " Ticket #: "&rsConfirm("ticket_number")&" " strBody = strBody & " Flight #: "&rsConfirm("d_flight")&" " strBody = strBody & " Agency: "&rsConfirm("agent_name")&" " strBody = strBody & " " strBody = strBody & " " strBody = strBody & rsConfirm("d_air_1")&" >>> "&rsConfirm("d_air_2")&" " strBody = strBody & " If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: "& funcBoardingTime(objQuery, "DEPART", Trim(rsConfirm("d_air_1")))&") " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " SHUTTLE BUS RECEIPT (JFK -> NJ) " strBody = strBody & " Issued Date: "&rsConfirm("insert_date")&" " strBody = strBody & " Passenger Name: "&Trim(arrChild(2, tn))&", "&Trim(arrChild(1, tn))&" (Child#"&pNum&")"&" " strBody = strBody & " Arr. Date: "&rsConfirm("return_date")&" " strBody = strBody & " PNR #: "&rsConfirm("pnr")&" " strBody = strBody & " Ticket #: "&rsConfirm("ticket_number")&" " strBody = strBody & " Flight #: "&rsConfirm("r_flight")&" " strBody = strBody & " Agency: "&rsConfirm("agent_name")&" " strBody = strBody & " " strBody = strBody & " " strBody = strBody & rsConfirm("r_air_1")&" >>> "&rsConfirm("r_air_2")&" " strBody = strBody & " If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: "&funcBoardingTime(objQuery, "RETURN", Trim(rsConfirm("r_air_1")))&") " strBody = strBody & " " strBody = strBody & "

" Next strBody = strBody & "

" Else For tn = 0 To UBound(arrChild, 2) pNum = pNum + 1 strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & " " strBody = strBody & "

" strBody = strBody & " SHUTTLE BUS RECEIPT (NJ -> JFK) " strBody = strBody & " Issued Date: "&rsConfirm("insert_date")&" " strBody = strBody & " Passenger Name: "&Trim(arrChild(2, tn))&", "&Trim(arrChild(1, tn))&" (Child#"&pNum&")"&" " strBody = strBody & " Dep. Date: "&rsConfirm("depart_date")&" " strBody = strBody & " PNR #: "&rsConfirm("pnr")&" " strBody = strBody & " Ticket #: "&rsConfirm("ticket_number")&" " strBody = strBody & " Flight #: "&rsConfirm("d_flight")&" " strBody = strBody & " Agency: "&rsConfirm("agent_name")&" " strBody = strBody & " " strBody = strBody & " " strBody = strBody & rsConfirm("d_air_1")&" >>> "&rsConfirm("d_air_2")&" " strBody = strBody & " If you have any questions, please contact to your agency. (North Bergen Route) - Operational hours only (Shuttle Boarding Time: "& funcBoardingTime(objQuery, "DEPART", Trim(rsConfirm("d_air_1")))&") " strBody = strBody & " " strBody = strBody & "

" Next strBody = strBody & "

" End If End IF End IF End If Response.write strBody 'Response.end rsConfirm.close Set rsConfirm = Nothing strFooter = "Thank you for using our shuttle service. Welcome aboard..
" strFooter = strFooter & "WWW.WALKERHILLSHUTTLE.COM
" strFooter = strFooter & "Email: shuttle@walkerhillshuttle.com " Dim strHTML strHTML = strHead & strBody & strFooter IF sendingFlag = "SEND" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "WALKERHILL SHUTTLE" Mailer.FromAddress = "shuttle@walkerhillshuttle.com" Mailer.RemoteHost = "mail.walkerhillshuttle.com" Mailer.ContentType = "text/html" Mailer.AddRecipient Trim(email),Trim(email) Mailer.Subject = strSubject Mailer.BodyText = strHTML Mailer.SendMail Set Mailer = Nothing MsgViewClose("Confirmation email has been sent !") End IF Call CloseDBConn(objQuery) %>