<% 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/humor/brainstorm/images/artresponses/chen.jpg" captions(0) = "Write a dialogue between a man and a pig." userName(0) = "Wayne Chen" userAge (0) = "15" artName(0) = "Meet My Best Buddy" state(0) = "California" teacherName(0) = "" photoImages(1) = "/writeit/humor/brainstorm/images/artresponses/scott.jpg" captions(1) = "Write a comedic monologue for this puppet." userName(1) = "Julia Scott" userAge (1) = "17" artName(1) = "Puppet Opus II" state(1) = "Virginia" teacherName(1) = "" photoImages(2) = "/writeit/humor/brainstorm/images/artresponses/pratt.jpg" captions(2) = "Write a story about a frog who thinks he's a prince." userName(2) = "Joey Pratt" userAge (2) = "17" artName(2) = "Not A Prince" state(2) = "Colorado" teacherName(2) = "" photoImages(3) = "/writeit/humor/brainstorm/images/artresponses/wagner.jpg" captions(3) = "Write a story about an itchy dog." userName(3) = "Anna Wagner" userAge (3) = "16" artName(3) = "Itch" state(3) = "Virginia" teacherName(3) = "" photoImages(4) = "/writeit/humor/brainstorm/images/artresponses/almquist.jpg" captions(4) = "Write a comedic dialogue between Skinny and Fatty." userName(4) = "Nicholas Almquist" userAge (4) = "18" artName(4) = "Untitled" state(4) = "Massachusetts" teacherName(4) = "" photoImages(5) = "/writeit/humor/brainstorm/images/artresponses/reimold.jpg" captions(5) = "Write an absurdist story about the Tree Man." userName(5) = "Allison Reimold" userAge (5) = "17" artName(5) = "Untitled (Tree Man)" state(5) = "California" teacherName(5) = "" photoImages(6) = "/writeit/humor/brainstorm/images/artresponses/medel.jpg" captions(6) = "Write a comedy that takes place at a carnival." userName(6) = "Valeska Medel" userAge (6) = "16" artName(6) = "Carnival" state(6) = "Connecticut" teacherName(6) = "" photoImages(7) = "/writeit/humor/brainstorm/images/artresponses/parker.jpg" captions(7) = "Write and illustrate a comic sketch on Post-It® Notes." userName(7) = "Kyle Parker" userAge (7) = "17" artName(7) = "Untitled (White-out/Ink on Post-It® Note)" state(7) = "California" teacherName(7) = "" photoImages(8) = "/writeit/humor/brainstorm/images/artresponses/rosell.jpg" captions(8) = "In the right context, even Death can be funny. Write a humorous piece featuring a skeleton." userName(8) = "Rebecca Rosell" userAge (8) = "13" artName(8) = "Humorous Skeleton" state(8) = "Florida" teacherName(8) = "" photoImages(9) = "/writeit/humor/brainstorm/images/artresponses/kupstas.jpg" captions(9) = "What provoked this response?" userName(9) = "Aubrey Kupstas" userAge (9) = "17" artName(9) = "You've Got To Be Kidding" state(9) = "Pennsylvania" teacherName(9) = "" Dim numPhotos numPhotos = UBound(photoImages)-1 Dim thisFileName, HeadLine thisFileName = Request.ServerVariables("script_name") %> Scholastic.com | Teachers: Write It | Humor

<%=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