| Credit
card or deposit is required for reservations. We accept Visa,
Mastercard, Discover, and American Express.
<%
Dim GetName,GetAddress,GetCity,GetState,GetZipCode,GetPhoneNumber
Dim GetEmailAddress,GetStartingDate,GetEndingDate,GetPersons,GetRoomType
Dim GetOther,GetContact,formComplete
formComplete = 0
GetName = Replace(request.form("txtName"), "'", "''")
GetAddress = Replace(request.form("txtAddress"), "'", "''")
GetCity = Replace(request.form("txtCity"), "'", "''")
GetState = Replace(request.form("txtState"), "'", "''")
GetZipCode = Replace(request.form("txtZipCode"), "'", "''")
GetPhoneNumber = Replace(request.form("txtPhoneNumber"), "'", "''")
GetEmailAddress = Replace(request.form("txtEmailAddress"), "'", "''")
GetStartingDate = Replace(request.form("txtStartingDate"), "'", "''")
GetEndingDate = Replace(request.form("txtEndingDate"), "'", "''")
GetPersons = Replace(request.form("txtPersons"), "'", "''")
GetRoomType = Replace(request.form("txtPreferredRoomType"), "'", "''")
GetOther = Replace(request.form("txtOther"), "'", "''")
If request.form("txtComplete") = "COMPLETE" then
formComplete = 1
end if
if formComplete = 1 then
Dim Mail
Set Mail=Server.CreateObject("CDONTS.NewMail")
HTML = "The following request was made from the www.boonetrailmotel.com web site:
"
HTML = HTML & "Name: " & GetName & "
"
HTML = HTML & "Address: " & GetAddress & "
"
HTML = HTML & "City: " & GetCity & "
"
HTML = HTML & "State: " & GetState & "
"
HTML = HTML & "Zip Code: " & GetZipCode & "
"
HTML = HTML & "Phone Number: " & GetPhoneNumber & "
"
HTML = HTML & "Email Address: " & GetEmailAddress & "
"
HTML = HTML & "Arrival Date: " & GetStartingDate & "
"
HTML = HTML & "Departure Date: " & GetEndingDate & "
"
HTML = HTML & "Number of Guests: " & GetPersons & "
"
HTML = HTML & "Type of Room Preferred: " & GetRoomType & "
"
HTML = HTML & "Other Information: " & GetOther & "
"
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.To="frontdesk@boonetrailmotel.com"
Mail.From=GetEmailAddress
Mail.Subject="IMPORTANT: An Online Request Has Been Made"
Mail.Body=HTML
Mail.send
set Mail = nothing
HTML = " "
Set Mail=Server.CreateObject("CDONTS.NewMail")
HTML = "Thank you for requesting information about Boone Trail Motel. We will contact you shortly. If you did not make this request, please email us at frontdesk@boonetrailmotel.com.
"
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.To=GetEmailAddress
Mail.From="frontdesk@boonetrailmotel.com"
Mail.Subject="Thank you for your request!"
Mail.Body=HTML
Mail.send
set Mail = nothing
HTML = " "
Response.write "Thank you for your request! We will contact you as soon as possible."
else
Response.write "
|
