<%option explicit%>
<%DIM ErrorMsg, First_Name, Last_Name, title,business_name,address,address2,city,state,zip,country,email,message%>
<%
const numFields = 12
dim errorArray()
redim preserve errorArray(numFields)
if request.form("isSubmitted") = "yes" then
first_name = request.form("first_name")
last_name = request.form("last_name")
email = request.form("email")
ErrorMsg = ""
dim re
set re = New RegExp
'First Name
re.Pattern = "^[^0-9\/><\.,\\!\^\$\*\+\?@#%&\(\);:\[\]\{\}=""']+$"
re.Global = True
re.IgnoreCase = True
errorArray(0) = re.Test(first_name)
if errorArray(0) then
errorArray(0)=False
else
errorArray(0) = True
ErrorMsg = "First Name - is required
"
end if
'Last Name
if Len(last_name) = 0 then
errorArray(1) = True
ErrorMsg = ErrorMsg & "Last Name - is required
"
end if
'Email
re.Pattern = "^\w+@\w+\.\w+"
errorArray(8) = re.Test(email)
if errorArray(8) then
errorArray(8) = False
else
errorArray(8) = True
ErrorMsg = ErrorMsg & "Email Address - is required
"
end if
end if
%>
Contact Us - Methods Plus Inc.