Descriptive Writing with Virginia Hamilton

<%@ 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='DCPT' 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 %> Descriptive Writing with Virginia Hamilton <% doMenu %>

Read Student Writing

To read Descriptive Writings, 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 %>