<%
Error = true
If Request.Form("BACK") Then Error = AnyError()
If Error then 'show form else show thank you
%>
<% else
SendEmail()
%>
<% end if %>
<%
Dim ErrorText,fname, fname_error, lname, lname_error, address, address_error, city, city_error, state, state_error, zip, zip_error, phone, phone_error, email, email_error, product, product_error, questions, questions_error
function AnyError()
AnyError = False
fname = trim(Request.Form("fname"))
lname = trim(Request.Form("lname"))
address = trim(Request.Form("address"))
city = trim(Request.Form("city"))
state = trim(Request.Form("state"))
zip = trim(Request.Form("zip"))
phone = trim(Request.Form("phone"))
email = trim(Request.Form("email"))
product = trim(Request.Form("product"))
questions = trim(Request.Form("questions"))
if len(fname) = 0 then
AnyError = true
fname_error = "Please Enter First Name"
end if
if len(lname) = 0 then
AnyError = true
lname_Error = "Please Enter Last Name"
end if
if len(address) = 0 then
AnyError = true
address_error = "Please Enter Address"
end if
if len(city) = 0 then
AnyError = true
city_error = "Please Enter City"
end if
if len(state) = 0 then
AnyError = true
state_error = "Please Enter State"
end if
if len(zip) = 0 then
AnyError = true
zip_error = "Please Enter Zip"
end if
if len(phone) = 0 then
AnyError = true
phone_Error = "Please Enter Phone"
end if
if len(email) = 0 then
AnyError = true
email_Error = "Please Enter Email"
end if
if AnyError = true then ErrorText = "One or more required fields were left blank. Please see each marked section
