<% if first = false then if role = "" then Response.Write "" & msgs1 & "
" & msgs2 & "
" end if end if %>
Please select your role in the district.
%@ Language=VBScript %>
<%
Response.Buffer= true
first = true
if len(Request.Form ("submit")) then
First = false
role = Request.Form ("role")
select case role
case "superintendent"
Response.Redirect("tssasurvey_p2_super.asp")
case "program director"
Response.Redirect("tssasurvey_p2_dpd.asp")
case "principal"
Response.Redirect("tssasurvey_p2_princ.asp")
case ""
msgs1 = "In Order for us to get you the best answer to your question, you must select a profile from the menu
below."
msgs2 = "Please select a profile. Then, submit the form again."
end select
end if
%>
![]() |
||||
![]() |
TSSA (Technology
Standards for School Administrators) Self-Assessment Survey.
<% if first = false then if role = "" then Response.Write "" & msgs1 & " " & msgs2 & " " end if end if %> Please select your role in the district. We welcome your feedback
about this survey.
|
|||