%@ Language=VBScript %> <% if len(Request.Form("submit")) > 0 then dim body body = body & "Name: " & Request.Form("name") & vbcrlf body = body & "Phone: " & Request.Form("phone") & vbcrlf body = body & "Address: " & Request.Form("address") & vbcrlf body = body & "Email: " & Request.Form("email") & vbcrlf body = body & "Prefers to be contacted by: " & Request.Form("contact") & vbcrlf & vbcrlf if len(Request.Form("buy")) > 0 then body = body & "Interested in buying" & vbcrlf end if if len(Request.Form("sell")) > 0 then body = body & "Interested in selling" & vbcrlf end if if len(Request.Form("time")) > 0 then body = body & "Time frame: " & Request.Form("time") & vbcrlf end if body = body & vbcrlf & "Send publications: " & vbcrlf if len(Request.Form("agency")) > 0 then body = body & "Agency Law Brochure" & vbcrlf end if if len(Request.Form("buyeragent")) > 0 then body = body & "Why Your Realtor Should Be Your Buyer's Agent" & vbcrlf end if if len(Request.Form("ncrealestate")) > 0 then body = body & "User Friendly Guide to NC Real Estate Practices" & vbcrlf end if if len(Request.Form("relo")) > 0 then body = body & "Relocation Package" & vbcrlf end if if len(Request.Form("faq")) > 0 then body = body & "Frequently Asked Questions" & vbcrlf end if if len(Request.Form("school")) > 0 then body = body & "School Information" & vbcrlf end if if len(Request.Form("elementary")) > 0 then body = body & "Elementary Schools: " & Request.Form("elementary") & vbcrlf end if if len(Request.Form("middle")) > 0 then body = body & "Elementary Schools: " & Request.Form("middle") & vbcrlf end if if len(Request.Form("high")) > 0 then body = body & "High Schools: " & Request.Form("high") & vbcrlf end if body = body & vbcrlf & "Additional comments: " & Request.Form("comments") & vbcrlf dim objMsg set objMsg = Server.CreateObject("CDONTS.NewMail") objMsg.Value("Reply-To") = "<" & Request.Form("email") & ">" objMsg.From = "susan@sommerhome.com " objMsg.To = "susan@sommerhome.com " 'objMsg.To = "ovenall@netenterprises.com" objMsg.Subject = "Susan Sommer Web Site Contact Form" objMsg.body = body objMsg.send set objMsg = nothing Response.redirect "thanks.htm" end if %>
![]() |
Contact InformationThanks for taking the time to get in touch with me! Please answer the following questions so I will be able to help you with your real estate needs.
If you are buying a home, be sure to fill out my Buyers Profile. Home Page + Featured Home Listings + Triangle Newcomers + Changing Lifestyles + For Buyers + For Sellers + First Time Buyers + Student Housing + Neighborhood Directory + Finance + Things To Do + Education Resources + Who Is Susan? + Contact Information
All contents copyright © 1998-2006 by Susan Sommer. All rights reserved. |