<% 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 = "info@centerpointeprop.com" MailSubject = "Contact From Center Pointe Properties Website" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("mail.centerpointeprop.com","25","","info@centerpointeprop.com","center1") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "The following information was filled out on your contact form:

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Name: " MailBody = MailBody & cStr(Request.Form("name")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Company: " MailBody = MailBody & cStr(Request.Form("company")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "E-mail: " MailBody = MailBody & cStr(Request.Form("email")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Web Site: " MailBody = MailBody & cStr(Request.Form("website")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Description: " MailBody = MailBody & cStr(Request.Form("description")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Reciprocal Link: " MailBody = MailBody & cStr(Request.Form("reciprocal_link")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Logo Reciprocal: " MailBody = MailBody & cStr(Request.Form("logo_reciprocal")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "

" MailBody = MailBody & "Comments: " MailBody = MailBody & cStr(Request.Form("comments")) MailBody = MailBody & "

" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "

" MailBody = MailBody & "Selections: " MailBody = MailBody & cStr(Request.Form("Trade Logos")) MailBody = MailBody & ", " & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & cStr(Request.Form("Link Partners")) 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 ((Request.ServerVariables("Request_Method") = "POST")) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("info@centerpointeprop.com") 'Send Mail All Entries if ("thankyou_links.html"<>"") then Response.Redirect("thankyou_links.html") end if end if %> Center Pointe Properties | Home Builders | Real Estate | Greenville, South Carolina

Contact Form

* All Fields Required Except

Name:

Company:

Email:

Web Site:

Description:

Reciprocal Link:

* Logo Reciprocal:

Check All That Apply)

 

Comments:
Trade Logos
Link Partners