<% session("schoolID") = "" session("schoolname") = "" dim objRec Set objRec = Server.CreateObject("ADODB.Recordset") Dim strSQL strSQL = "select top 10 a.TeacherID, Title, LastName, FirstName, avgRate, School.SchoolID, SchoolName from " &_ " (SELECT TeacherID, avg(Rating) as avgRate FROM Rating GROUP BY TeacherID) as a , Teacher, School " &_ " where School.Display is null and Teacher.Display is null and a.TeacherID = Teacher.TeacherID and Teacher.SchoolID = School.SchoolID order by avgRate desc, LastName asc, FirstName asc; " objRec.cursorlocation = adUseClient objRec.Open strSQL,strConnect,,,adCmdText %> Rate Teachers   <% while not objRec.EOF %> <% objRec.movenext wend objRec.close Set objRec = nothing %>

Top 10 Best Rated Teachers
&teachername=<%=objRec("FirstName")+" "+objRec("LastName")%>&schoolID=<%=objRec("SchoolID")%>&schoolname=<%=objRec("SchoolName")%>"> <%=objRec("Title")%> <%=objRec("FirstName")%> <%=objRec("LastName")%>	<% if Round(objRec("avgRate"),1) < 3.0 then response.write "3.0" else response.write Round(objRec("avgRate"),1) end if%>	"><%=objRec("schoolname")%>

<% Set objRec = Server.CreateObject("ADODB.Recordset") strSQL = "select * from (select top 10 SchoolID, SchoolName, City, State from School where School.Display is null order by SchoolID desc) as a order by SchoolName asc;" objRec.cursorlocation = adUseClient objRec.Open strSQL,strConnect,,,adCmdText %> <% while not objRec.EOF %> <% objRec.movenext wend objRec.close Set objRec = nothing %>

Top 10 New Added Schools
"><%=objRec("SchoolName")%>	<%=objRec("City")%>	<%=objRec("State")%>

<% Set objRec = Server.CreateObject("ADODB.Recordset") strSQL = "select * from (select top 10 TeacherID, Title, LastName, FirstName, SchoolName, School.SchoolID from Teacher inner join School on Teacher.SchoolID = School.SchoolID where School.Display is null and Teacher.Display is null order by TeacherID desc) as a order by LastName asc, FirstName asc;" objRec.cursorlocation = adUseClient objRec.Open strSQL,strConnect,,,adCmdText %> <% while not objRec.EOF %> <% objRec.movenext wend objRec.close Set objRec = nothing %>

Top 10 New Added Teachers
&teachername=<%=objRec("LastName")+", "+objRec("FirstName")%>&schoolID=<%=objRec("SchoolID")%>&schoolname=<%=objRec("SchoolName")%>"> <%=objRec("Title")%> <%=objRec("FirstName")%> <%=objRec("LastName")%>	"><%=objRec("schoolname")%>