News Sign-Up
Register for additional information, brochures, and
newsletters about Ocean Club at Biloxi.
<%
dim sMsg : sMsg = ""
if request.form("Submit") <> "" then
dim oNewMail : set oNewMail = Server.CreateObject("CDONTS.NewMail")
dim sEmail
if request.form("txtFirstName") = "" then sMsg = sMsg & "
'First Name' is requierd"
if request.form("txtLastName") = "" then sMsg = sMsg & "
'Last Name' is requierd"
if request.form("txtAddress") = "" then sMsg = sMsg & "
'Address' is requierd"
if request.form("txtCity") = "" then sMsg = sMsg & "
'City' is requierd"
if request.form("ddlState") = "" then sMsg = sMsg & "
'State' is requierd"
if request.form("txtZip") = "" then sMsg = sMsg & "
'Zip' is requierd"
if request.form("txtCountry") = "" then sMsg = sMsg & "
'Country' is requierd"
if request.form("txtEmail") = "" then sMsg = sMsg & "
'Email' is requierd"
if request.form("txtEmailConfirm") = "" then sMsg = sMsg & "
'Confirm Email' is requierd"
if request.form("ddlLearn") = "" then sMsg = sMsg & "
'How did you hear about us?' is requierd"
if request.form("ddlsize") = "" then sMsg = sMsg & "
'Size of Home desired?' is requierd"
if request.form("ddltype") = "" then sMsg = sMsg & "
'Type of desired home?' is requierd"
if request.form("ddlpresent") = "" then sMsg = sMsg & "
'Present Residence' is requierd"
if request.form("ddlpurchase") = "" then sMsg = sMsg & "
'When will you be purchasing?' is requierd"
if request.form("ddlRealEstateBroker") = "" then sMsg = sMsg & "
'Are you working with a broker?' is requierd"
if sMsg = "" then
sEmail = sEmail & "First Name: "&request.Form("txtFirstName") & vbcrlf
sEmail = sEmail & "LastName: "&request.Form("txtLastName") & vbcrlf
sEmail = sEmail & "Address: "&request.Form("txtAddress") & vbcrlf
sEmail = sEmail & "Apt/Suite: "&request.Form("txtAptSuite") & vbcrlf
sEmail = sEmail & "City: "&request.Form("txtCity") & vbcrlf
sEmail = sEmail & "State: "&request.Form("ddlState") & vbcrlf
sEmail = sEmail & "Zip: "&request.Form("txtZip") & vbcrlf
sEmail = sEmail & "Country: "&request.Form("txtCountry") & vbcrlf
sEmail = sEmail & "International Number: "&request.Form("txtIntNum") & vbcrlf
sEmail = sEmail & "Home Number: ("&request.Form("txtPhoneArea")&") "&request.Form("txtPhone3")&"-"&request.Form("txtPhone4") & vbcrlf
sEmail = sEmail & "Business Number: ("&request.Form("txtBusArea")&") "&request.Form("txtBus3")&"-"&request.Form("txtBus4") & vbcrlf
sEmail = sEmail & "Fax Number: ("&request.Form("txtFaxArea")&") "&request.Form("txtFax3")&"-"&request.Form("txtFax4") & vbcrlf
sEmail = sEmail & "Cell Phone: ("&request.Form("txtCellArea")&") "&request.Form("txtCell3")&"-"&request.Form("txtCell4") & vbcrlf
sEmail = sEmail & "Email: "&request.Form("txtEmail") & vbcrlf
sEmail = sEmail & "Confirm Email: "&request.Form("txtEmailConfirm") & vbcrlf
sEmail = sEmail & "How did you hear about us?: "&request.Form("ddlLearn") & vbcrlf
sEmail = sEmail & "Size of Home desired?: "&request.Form("ddlsize") & vbcrlf
sEmail = sEmail & "Type of desired home?: "&request.Form("ddltype") & vbcrlf
sEmail = sEmail & "Present Residence?: "&request.Form("ddlpresent") & vbcrlf
sEmail = sEmail & "When will you be purchasing?: "&request.Form("ddlpurchase") & vbcrlf
sEmail = sEmail & "Are you working with a Broker?: "&request.Form("ddlRealEstateBroker") & vbcrlf
sEmail = sEmail & "Broker Company: "&request.Form("txtBroker") & vbcrlf
oNewMail.From = "Ocean Club at Biloxi
"
oNewMail.to = " "
oNewMail.Subject = "A Guest Has Fill Out the News Sign-Up form from the Ocean Club website"
oNewMail.Body = sEmail
oNewMail.Send
sMsg = "Thank you for for your news sign-up submission."
else
sMsg = "Your submission contained these errors:"
end if
Set oNewMail = Nothing
end if
%>
<%=sMsg%>