<% if request.querystring("schoolID") <> "" then session("schoolID") = Cint(request.querystring("schoolID")) session("schoolname") = trim(request.querystring("schoolname")) end if Dim schoolID, schoolname schoolID = session("schoolID") schoolname = trim(session("schoolname")) dim objRec,objRec1 Set objRec = Server.CreateObject("ADODB.Recordset") Set objRec1 = Server.CreateObject("ADODB.Recordset") if schoolname ="" then dim sqlSchool sqlSchool = "SELECT SchoolName from School where SchoolID = "&schoolID objRec1.Open sqlSchool,strConnect,,,adCmdText schoolname = objRec1("SchoolName") session("schoolname") = schoolname objRec1.close Set objRec1 = nothing end if dim sqlTeacher sqlTeacher = "SELECT Teacher.TeacherID, Title, LastName, FirstName, Department, max(RatingDate) as LastRated, count(*)/max(QuestionID) as Votes, avg(Rating) as avgRating " &_ " FROM Teacher Left Outer JOIN Rating ON Teacher.TeacherID = Rating.TeacherID "&_ " where Teacher.Display is null and SchoolID = "&schoolID &_ " group by Teacher.TeacherID, Title, LastName, FirstName, Department order by LastName, FirstName;" objRec.cursorlocation = adUseClient objRec.Open sqlTeacher,strConnect,,,adCmdText %> Rate Teachers - Your School: <%=schoolname%> <% if objRec.EOF then %> No teachers found for this school.

Add Your Teacher <% else %>

The following teacher(s) are found in your school.
Click their last name for detailed rating information.

<% while not objRec.EOF %> <% objRec.movenext wend %>

Title	Last Name	First Name	Department	Last Rated	Total Votes	Overall Rating
<%=objRec("Title")%>	&teachername=<%=objRec("FirstName")+" "+objRec("LastName")%>"> <%=objRec("LastName")%>	<%=objRec("FirstName")%>	<%=objRec("Department")%>	<%=objRec("LastRated")%>	<%=objRec("Votes")%>	<% if objRec("avgRating")<> "" then response.write Round(objRec("avgRating"),1) %>	&teachername=<%=objRec("FirstName")+" "+objRec("LastName")%>">rate this teacher

<% end if %>