<%@ LANGUAGE="VBSCRIPT" %> <% '-- Global Variables -- PageURL = "patillo_readsch.asp" ' Link to next page 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(PageNmr_aa) Then intPageNmr = 1 Else intPageNmr = PageNmr_aa End If Else intPageNmr = CInt(strPageNmr) PageNmr_aa = intPageNmr End If strSort = FormatTextHTML(request.QueryString("Sort")) Select Case strSort Case "Age": strSortBy = "Age" End Select Dim avar_Reports_aa Dim SortType_aa If IsEmpty(avar_Reports_aa) Then blnNeedRs = True ElseIf SortType_aa <> strSort Then blnNeedRs = True End If '-- Open Database Connection -- If blnNeedRs Then Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT DISTINCT Age FROM " & TABLE_NAME & " WHERE Status =" & adLive & " AND Hold = 0 AND WritingType='PATI' " rs.Open strSQL, CONNECTION_STRING, 3, 3 If NOT (rs.EOF AND rs.BOF) Then avarReports = rs.GetRows() Else blnEmptyRs = True End If avar_Reports_aa = avarReports SortType_aa = strSort Else 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 'Response.Write "Status " & blnEmptyRs & "|" 'Display Current page of total pages If FormatTextHTML(request("Page")) <> "" then ' Is there Page # passed? Page = FormatTextHTML(request("Page")) ' Yes, there is If IsNumeric(Page) then Page = Int(Page) Else If intTotalPages > 1 Then intPageNmr = 1 End If 'strPageTitle = "Administration Page" If FormatTextHTML(request("rand"))= NULL or FormatTextHTML(request("rand")) = "" then rndnum = rnd else rndnum = FormatTextHTML(request("rand"))+ 1 end if If intTotalPages > 1 Then Response.Write "Page: " & intPageNmr & " of " & intTotalPages End If strNavBar = "" '****** Generate page(s) link (30 records per each page) *********** If NOT blnEmptyRs Then ' -- JUMP TO PAGE linkS -- If intTotalPages > 1 Then 'Generate pages only if find more than 30 records If (intPageNmr > 1) then strNavBar = strNavBar & "<<Previous " End If For intI = 1 To intTotalPages If intI <> intPageNmr Then strNavBar = strNavBar & " | " & intI & " " Else strNavBar = strNavBar & " | " & intI & " " End If Next strNavBar = strNavBar & "|" If ((intTotalPages > 1) and (intPageNmr < intTotalPages)) then strNavBar = strNavBar & " Next>>" End If strNavBar = strNavBar & "" End If End If %> How Would You Feel? <% doMenu %>


1. Big Decisions
2. First Day
3. Inside-Briefly
4. Integration Is the Law
5. Fighting to Learn
6. Becoming a Warrior
7. Endings and
Beginnings
8. Reunion
Interview

Melba Patillo Home

How Would You Feel?
<%=strNavBar%>
To read, find and click on the age group in the list below.
  Age
<% 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 'Response.Write intShift & "|" & intPageNmr & "|" & avarReports(0,0) & "|" For intLoop = intShift To intRepShow + intShift - 1 Response.Write "" Response.Write "" Next Else Response.Write "

" & avarReports(0,intLoop) & "

Come back soon to see what kids have written!
" End If %>

 

 

<% doFooter %>