Read Student Writing | Mystery Writing with Joan Lowery Nixon | Writing with Writers

<%@ 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='MYST' 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 %> Read Student Writing | Mystery Writing with Joan Lowery Nixon | Writing with Writers | Scholastic.com <% doMenu %>

Read Student Writing

To read mysteries submitted by young authors, click on an age 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 %>