%@ Language=VBScript %>
<%
subFlag = Request.Form("subFlag")
if subFlag = "" then subFlag = 0
' Response.Write "subflag:" & subFlag
firstname = Request.Form("firstname")
lastname = Request.Form("lastname")
title = Request.Form("title")
schdistrict = Request.Form("schdistrict")
schname = Request.Form("schname")
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")
rb_besttime = Request.Form("rb_besttime")
email1 = Request.Form("email1")
email2 = Request.Form("email2")
rb_emailtype = Request.Form("rb_emailtype")
question = Request.Form("question")
cb_prefmeans1 = Request.Form("cb_prefmeans1")
cb_prefmeans2 = Request.Form("cb_prefmeans2")
cb_prefmeans3 = Request.Form("cb_prefmeans3")
if len(trim(firstname)) = 0 then
strtxt = "Please enter your first name.
"
end if
if len(trim(lastname)) = 0 then
strtxt = strtxt+"Please enter your last name.
"
end if
if len(trim(title)) = 0 then
strtxt = strtxt+"Please enter your title.
"
end if
if len(trim(schdistrict)) = 0 then
strtxt = strtxt+"Please enter your school district.
"
end if
if len(trim(schname)) = 0 then
strtxt = strtxt+"Please enter your school name.
"
end if
if len(trim(schadd1)) = 0 then
strtxt = strtxt+"Please enter your school address.
"
end if
if len(trim(schcity)) = 0 then
strtxt = strtxt+"Please enter your school city.
"
end if
if len(trim(schstate)) = 0 then
strtxt = strtxt+"Please enter your school state.
"
end if
if len(trim(schzip)) = 0 then
strtxt = strtxt+"Please enter your school zip.
"
end if
if len(trim(email1)) = 0 then
strtxt = strtxt+"Please enter your e-mail address.
"
end if
if len(trim(email2)) = 0 then
strtxt = strtxt+"Please verify your e-mail address.
"
end if
if subFlag = 1 then
msgs=strtxt
elseif subFlag = 2 then
msgs="The e-mail addresses you entered do not match. Please re-enter your e-mail address.
"
elseif subFlag = 3 then
msgs="The e-mail information you entered is not in the proper format for an e-mail address. Please update your information using the following format:Name@companyname.com
"
elseif subFlag = 4 then
msgs="Please enter a valid phone number.
"
else
msgs=""
end if
%>
|