"
emailHtml = emailHtml & "
The following submission was made on the " & date & " at " & time & "
"
emailHtml = emailHtml & "
"
emailHtml = emailHtml & "| Name | " & name & " |
"
emailHtml = emailHtml & "| Contact # | " & contact & " |
"
emailHtml = emailHtml & "| Email Address | " & email & " |
"
emailHtml = emailHtml & "| # of Adults | " & adults & " |
"
emailHtml = emailHtml & "| # of Children | " & children & " |
"
emailHtml = emailHtml & "| From Date | " & fromdate & " |
"
emailHtml = emailHtml & "| To Date | " & todate & " |
"
emailHtml = emailHtml & "| Special Quote Ref # | " & special & " |
"
emailHtml = emailHtml & "
"
Mail.From = email
Mail.FromName = name
Mail.AddAddress adminEmailAddress
Mail.Subject = "Reservation Request"
Mail.Body = emailHtml
Mail.IsHTML = true
success = false
On Error Resume Next
Mail.Send
if Err <> 0 then
errors(4) = Err.Description
errored = true
else
success = true
end if
end if
end if
if success then
thankYouMessage = Replace(thankYouMessage, "%name%", name)
thankYouMessage = Replace(thankYouMessage, "%email%", email)
response.write(thankYouMessage)
else
if errored then
response.write("
")
end if
%>
<% end if %>
