<%@ LANGUAGE="VBSCRIPT" %> <% On Error Resume Next Response.Buffer = True Response.Expires = 0 Dim ServerName Dim ServerTo Dim objConn 'Variable for connection object Dim RS ' Variable for record set object Dim strSQL ' Variable for String object for SQL query Dim TableName Dim CONNECTION_STRING Dim strOrderBy Dim strInputFile Dim pageno Dim maxcount 'Dim maxcount Dim counter 'Dim javaasp 'Dim aspSJScript 'Dim aspSFooter 'initialize variables CONNECTION_STRING="DSN=network;UID=network;PASSWORD=olives1234;APP=SummerBookclubs" TableName="SW23Assn2" %> <%ServerName = Request.Servervariables("Server_name") If InStr(1, ServerName, "teacherdev2") then ServerTo = "appsdev2.scholastic.com"%> <% ElseIf InStr(1, ServerName, "teacherqual2") then ServerTo = "teacherdev2.scholastic.com"%> <%Else ServerTo = "teacher.scholastic.com" End If %> <% Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open CONNECTION_STRING Set RS = Server.CreateObject("ADODB.Recordset") Rs.cachesize=21 strOrderBy=FormatTextHTML(request("Sort")) if strOrderBy="" Or strOrderBy=null then strOrderBy = "AuthorTitle" end if strSQL="SELECT ReportID,AuthorTitle,GradeList FROM " & TableName & " WHERE Status=2 ORDER BY " & strOrderBy RS.Open strSQL,objConn,3 %> <% %> <% doMenu %>

	Select a lesson from the list below to see how other teachers from previous courses are using literature in the classroom. <%'****** area to insert pagination*********** %> <% 'Response.Write "Page" strInputFile=request.servervariables("script_name") 'Response.Write strInputFile pageno=FormatTextHTML(request.QueryString("Page")) if pageno = "" or pageno = null then pageno=1 end if if not RS.EOF then RS.MoveFirst RS.PageSize=20 RS.CacheSize=20 maxcount =cint(RS.PageCount) RS.AbsolutePage=pageno 'Response.Write maxcount Response.Write "Page:" & pageno & " of " & maxcount if maxcount > 1 Or maxcount = 1 then Response.Write "| " for counter=1 to maxcount if Int(counter) <> Int(pageno) then Response.Write "" 'Response.Write "" Response.Write counter 'Response.Write "" Response.Write "" else Response.Write counter end if if Int(counter) <> Int(maxcount) then Response.Write " " else if Int(pageno) < Int(maxcount) then Response.Write " " Response.Write "" 'Response.Write "" Response.Write "|" + "Next" 'Response.Write "" Response.Write "" end if end if next end if end if %> ">   "> <% Dim numofobs Dim Title Dim Grade Dim ColorFlag Dim strTitlehref Dim ReportID ColorFlag=True numofobs = 0 'strBookhref = "" %> <%if ColorFlag=True then%> <% ColorFlag=False%> <% else%> <% ColorFlag=True%> <% end if%> <% numofobs = numofobs + 1 RS.MoveNext Loop %>   <%=strTitlehref%><% =Title%> <%=Grade%>   <%=strTitlehref%><% =Title%> <%=Grade%>

<% doFooter %>