<%@ Language=VBScript %> <% Response.Buffer = true Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT DISTINCT convert(int,Age) Age FROM ww_WritingMythFolkFair WHERE Status = 2 and WritingType='BIOG' order by convert(int, Age)" rs.Open strSQL, "DSN=dotcom",adOpenDynamic,3 if rs.EOF or rs.BOF then blnEmptyRs = true else blnEmptyRs = false end if %> Biography Writing with Patricia and Fredrick McKissack <% doMenu %>









 

Read Student Writing <%=strNavBar%>

To read biographies, find and click on the age group in the list below.

Age
<% if not blnEmptyRs then do until rs.eof displayAge = rs("Age") Response.Write "• " & displayAge &"
" & vbCrLf rs.MoveNext loop set rs = nothing Response.Write "
" Response.Write "• Author's Comments

" else Response.Write "There are no entries at this time - Please check back later...

" & vbCrLf end if %>


 
<% doFooter %>