|
<%
if request.form("txtName") <> "" then
sendEmail
else
showForm
end if
%>
<% sub ShowForm %>
<%end sub%>
<%
sub SendEmail
dim objMsg
dim strFromName, strFromEmail
dim strADate, strDDate
dim strADD,strAMM,strAYYYY,strDDD,strDMM,strDYYYY
dim strRoomType, strRooms, strRemarks
dim strBedType1, strBedType2, strBedType3
on error resume next
strFromName = request.Form("SelName") & request.form("txtName")
strFromEmail = request.form("txtEmail")
strADD = Request.Form("SelADay")
strAMM = Request.Form("SelAMonth")
strAYYYY = Request.Form("SelAYear")
strDDD = Request.Form("SelDDay")
strDMM = Request.Form("SelDMonth")
strDYYYY = Request.Form("SelDYear")
strADate = strAMM & "/" & strADD & "/" & strAYYYY
strDDate = strDMM & "/" & strDDD & "/" & strDYYYY
strRoomType = Request.Form("SelRoomType")
strRooms = Request.Form("txtRooms")
strRemarks = Request.Form("txtRemarks")
if Request.Form("ChkSingle")= "on" then strBedType1 ="Single Beds x 2"
if Request.Form("chkDouble")= "on" then strBedType2 ="Double Bed x 1"
if Request.Form("ChkExtra")= "on" then strBedType3 ="Extra Bed"
If strADate = "//" Then strADate = ""
If strDDate = "//" Then strDDate = Date
strMessage=" | User Reservation ... | | | | | Name | : | "& strFromName &" | | Your Email | : | "& strFromEmail&" | | Arrival Date | : | "& strADate &" | | Depature Date | : | "& strDDate &" | Room Type | : | "& strRoomType &"-"& strRooms &" | | Bed Type | : | "& strBedType1 &" "& strBedType2 &" "& strBedType3 &" | | Additional Resuirements | : | "& strRemarks &" |
"
if strFromName <> "" and strFromEmail <> "" then
set objMsg = server.createObject("jmail.Message")
objMsg.logging = true
objMsg.from = strFromEmail
objMsg.fromname = strFromName
objMsg.AddRecipient "resvmkt-am@myanmar.com.mm"
objMsg.AddRecipient "amazingsales@myanmar.com.mm"
objMsg.subject = "User Reservation.."
objMsg.htmlbody = strMessage
objMsg.send "172.1.1.100" '/**** To Change Mail Server Address ******
set objMsg = nothing
response.write "Thank you. Your message has been sent successfully."
else
response.write "Fail Email Sending..."
' response.redirect "Test.asp?msg=" & server.htmlencode("Fail Email sending...")
end if
end sub
%>
|
