<% session("schoolID") = "" session("schoolname") = "" dim initial initial = request.querystring("initial") if initial ="" then initial = "A" dim objRec Set objRec = Server.CreateObject("ADODB.Recordset") Dim strSQL strSQL = "select SchoolID, SchoolName, City, State from School where School.Display is null and left(ucase(SchoolName),1)='"&initial&"' order by SchoolName asc;" objRec.cursorlocation = adUseClient objRec.Open strSQL,strConnect,,,adCmdText %> Rate Teachers - All Schools & Teachers <% if objRec.EOF then %> <% end if %> <% while not objRec.EOF %> <% objRec.movenext wend objRec.close Set objRec = nothing %>

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z
All Schools - Name Starts with "<%=initial%>"
No records found
"><%=objRec("SchoolName")%>	<%=objRec("City")%>	<%=objRec("State")%>
Do not see your school? Click here to add your school

<% Set objRec = Server.CreateObject("ADODB.Recordset") strSQL = "select TeacherID, 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 and left(ucase(LastName),1)='"&initial&"' order by LastName asc, FirstName asc;" objRec.cursorlocation = adUseClient objRec.Open strSQL,strConnect,,,adCmdText %> <% if objRec.EOF then %> <% end if %> <% while not objRec.EOF %> <% objRec.movenext wend objRec.close Set objRec = nothing %>

All Teachers - Last Name Initial "<%=initial%>"
No records found
&teachername=<%=objRec("FirstName")+" "+objRec("LastName")%>&schoolID=<%=objRec("SchoolID")%>&schoolname=<%=objRec("SchoolName")%>"><%=objRec("LastName")%>, <%=objRec("FirstName")%>	"><%=objRec("schoolname")%>
Do not see your teacher? Click here to add your teacher
A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z