<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "The Retreat at Charleston National Website|WA|sales@retreatcustomhomes.com" MailSubject = "Retreat at Charleston National Information Request" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mailb6.webcontrolcenter.com","25","sales@retreatcustomhomes.com","retreat") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries 'CC Entries 'Character Set 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"1") 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & "The Retreat at Charleston National Request Form
" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "
*First Name: " MailBody = MailBody & cStr(Request.Form("firstname")) MailBody = MailBody & "
*Last Name: " MailBody = MailBody & cStr(Request.Form("lastname")) MailBody = MailBody & "
*Address 1: " MailBody = MailBody & cStr(Request.Form("address1")) MailBody = MailBody & "
 Address 2: " MailBody = MailBody & cStr(Request.Form("address2")) MailBody = MailBody & "
*City: " MailBody = MailBody & cStr(Request.Form("city")) MailBody = MailBody & "
*State: " MailBody = MailBody & cStr(Request.Form("state")) MailBody = MailBody & "
*Zip Code: " MailBody = MailBody & cStr(Request.Form("zipcode")) MailBody = MailBody & "
*Email Address: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "
*Home Phone: " MailBody = MailBody & cStr(Request.Form("homephone")) MailBody = MailBody & "
 Work Phone " MailBody = MailBody & cStr(Request.Form("workphone")) MailBody = MailBody & "
 Please add me to your mailing " & vbCrlf & "" MailBody = MailBody & " list to receive e-mail updates on our community " MailBody = MailBody & cStr(Request.Form("addmeyes")) MailBody = MailBody & " Yes
" MailBody = MailBody & cStr(Request.Form("admeno")) MailBody = MailBody & " No
 How would you prefer to be contacted? " & vbCrlf & "" MailBody = MailBody & " " MailBody = MailBody & cStr(Request.Form("emailyes")) MailBody = MailBody & " E-Mail
" MailBody = MailBody & cStr(Request.Form("teleyes")) MailBody = MailBody & " Telephone
 If you selected telephone, what time of the " & vbCrlf & "" MailBody = MailBody & " day is best? " MailBody = MailBody & cStr(Request.Form("am")) MailBody = MailBody & " AM
" MailBody = MailBody & cStr(Request.Form("pm")) MailBody = MailBody & " PM
 How did you hear about Retreat? " MailBody = MailBody & cStr(Request.Form("textinfo")) MailBody = MailBody & "
 
" & vbCrlf & "" MailBody = MailBody & " " & vbCrlf & "" MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((cStr(Request.Form("submit")) <> "")) then 'WA Universal Email object="AspEmail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("amccubbin1@comcast.net;sales@retreatcustomhomes.com;brpwrco@aol.com;paula@beaconcomm.net") 'Send Mail All Entries if ("emailconfirm.php"<>"") then Response.Redirect("emailconfirm.php") end if end if %> Retreat at Charleston National - Contact

On Special Today!!

NEW LOW PRICE!
1502 Hopeman Lane

293,900!!!

Building 15, Type G1A Floor Plan 1,600 Square Feet

Sweeping Golf Course Views! Two Bedroom Two, and a Half Bath Townhome. Click here for more information 



The Retreat
1600 Hopeman Lane
Mt. Pleasant,
South Carolina 29466
Phone:843.377.3266
Fax: 843.388.0405
sales@retreatcustomhomes.com


Thank you for your interest in the Retreat at Charleston National. Please fill out the form below and we will contact you as soon as possible. Also, if you have questions, please call Sales at 843.377.3266. We look forward to meeting you!

*required
*First Name:
*Last Name:
*Address 1:
Address 2:
*City:
*State:
*Zip Code:
*Email Address:
*Home Phone:
Work Phone
Please add me to your mailing list to receive e-mail updates on our community Yes
No
How would you prefer to be contacted? E-Mail
Telephone
If you selected telephone, what time of the day is best? AM
PM
How did you hear about Retreat?