<% HDWCaptchaValidation %>
<%
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 = "webmaster@harborsideinternational.com"
MailSubject = "Inquiry from the web for the Academy"
'Global Variables
gAddBCC = ""
gAddCC = ""
gAddRecipient = ""
gBodyFormat = ""
gSetImportance = ""
set WA_MailObject = WAUE_Definition()
if (RecipientEmail <> "") then
set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail)
MailTo = gAddRecipient
gAddRecipient = ""
else
'To Entries
end if
'Attachment Entries
'BCC Entries
set WA_MailObject = WAUE_AddBCC(WA_MailObject,"info@developwebsites.com")
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 & " George, this is a new email inquiry from the Website:
Name: "
MailBody = MailBody & Request("name")
MailBody = MailBody & "
Phone: "
MailBody = MailBody & Request("phone")
MailBody = MailBody & "
Email: "
MailBody = MailBody & Request("email")
MailBody = MailBody & "
Best time: "
MailBody = MailBody & Request("best_time")
MailBody = MailBody & "
Concerning: "
MailBody = MailBody & Request("concerning")
MailBody = MailBody & "
Question: "
MailBody = MailBody & Request("question")
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="CDONTS NewMail"
'Send Loop Once Per Entry
WA_Universal_Email_1_SendMail("gvwgolf@harborsideinternational.com")
'Send Mail All Entries
if ("success.htm"<>"") then
Response.Redirect("success.htm")
end if
end if
%>
Harborside International Golf Center
