%@LANGUAGE="VBSCRIPT"%> <% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.aftonvillage.com" Mail.From = Request("email") Mail.AddAddress "sales@aftonvillage.com" Mail.Subject = "Afton Village Website Contact Form" Mail.Body = Chr(13) & Chr(10) &_ "Name: " & cStr(Request("realname")) & Chr(13) & Chr(10) &_ "Email: " & cStr(Request("email")) & Chr(13) & Chr(10) &_ "Phone: " & cStr(Request("Phone")) & Chr(13) & Chr(10) &_ "Address: " & cStr(Request("Address")) & Chr(13) & Chr(10) &_ "City: " & cStr(Request("City")) & Chr(13) & Chr(10) &_ "State: " & cStr(Request("State")) & Chr(13) & Chr(10) &_ "Zip: " & cStr(Request("Zip")) & Chr(13) & Chr(10) &_ "Realtor: " & cStr(Request("Realtor")) & Chr(13) & Chr(10) &_ "Home Type: " & cStr(Request("HomeType")) & Chr(13) & Chr(10) &_ "Bedrooms: " & cStr(Request("Bedrooms")) & Chr(13) & Chr(10) &_ "Move Date: " & cStr(Request("MoveDate")) & Chr(13) & Chr(10) &_ "Home Type: " & cStr(Request("HomeType2")) & Chr(13) & Chr(10) &_ "Master On Main: " & cStr(Request("Master")) & Chr(13) & Chr(10) &_ "Square Footage: " & cStr(Request("SquareFootage")) & Chr(13) & Chr(10) &_ "Price Range: " & cStr(Request("PriceRange")) & Chr(13) & Chr(10) &_ "Currently Own: " & cStr(Request("Own")) & Chr(13) & Chr(10) &_ "Source: " & cStr(Request("Source")) & Chr(13) & Chr(10) &_ "Comments: " & cStr(Request("Comments")) If (cStr(Request("Submit")) <> "") Then Mail.Send Response.Redirect "thank_you.html" End If %>
|
|||