<%
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = "Free Repost Request"
Mail.FromAddress= Request.Form("email")
Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail
Mail.AddRecipient "Free Reports Request", "tony@eastsidehomes.com"
Mail.Subject = "Free Reports Request"
Mail.BodyText = "EMAIL"
Mail.BodyText = Request.Form("email")
Mail.BodyText = " "
Mail.BodyText = "NAME"
Mail.BodyText = Request.Form("name")
Mail.BodyText = " "
Mail.BodyText = "ADDRESS"
Mail.BodyText = Request.Form("address")
Mail.BodyText = " "
Mail.BodyText = "CITY"
Mail.BodyText = Request.Form("city")
Mail.BodyText = " "
Mail.BodyText = "STATE"
Mail.BodyText = Request.Form("state")
Mail.BodyText = " "
Mail.BodyText = "ZIP"
Mail.BodyText = Request.Form("zip")
Mail.BodyText = " "
Mail.BodyText = "PHONE"
Mail.BodyText = Request.Form("phone")
Mail.BodyText = " "
Mail.BodyText = "SPECIAL REPORT"
Mail.BodyText = Request.Form("special_report")
Mail.BodyText = " "
Mail.BodyText = "ITEM OF VALUE"
Mail.BodyText = Request.Form("item_of_value")
Mail.BodyText = " "
Mail.BodyText = "COMMENTS"
Mail.BodyText = Request.Form("comments")
Mail.BodyText = " "
Mail.BodyText = "INCLUDE IN CAP?"
Mail.BodyText = Request.Form("cap")
if Mail.SendMail then
Response.Write "Your request has been sent..."
else
Response.Write "Mail send failure. Error was " & Mail.Response
end if
%>
FREE Special Reports & Items Of Value
Please fill out this form to request one of
our FREE Special Reports or Items of Value
If you do not have a relationship with
another Realtor... You may also request to be included in
our Client Appreciation Program and receive our FREE Items of
Value on a monthly basis
Provided courtesy of:
Tony & Wendi Meier English Hill's Resident Real Estate Team
Windermere/SCA-Redmond
425-466-1000