<% @Language=VBScript %><% ''On Error Resume Next dim strAction, strError, strTitle, strKeyword Dim rstData, strID, strYourTitle, strHoTen, strCoQuan, strDiaChi, strDienThoai, strEmail, strSubject, strMessage, strErrorDescription Dim strAdults, strChildren, strStartDate, strEndDate, strConfirmEmail Dim strSingleRoom, strDoubleRoom, strTwinRoom Dim strtFirst Dim strtLast Dim strCompany Dim strareacode Dim strPhone1 Dim strPhone2 Dim strTvlCount Dim strGroupType Dim strComments Dim strAgentname Dim strBranchNo strSubject = Request.Item("name") if strSubject = "" then strSubject = Request.Item("Subject") end if if strSubject = "" then strSubject = Request.Item("Title") end if strKeyword = "Request Tour Booking" if strSubject <> "" then strKeyword = strKeyword & ", " & strSubject end if strID = Request.Item("ID") strAction = Request.Item("Action") strIDContent = Session("IDContent") select case strAction case "New", "": call NewData case "Change": GetInput case "Save": call SaveData case "Next": call NextData case "Delete": call DeleteData end select %><% Call CreateMainHeader("Messages", "Message Edit", strKeyword, strKeyword, strKeyword, " onload=""PageFocus()""") %><% Call CreateMessageEditForm() %><% Function CreateMessageEditForm() %> <% Call CreateTopBanner(DEFAULT_TOPBANNER) %> <% Call CreateBottomBanner(DEFAULT_BOTTOMBANNER) %>

<% Call CreateLeftBanner(DEFAULT_LEFTBANNER, "") %> Customized Group & Incentive Travel   Whether you're looking for a way to reward your employees for a job well done or you're searching for the best spot to hold a meeting, destination wedding, or reunion, ANZ Travel's Group & Incentive Divisions will make it happen. It's a seamless, cost effective, and reliable way to book and manage all your travel plans. Contact us today and your personal account manager will get you started.   Group Travel: A More Manageable Experience Staying within your travel budget and organizing a large group can be difficult to manage alone. That's where we come in. We've been sending groups like yours on amazing getaways for years and we're ready to get you started. Company incentives, meetings, destination weddings, reunions, special events- whatever it is, we'll work with you to customize the perfect getaway to suit your budget and plans.   Incentive Travel: Reward Your Employees ANZ Travel's incentive program makes it easy for you to reward and motivate your employees. Instill a stronger work ethic, increase profits, and promote friendly competition when you let us book your next incentive-based getaway. Or reward your employees with a gift certificate and let them choose where they want to go. We'll create a tailored program based on your needs, budget, and event objectives. It's easy for you to decide on a measurable award plan for the future- one that will keep your employees happy and motivated for the long run.   The ANZ Travel Advantage We have been serving businesses for more than 10 years, but even before that we set the standard for personalized vacation planning. We do more than just book vacations. We also solicit group fare discounts on air travel, arrange site inspections, secure hotel accommodations, plan ground transportation, and book your event. Our team can even suggest and obtain the perfect keepsake to encapsulate the feeling of your event plus arrange for a hospitality desk, on-site event managers, tour escorts, and sightseeing options at your request. Our trained account managers are attentive, responsible, and accessible. You get personal phone extensions, e-mail adresses and live assistance whenever you need it. First Name: * Last Name: * Company (If Applicable): Phone Number: - - * E-mail Address: * Number of Travelers: Select Between 25-50 Between 51-100 Between 101-200 Between 201-500 501 or more Type of Group (If Applicable): Select Social Incentive Meeting Sports Association Wedding Other Additional information: (hotel name, travel dates etc..) Agent name (optional): Branch number (optional): <% if strAction = "Save" then Response.write " Request Send " end if %>

