%@ Language=VBScript %>
<%
subFlag = FormatTextHTML(request.Form("subFlag"))
if subFlag = "" then subFlag = 0
'Response.Write "subflag:" & subFlag
firsttime = FormatTextHTML(request.Form("firsttime"))
firstname = FormatTextHTML(request.Form("firstname"))
lastname = FormatTextHTML(request.Form("lastname"))
jobtitle = FormatTextHTML(request.Form("jobtitle"))
othtitle = FormatTextHTML(request.Form("othtitle"))
schdistrict = FormatTextHTML(request.Form("schdistrict"))
schname = FormatTextHTML(request.Form("schname"))
schadd1 = FormatTextHTML(request.Form("schadd1"))
schadd2 = FormatTextHTML(request.Form("schadd2"))
schcity = FormatTextHTML(request.Form("schcity"))
schstate = FormatTextHTML(request.Form("schstate"))
schzip = FormatTextHTML(request.Form("schzip"))
schcountry = FormatTextHTML(request.Form("schcountry"))
aboutsite = FormatTextHTML(request.Form("aboutsite"))
email1 = FormatTextHTML(request.Form("email1"))
email2 = FormatTextHTML(request.Form("email2"))
message = FormatTextHTML(request.Form("message"))
phone1 = FormatTextHTML(request.Form("phone1"))
phone2 = FormatTextHTML(request.Form("phone2"))
phone3 = FormatTextHTML(request.Form("phone3"))
'--------------------------------------------
cbbrochure1 = FormatTextHTML(request.Form("cbbrochure1"))
cbbrochure2 = FormatTextHTML(request.Form("cbbrochure2"))
cbbrochure3 = FormatTextHTML(request.Form("cbbrochure3"))
cbbrochure4 = FormatTextHTML(request.Form("cbbrochure4"))
cbbrochure5 = FormatTextHTML(request.Form("cbbrochure5"))
cbbrochure6 = FormatTextHTML(request.Form("cbbrochure6"))
cbbrochure7 = FormatTextHTML(request.Form("cbbrochure7"))
cbbrochure8 = FormatTextHTML(request.Form("cbbrochure8"))
'cbbrochure9 = FormatTextHTML(request.Form("cbbrochure9"))
cbbrochure10 = FormatTextHTML(request.Form("cbbrochure10"))
'--------------------------------------------
cbcatalog1 = FormatTextHTML(request.Form("cbcatalog1"))
cbcatalog2 = FormatTextHTML(request.Form("cbcatalog2"))
cbcatalog3 = FormatTextHTML(request.Form("cbcatalog3"))
cbcatalog4 = FormatTextHTML(request.Form("cbcatalog4"))
cbcatalog5 = FormatTextHTML(request.Form("cbcatalog5"))
cbcatalog6 = FormatTextHTML(request.Form("cbcatalog6"))
cbcatalog7 = FormatTextHTML(request.Form("cbcatalog7"))
cbcatalog8 = FormatTextHTML(request.Form("cbcatalog8"))
cbcatalog9 = FormatTextHTML(request.Form("cbcatalog9"))
cbcatalog10 = FormatTextHTML(request.Form("cbcatalog10"))
cbcatalog11 = FormatTextHTML(request.Form("cbcatalog11"))
cbcatalog12 = FormatTextHTML(request.Form("cbcatalog12"))
cbcatalog13 = FormatTextHTML(request.Form("cbcatalog13"))
cbcatalog14 = FormatTextHTML(request.Form("cbcatalog14"))
cbcatalog15 = FormatTextHTML(request.Form("cbcatalog15"))
cbcatalog16 = FormatTextHTML(request.Form("cbcatalog16"))
'--------------------------------------------
'cbdemo1 = FormatTextHTML(request.Form("cbdemo1"))
cbdemo2 = FormatTextHTML(request.Form("cbdemo2"))
cbdemo3 = FormatTextHTML(request.Form("cbdemo3"))
'cbdemo4 = FormatTextHTML(request.Form("cbdemo4"))
cbdemo5 = FormatTextHTML(request.Form("cbdemo5"))
'--------------------------------------------
cbcontactme = FormatTextHTML(request.Form("cbcontactme"))
cbsubscribe = FormatTextHTML(request.Form("cbsubscribe"))
'--------------------------------------------
if len(trim(firstname)) = 0 then
strtxt = "First Name"
end if
if len(trim(lastname)) = 0 then
strtxt = strtxt+", Last Name"
end if
if len(trim(jobtitle)) = 0 then
strtxt = strtxt+", Job Title"
end if
if len(trim(schdistrict)) = 0 then
strtxt = strtxt+", School District"
end if
if len(trim(schname)) = 0 then
strtxt = strtxt+", School Name"
end if
if len(trim(schadd1)) = 0 then
strtxt = strtxt+", School Address 1"
end if
if len(trim(schcity)) = 0 then
strtxt = strtxt+", City"
end if
if len(trim(schstate)) = 0 then
strtxt = strtxt+", State"
end if
if len(trim(schzip)) = 0 then
strtxt = strtxt+", Zip/Postal Code"
end if
if len(trim(schcountry)) = 0 then
strtxt = strtxt+", Country"
end if
if len(trim(phone1)) = 0 or len(trim(phone2)) = 0 or len(trim(phone3)) = 0 then
strtxt = strtxt+", Phone Number"
end if
if len(trim(email1)) = 0 then
strtxt = strtxt+", Email address"
end if
if len(trim(email2)) = 0 then
strtxt = strtxt+", Email address - verification"
end if
if left(strtxt,1) = "," then
strtxt = right(strtxt,(len(strtxt)-1))
end if
strtxt = "" & strtxt & "
"
if subflag = 1 then
msgs="Some required information is missing:
" & strtxt & "
" & "Please make sure you have provided all required information below. Then, submit the form again."
elseif subflag = 2 then
msgs="You typed two different e-mail addresses.
Please make sure you have typed the same e-mail address in both spaces below. Then, submit the form again."
elseif subflag = 3 then
msgs="The format of the e-mail address you supplied is not correct. You may be missing an "@" or a "." or you may have accidently included a space. Please provide your full e-mail address and be sure there are no spaces, e.g.parent@aol.com.
Please fix the e-mail address below. Then, submit the form again."
else
msgs=""
end if
%>