<% dim objRec Set objRec = Server.CreateObject("ADODB.Recordset") Dim strSQL strSQL = "select top 10 a.schoolID, SchoolName, NumOfTeachers from "&_ " (SELECT Teacher.SchoolID, Count(*) AS NumOfTeachers FROM Teacher GROUP BY Teacher.SchoolID) as a "&_ " inner join School on a.SchoolID = School.SchoolID order by NumOfTeachers desc;" objRec.cursorlocation = adUseClient objRec.Open strSQL,strConnect,,,adCmdText response.write "Top 10 schools with most teachers
" while not objRec.EOF response.write objRec("SchoolName")&"--"&objRec("NumOfTeachers")&"
" objRec.movenext wend objRec.close strSQL = "select top 10 SchoolID, SchoolName from School order by SchoolID desc;" objRec.Open strSQL,strConnect,,,adCmdText response.write "

Newly added 10 schools
" while not objRec.EOF response.write objRec("SchoolName")&"
" objRec.movenext wend objRec.close strSQL = "select top 10 LastName, FirstName, SchoolName from Teacher inner join School on Teacher.SchoolID = School.SchoolID order by TeacherID desc;" objRec.Open strSQL,strConnect,,,adCmdText response.write "

Newly added 10 teachers
" while not objRec.EOF response.write objRec("LastName")&", "&objRec("FirstName")&objRec("SchoolName")&"
" objRec.movenext wend objRec.close strSQL = "select top 10 a.TeacherID, LastName, FirstName, avgRate, School.SchoolID, SchoolName from " &_ " (SELECT TeacherID, avg(Rating) as avgRate FROM Rating GROUP BY TeacherID) as a , Teacher, School " &_ " where a.TeacherID = Teacher.TeacherID and Teacher.SchoolID = School.SchoolID order by avgRate desc; " objRec.Open strSQL,strConnect,,,adCmdText response.write "

Best 10 teachers
" while not objRec.EOF response.write objRec("LastName")&", "&objRec("FirstName")&objRec("SchoolName")&"--"&Round(objRec("avgRate"),1)&"
" objRec.movenext wend objRec.close set objRec = nothing %>