<% If FOOTERHTML <> "" THEN response.write FOOTERHTML End If %> <% End Function %><% '//////////////////////////////// function NewData() strAdults = 2 strChildren = 0 strSingleRoom = 0 strDoubleRoom = 1 strTwinRoom = 0 end function %><% '//////////////////////////////// function GetInput strtFirst = Request.Form("txtFirst") strtLast = Request.Form("txtLast") strCompany = Request.Form("txtCompany") strareacode = Request.Form("txtareacode") strPhone1 = Request.Form("txtPhone1") strPhone2 = Request.Form("txtPhone2") strEmail = Request.Form("txtEmail") strTvlCount = Request.Form("txtTvlCount") strGroupType = Request.Form("txtGroupType") strComments = Request.Form("txtComments") strAgentname = Request.Form("txtAgentname") strBranchNo = Request.Form("txtBranchNo") Session("CustomerEmail")= strEmail end function %><% '//////////////////////////////// function SaveData On Error Resume Next dim objEmail SaveData = false Call GetInput 'strMessageContent = strMessage strMessageContent="" if strtFirst <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "First Name: " & strtFirst end if if strtLast <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Last Name: " & strtLast end if if strCompany <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Company: " & strCompany end if if strareacode <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Area Code: " & strareacode end if if strPhone1 <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Number Phone: " & strPhone1 end if if strPhone2 <> "" then strMessageContent = strMessageContent & strPhone2 end if if strEmail <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Email: " & strEmail end if if strTvlCount <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Number of Travelers: " & strTvlCount end if if strGroupType <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Type of Group: " & strGroupType end if if strComments <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Additional information: " & strComments end if if strAgentname <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Agent name: " & strAgentname end if if strBranchNo <> "" then strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Branch number: " & strBranchNo end if strCustomerContent = "Dear " & strYourTitle & " " & strHoTen & ", " & Chr(13) & Chr(10) strCustomerContent = strCustomerContent & "Greeting from Vietnam ANZ Travel!" & Chr(13) & Chr(10) strCustomerContent = strCustomerContent & "We have successfully received your mail. And your inquiry is being processed by the relevent department now." & Chr(13) & Chr(10) strCustomerContent = strCustomerContent & "Here is information you requested: " & Chr(13) & Chr(10) strCustomerContent = strCustomerContent & "---------------------------------------------------------" & Chr(13) & Chr(10) strCustomerContent = strCustomerContent & strMessageContent & Chr(13) & Chr(10) strCustomerContent = strCustomerContent & "---------------------------------------------------------" & Chr(13) & Chr(10) strCustomerContent = strCustomerContent & "Thank you for your strong support to our services." & Chr(13) & Chr(10) strCustomerContent = strCustomerContent & "Vietnam ANZ Travel Team." & Chr(13) & Chr(10) strTotalError = "" Session("IDNhanVien") = "1" Call ChangeServerData("Messages", _ Array("Website", "HoTen", "CoQuan", "DiaChi", "DienThoai", "TieuDe", "Email", "Message", "LastUpdated", "ErrorDescription"), _ Array(WEBSITE, strtFirst & strtLast, strCompany, strDiaChi, strDienThoai, "Travel Group", strEmail, strMessageContent, Replace(Now(), ".", "/"), strTotalError), strID) Session("IDNhanVien") = "" strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Email: " & strEmail strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Website: " & WEBSITE strMessageContent = strMessageContent & Chr(13) & Chr(10) & "IP: " & Request.ServerVariables("REMOTE_ADDR") call SendEmail(strHoten, strEmail, "Sales", "sales@vietnamanztravel.com", strEmail, strSubject, strMessageContent) ' call SendEmail("Vietnam Anz Travel", "admin@vietnamanztravel.com", strHoten, strEmail, "sales@vietnamanztravel.com", "Your request: " & strSubject, strCustomerContent) if Err<> 0 then strTotalError = TranslateErrorMessage(Err) end if if strTotalError <> "" then strError = TranslateErrorMessage(strTotalError) exit function end if SaveData = false ' Response.Redirect "message-admin.asp" end function %><% '//////////////////////////////// function NextData call SaveData Response.Redirect "message-admin.asp" end function %><% '//////////////////////////////// function DeleteData Call GetInput() if Err<> 0 then strError = TranslateErrorMessage(Err) exit function end if Response.Redirect "message-admin.asp" end function %><% call CloseDb() %><% '//////////////////////////////// Function SendEmail(strFromName, strFromEmail, strToName, strToEmail, strReplyTo, strSubject, strBody) on error resume next set cdoMessage = Server.CreateObject("CDO.Message") set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.vietnamanztravel.com" cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "webmail@vietnamanztravel.com" cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Anz712008" cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 cdoConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 cdoConfig.Fields.Update set cdoMessage.Configuration = cdoConfig cdoMessage.BodyPart.Charset = "utf-8" cdoMessage.From = strFromName & "" cdoMessage.To = strToName & "<" & strToEmail & ">" cdoMessage.ReplyTo = strReplyTo cdoMessage.Subject = strSubject cdoMessage.TextBody = strBody ' Response.Write err.Description cdoMessage.Send set cdoConfig = Nothing set cdoMessage = Nothing ' Response.Write err.Description end function %>