<%@ LANGUAGE="VBSCRIPT" %>
<%
Response.Buffer= true
subFlag = Request.Form("subFlag")
'Response.Write len(trim(subFlag))
if len(trim(subFlag)) = 0 then subFlag = 0
'Response.Write "subflag:" & subFlag
typeofhelp = Request.Form("typeofhelp")
url = Request.Form("url")
msgtext = Request.Form("msgtext")
firstname = Request.Form("firstname")
lastname = Request.Form("lastname")
schadd1 = Request.Form("schadd1")
schadd2 = Request.Form("schadd2")
schcity = Request.Form("schcity")
schstate = Request.Form("schstate")
schzip = Request.Form("schzip")
schcountry = Request.Form("schcountry")
schphone = Request.Form("schphone")
calltime = Request.Form("calltime")
timezone = Request.Form("timezone")
email1 = Request.Form("email1")
email2 = Request.Form("email2")
os = Request.Form("os")
browser = Request.Form("browser")
browserversion = Request.Form("browserversion")
if msgtext = "" or len(trim((msgtext))) = 0 then
strtxt = "Your Message"
end if
if firstname = "" or len(trim((firstname))) = 0 then
strtxt = strtxt + ", First Name"
end if
if lastname = "" or len(trim((lastname))) = 0 then
strtxt = strtxt + ", Last Name"
end if
'if schadd1 = "" or len(trim((schadd1))) = 0 then
'strtxt = strtxt + ", Address"
'end if
'if schcity = "" or len(trim((schcity))) = 0 then
'strtxt = strtxt + ", City"
'end if
'if schstate = "" or len(trim((schstate))) = 0 then
'strtxt = strtxt + ", State"
'end if
if schzip = "" or len(trim((schzip))) = 0 then
strtxt = strtxt + ", Zip/Postal Code"
end if
if schcountry = "" or len(trim((schcountry))) = 0 then
strtxt = strtxt + ", Country"
end if
'if schphone = "" or len(trim((schphone))) = 0 then
'strtxt = strtxt + ", Phone Number"
'end if
'if calltime = "" or len(trim((schphone))) = 0 then
'strtxt = strtxt + ", Best Time to Call"
'end if
'if timezone = "" or len(trim((timezone))) = 0 then
'strtxt = strtxt + ", Time Zone"
'end if
if email1 = "" or len(trim((email1))) = 0 then
strtxt = strtxt + ", E-mail Address"
end if
if email2 = "" or len(trim((email2))) = 0 then
strtxt = strtxt + ", E-mail 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.teacher@aol.com.
Please fix the e-mail address below. Then, submit the form again."
else
msgs=""
end if
%>
Parents: Contact Us
<%
doMenu
%>
>