<% session("schoolID") = "" session("schoolname") = "" dim schoolname, firstname, lastname if request.form("schoolname") <> "" then schoolname = trim(request.form("schoolname")) end if if request.form("firstname") <> "" then firstname = trim(request.form("firstname")) end if if request.form("lastname") <> "" then lastname = trim(request.form("lastname")) end if dim objRec Set objRec = Server.CreateObject("ADODB.Recordset") if schoolname <> "" then dim sqlSchool sqlSchool = "select SchoolID, SchoolName, City, State from School where School.Display is null and SchoolName like '%"&schoolname&"%'" objRec.cursorlocation = adUseClient objRec.Open sqlSchool,strConnect,adOpenDynamic,adLockOptimistic,adCmdText end if %> Rate Teachers - Select your Choice and Continue

 

<% if schoolname <> "" then if objRec.EOF then %> <% else %> <% end if objRec.close set objRec = nothing end if %> <% if lastname<>"" or firstname<>"" then dim sqlTeacher, objRec1 sqlTeacher = "select TeacherID, Title, FirstName, LastName, Department, Teacher.SchoolID, SchoolName " &_ " from Teacher inner join School on Teacher.SchoolID = School.SchoolID " &_ " where School.Display is null and Teacher.Display is null and FirstName like '%" &firstname& "%' and LastName like '%" &lastname& "%'" Set objRec1 = Server.CreateObject("ADODB.Recordset") objRec1.cursorlocation = adUseClient objRec1.Open sqlTeacher,strConnect,adOpenDynamic,adLockOptimistic,adCmdText if objRec1.EOF then %> <% else %> <% end if end if %>
Your School 
No school found as "<%=schoolname%>". Click here to add your school.Found <% while not objRec.EOF %> <% objRec.movenext wend %>
&schoolname=<%=objRec("schoolname")%>" class=General> <%=objRec("schoolname")%> (<%=objRec("city")%>, <%=objRec("State")%>) &schoolname=<%=objRec("schoolname")%>" class=General>add teacher to this school
 
Your Teacher 
No teacher found as "<%=lastname%>, <%=firstname%>". Click here to add your teacher.Found <% while not objRec1.EOF %> <% objRec1.movenext wend objRec1.close set objRec1 = nothing %>
&teachername=<%=objRec1("FirstName")+" "+objRec1("LastName")%>&schoolID=<%=objRec1("SchoolID")%>&schoolname=<%=objRec1("SchoolName")%>"> <%=objRec1("Title")%> <% if trim(objRec1("FirstName"))<>"" then %><%=objRec1("FirstName")%> <% end if %><%=objRec1("LastName")%> (<%=objRec1("SchoolName")%>) &schoolname=<%=objRec1("schoolname")%>">add teacher to this school