<%@ LANGUAGE="VBSCRIPT" %> <% '-- Global Variables -- blnNeedRs = False ' True: Create New Recordset blnEmptyRs = False ' True: Database Query Returned empty recordset adMaximumShow = 30 ' Maximum show on page strFilename = Request.ServerVariables("PATH_INFO") strnameParts = Split(strFilename,"/") strFilename = strnameParts(UBound(strnameParts)) Dim PageNmr_aa ' -- Retrieve Page Parameters ' determine the current page number strPageNmr = FormatTextHTML(request.QueryString("Page")) If strPageNmr = "" Then 'If IsEmpty(Session("PageNmr_aa")) Then 'Sanjay If IsEmpty(PageNmr_aa) Then intPageNmr = 1 Else 'intPageNmr = Session("PageNmr_aa") 'Sanjay intPageNmr = PageNmr_aa End If Else intPageNmr = CInt(strPageNmr) PageNmr_aa = intPageNmr End If 'Sanjay 'If IsEmpty(Session("SortType_aa")) Then ' Session("SortType_aa") = "School" 'End If 'End Sanjay strSort = FormatTextHTML(request.QueryString("Sort")) 'Sanjay 'If strSort = "" Then ' strSort = Session("SortType_aa") 'End If 'End Sanjay Select Case strSort ' Case "School": ' strSortBy = "Schoolname" Case "State": ' strSortBy = "State, Schoolname" strSortBy = "State" End Select Dim avar_Reports_aa Dim SortType_aa 'If IsEmpty(Session("avar_Reports_aa")) Then 'Sanjay If IsEmpty(avar_Reports_aa) Then blnNeedRs = True 'ElseIf Session("SortType_aa") <> strSort Then 'Sanjay ElseIf SortType_aa <> strSort Then blnNeedRs = True End If '-- Open Database Connection -- If blnNeedRs Then Set rs = Server.CreateObject("ADODB.Recordset") 'strSQL = "SELECT DISTINCT State FROM " & TABLE_name & " WHERE Status =" & adLive & " AND Hold = 0 " strSQL = "SELECT DISTINCT grade FROM " & TABLE_name & " WHERE Status =" & adLive & " AND Hold = 0 order by grade" 'Response.Write strsql 'rs.Open strSQL, Application("DBConn"), 3, 3 rs.Open strSQL, CONNECTION_STRING, 3, 3 If NOT (rs.EOF AND rs.BOF) Then avarReports = rs.GetRows() Else blnEmptyRs = True End If 'Session("avar_Reports_aa") = avarReports 'Sanjay avar_Reports_aa = avarReports 'Session("SortType_aa") = strSort 'Sanjay SortType_aa = strSort Else 'avarReports = Session("avar_Reports_aa") 'Sanjay avarReports = avar_Reports_aa End If 'On Error Resume Next If NOT blnEmptyRs Then intTotalPages = Fix((UBound(avarReports,2) + 1)/adMaximumShow) If UBound(avarReports,2) + 1 mod adMaximumShow <> 0 Then intTotalPages = intTotalPages + 1 End If End If Response.Buffer = True Response.Expires = 0 %> Poetry Writing with Jean Marzollo <% doMenu %>









Read Student Writing

To read mysteries submitted by young authors, click on an age in the list below.

<% If NOT blnEmptyRs Then ' -- JUMP TO PAGE linkS -- If intTotalPages > 1 Then Response.Write "Pages " For intI = 1 To intTotalPages If intI <> intPageNmr Then Response.Write "" & intI & " " Else Response.Write intI & " " End If Next Response.Write " " End If End If %>

<% If NOT blnEmptyRs Then If intPageNmr <> intTotalPages Then intRepShow = adMaximumShow Else intRepShow = UBound(avarReports,2) - (intPageNmr-1)*adMaximumShow + 1 End If intShift = (intPageNmr - 1) * adMaximumShow K = (avarReports(0,0)) if K = O then K = "K" Response.Write "• " & K & "
" For intLoop = intShift + 1 To intRepShow + intShift - 1 Response.Write "• " & avarReports(0,intLoop) & "
" Next Else Response.Write "

Come back soon to see what kids have written!

" End If %>

 


 
<% doFooter %>