<%
Call CreateTopBanner(DEFAULT_TOPBANNER)
%>>
|
Vietnam Anz Travel - Hanoi Head Office Address: 71 Mai Hac De Street, Hai Ba Trung District, Hanoi, Vietnam Tel.: (844) 3974 4405, 3974 4406 Fax: (844) 3974 4407 Hotline: (849) 1232 6176, 0418 6939 Email: sales@vietnamanztravel.com
<%
Call CreateLeftBanner(DEFAULT_LEFTBANNER, "")
%>
<%
if strAction = "Save" then
Response.write " Request Send "
end if
%> |
| |
<%
Call CreateBottomBanner(DEFAULT_BOTTOMBANNER)
%>
<%
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
strName = Request.Form("Name")
strAddress = Request.Form("Address")
strCity = Request.Form("City")
strState = Request.Form("State")
strZip = Request.Form("Zip")
strPhoneNumber = Request.Form("PhoneNumber")
strEmail = Request.Form("Email")
email = Request.Form("Email")
strComments = Request.Form("Comments")
Session("ContactUS")= strEmail
end function
%><%
'////////////////////////////////
function SaveData
On Error Resume Next
dim objEmail
SaveData = false
Call GetInput
'strMessageContent = strMessage
strMessageContent=""
if strName <> "" then
strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Name: " & strtName
end if
if strAddress <> "" then
strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Address: " & strAddress
end if
if strCity <> "" then
strMessageContent = strMessageContent & Chr(13) & Chr(10) & "City: " & strCity
end if
if strZip <> "" then
strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Zip: " & strZip
end if
if strPhoneNumber <> "" then
strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Phone Number: "&strPhoneNumber
end if
if strEmail <> "" then
strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Email: "& strEmail
end if
if strComments <> "" then
strMessageContent = strMessageContent & Chr(13) & Chr(10) & "Comments: "&strComments
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, strName, strCompany, strDiaChi, strDienThoai, "Contact US", email, 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(strName, email, "Sales", "sales@vietnamanztravel.com", email, strSubject, strMessageContent)
' call SendEmail("Vietnam Anz Travel", "admin@vietnamanztravel.com", strName, email, "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
%>