|
|
|
|
 |
|
|
|
<%
dim sSQL, PROCESS, rsRecord
dim bError, sErrorList
dim NAME,TITLE,COMPANY_NAME,ADDRESS,CITY,STATE,COUNTRY,ZIP,PHONE,FAX,EMAIL,COMMENTS, EmailMessage, IS_BROADCAST
PROCESS = getValue("PROCESS")
if not isEmpty(PROCESS) then
NAME = GetValue("NAME")
TITLE = GetValue("TITLE")
COMPANY_NAME = GetValue("COMPANY_NAME")
ADDRESS = GetValue("ADDRESS")
CITY = GetValue("CITY")
STATE = GetValue("STATE")
ZIP = GetValue("ZIP")
PHONE = GetValue("PHONE")
EMAIL = GetValue("EMAIL")
COMMENTS = GetValue("COMMENTS")
IS_BROADCAST = GetValue("IS_BROADCAST")
EmailMessage = EmailMessage &"Name: " & NAME & vbcrlf
EmailMessage = EmailMessage &"Title: " & TITLE & vbcrlf
EmailMessage = EmailMessage &"Company Name: " & COMPANY_NAME & vbcrlf
EmailMessage = EmailMessage &"Address: " & ADDRESS & vbcrlf
EmailMessage = EmailMessage &"City: " & CITY & vbcrlf
EmailMessage = EmailMessage &"State: " & STATE & vbcrlf
EmailMessage = EmailMessage &"Zip: " & ZIP & vbcrlf
EmailMessage = EmailMessage &"Phone: " & PHONE & vbcrlf
EmailMessage = EmailMessage &"Email: " & EMAIL & vbcrlf
EmailMessage = EmailMessage &"Comments: " & COMMENTS & vbcrlf
end if
%>
Thank you for visiting our site!
| Fax |
1-909-392-8283 |
| Write Us |
Mac Sports
Attn: Customer Service
1661 Fairplex Dr.
La Verne, CA 91750
|
<%
if not isEmpty(PROCESS) then
bError = false
sErrorList = ""
' VALIDATE ALL FORM FIELDS
If IsEmpty(NAME) then
bError = true
sErrorList = sErrorList & "Please fill in your name"
End if
If IsEmpty(COMPANY_NAME) then
bError = true
sErrorList = sErrorList & "Please fill in your company name"
End if
If IsEmpty(ADDRESS) then
bError = true
sErrorList = sErrorList & "Please fill in your address"
End if
If IsEmpty(CITY) then
bError = true
sErrorList = sErrorList & "Please fill in your city"
End if
If IsEmpty(STATE) then
bError = true
sErrorList = sErrorList & "Please choose a state"
End if
If IsEmpty(ZIP) then
bError = true
sErrorList = sErrorList & "Please fill in your zipcode"
End if
if not IsEmail(EMAIL) then
bError = true
sErrorList = sErrorList & "E-mail address is incorrect."
end if
if bError then
DisplayError(sErrorList)
end if
end if
end if
%>
|
|
|
|
