<%
if request("formSubmitted")="yes" then
Set Mail = Server.CreateObject("Persits.MailSender")
'put your server name here
Mail.Host = "mail.allamericanatm.com"
'put the TO address here
Mail.AddAddress "sales@allamericanatm.com"
'Put the SUBJECT of your message here
Mail.Subject = "All American - Customer Service Request"
Mail.FromName = request("Name")
Mail.From = request("email")
MailBody = vbcrlf & vbcrlf
MailBody = MailBody & "Reservation Request"
MailBody = MailBody & vbcrlf & vbcrlf
MailBody = MailBody & "Property: " & request("PropertyName") & vbcrlf
MailBody = MailBody & "Date: " & MonthName(Month(Now())) & "." & Day(Now()) & ", " & Year(Now()) & vbcrlf
MailBody = MailBody & vbcrlf
MailBody = MailBody & "Name: " & request("Name") & vbcrlf
if trim(request("Address"))<>"" then
MailBody = MailBody & "Address: " & request("Address") & vbcrlf
end if
if trim(request("City"))<>"" then
MailBody = MailBody & "City: " & request("City") & vbcrlf
end if
if request("USState")<>"" then
MailBody = MailBody & "State: " & request("USState") & vbcrlf
end if
if trim(request("OtherState"))<>"" then
MailBody = MailBody & "State: " & request("OtherState") & vbcrlf
end if
if trim(request("Country"))<>"" then
MailBody = MailBody & "Country: " & request("Country") & vbcrlf
end if
if trim(request("Zip"))<>"" then
MailBody = MailBody & "Zip: " & request("Zip") & vbcrlf
end if
if trim(request("homePhone"))<>"" then
MailBody = MailBody & "Home Phone: " & request("homePhone") & vbcrlf
end if
MailBody = MailBody & "Email: " & request("email") & vbcrlf
if trim(request("numInParty"))<>"" then
MailBody = MailBody & "Number in Party: " & request("numInParty") & vbcrlf
end if
if trim(request("ArrivalMonth"))<>"" AND IsNumeric(request("ArrivalMonth")) then
MailBody = MailBody & "Arrival Date: " & MonthName(request("ArrivalMonth"),1) & "." & request("ArrivalDay") & ", " & request("ArrivalYear") & vbcrlf
end if
if trim(request("DepartMonth"))<>"" AND IsNumeric(request("DepartMonth")) then
MailBody = MailBody & "Departure Date: " & MonthName(request("DepartMonth"),1) & "." & request("DepartDay") & ", " & request("DepartYear") & vbcrlf
end if
if trim(request("comments"))<>"" then
MailBody = MailBody & "Additional Comments: " & vbcrlf & vbcrlf
MailBody = MailBody & request("comments")
end if
Mail.Body = MailBody
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
response.redirect "confirmtemp.asp"
response.end
end if
%>
All American Customer Service Request
Still More Questions...We've Got Answers
Just fill our the form below and one of our professional service reps wil answer your sales or service inquiry quickly and accurately. Usually, most all inquiries are answered within 24 hours. That's just one more way we say...we hear you!
