<%Response.Buffer = true%> <% Dim EntryID, Title, Entry, FirstName, LastInitial, Grade, State EntryID = Request("entryid") Set RS = getEntry(EntryID) Entry = RS("Q2") TimePeriod = RS("WritingType") TimePeriodFix = Replace(TimePeriod," ","%20") TimePeriodLink = ""&TimePeriod&"" Title = RS("Q1") FirstName = RS("FirstName") LastInitial = RS("LastInitial") Grade = RS("Grade") State = RS("State") Set RS = nothing %> Scholastic.com | Flashlight Readers: Esperanza Rising: Write a Journal
Flashlight Readers: Esperanza Rising
Write a Journal Watch the Slide ShowRead Other Journals

<%=Title%>

By: <%=FirstName%> <%=LastInitial%>
<%=State%>, Grade: <%=Grade%>

<% function FixEntry(entry) entry = replace(entry,"<","<") entry = replace(entry,">",">") FixEntry = replace(entry,chr(13),"
") end function %> <%=Entry%>
 

Flashlight Reader Close this window Close this window   
<% Set RS = nothing %>