<% 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 = "" & cStr(Request.Form("email")) & "" MailSubject = "Comments" 'Global Variables gBodyFormat = "" set WA_MailObject = WAUE_Definition("mail.wcgnet.net","","") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries end if 'Attachment Entries 'BCC Entries 'CC Entries 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") 'Start Mail Body MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & Request.Form("name") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & Request.Form("phone") MailBody = MailBody & "
" & vbCrlf & "" MailBody = MailBody & Request.Form("comments") 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") AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER")), Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"))<>0)) then 'WA Universal Email object="JMail" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail(" info@beachmotorsports.net") 'Send Mail All Entries if ("/thankyou.htm"<>"") then Response.Redirect("/thankyou.htm") end if end if %> Beach Motor Sports Contact Us

4300 Highway 501
Myrtle Beach, SC
800-260-5057

EMAIL US TODAY!
   
 
4300 Highway 501---Myrtle Beach, S.C.---800-260-5057

WCGnet, Your One Stop Internet Shop for:
website hosting, internet service, website design in Beckley WV.
Serving Southern WV website needs.
1-888-757-6670