<% CONST isActivity = true Dim num num = request("num") if (num="") then num=0 end if num = CInt(num) Dim captions(10) Dim photoImages(10) Dim userName(10) Dim userAge(10) Dim artName(10) Dim state(10) Dim teacherName(10) photoImages(0) = "/writeit/memoir/brainstorm/images/artresponses/fix.jpg" captions(0) = "Write about a time when you were lonely." userName(0) = "Mary Fix" userAge (0) = "16" artName(0) = "Lonely Garage" state(0) = "Michigan" teacherName(0) = "" photoImages(1) = "/writeit/memoir/brainstorm/images/artresponses/kingsley.jpg" captions(1) = "Write about a time when you felt new again." userName(1) = "Danielle Kingsley" userAge (1) = "17" artName(1) = "Renew" state(1) = "California" teacherName(1) = "" photoImages(2) = "/writeit/memoir/brainstorm/images/artresponses/lee.jpg" captions(2) = "Write the history of your hands, or the hands of someone you know." userName(2) = "Grace Lee" userAge (2) = "17" artName(2) = "In Good Hands, Gold Award" state(2) = "Texas" teacherName(2) = "" photoImages(3) = "/writeit/memoir/brainstorm/images/artresponses/luttrell.jpg" captions(3) = "Write about a time when you hiked up your pants to wade through water." userName(3) = "Griff Luttrell" userAge (3) = "16" artName(3) = "Bonaroo 04" state(3) = "Tennessee" teacherName(3) = "" photoImages(4) = "/writeit/memoir/brainstorm/images/artresponses/silver.jpg" captions(4) = "Write about the first time you jumped into water." userName(4) = "Alexander Silver" userAge (4) = "15" artName(4) = "Falling" state(4) = "Maryland" teacherName(4) = "" photoImages(5) = "/writeit/memoir/brainstorm/images/artresponses/bangma.jpg" captions(5) = "Write about a time when you were innocent. What did you know then that you've lost touch with now?" userName(5) = "Jackie Bangma" userAge (5) = "16" artName(5) = "Flying Innocence" state(5) = "Georgia" teacherName(5) = "" photoImages(6) = "/writeit/memoir/brainstorm/images/artresponses/pitts.jpg" captions(6) = "Write a about a moment when you experienced love at first sight." userName(6) = "Michael Pitts" userAge (6) = "17" artName(6) = "Brown Beauty #1" state(6) = "Ohio" teacherName(6) = "" photoImages(7) = "/writeit/memoir/brainstorm/images/artresponses/shuff.jpg" captions(7) = "What did it feel like to grow?" userName(7) = "Tyler Shuff" userAge (7) = "18" artName(7) = "Head to Toe" state(7) = "Ohio" teacherName(7) = "" photoImages(8) = "/writeit/memoir/brainstorm/images/artresponses/williams.jpg" captions(8) = "Write about a wedding you once attended." userName(8) = "Matthew Williams" userAge (8) = "17" artName(8) = "So Stellar" state(8) = "Ohio" teacherName(8) = "" photoImages(9) = "/writeit/memoir/brainstorm/images/artresponses/bain.jpg" captions(9) = "Write about what happened to you while staying in a hotel." userName(9) = "Hannah Bain" userAge (9) = "17" artName(9) = "Hotel Guest" state(9) = "Indiana" teacherName(9) = "" Dim numPhotos numPhotos = UBound(photoImages)-1 Dim thisFileName, HeadLine thisFileName = Request.ServerVariables("script_name") %> Scholastic.com | Teachers: Write It | Memoir

<%=captions(num)%>
<%=userName(num)%>, <%=userAge(num)%>
<%= artName(num) %>, <%= state(num) %>
<% if len(teacherName(num))>0 then %> <%= teacherName(num) %> <% end if %>
<% for i=1 to numPhotos+1 if i = num+1 then %> <% else %> <% end if next %>
<% if num > 0 then %> Previous <% else %> <% end if %> <%=i%><%=i%> <% if num < numPhotos then %> Next <% else %> <% end if %>
Close Close