<% CONST isActivity = true Dim num num = request("num") if (num="") then num=0 end if num = CInt(num) Dim captions(4) Dim photoImages(4) Dim userName(4) Dim userAge(4) Dim artName(4) Dim state(4) Dim teacherName(4) photoImages(0) = "/writeit/essay/brainstorm/images/pov/image001.jpg" captions(0) = "Explore what this dress would say about the advantages of a simple wedding." userName(0) = "Laura Wolpert" userAge (0) = "15" artName(0) = "Wedding Dress on a Budget" state(0) = "Pennsylvania" teacherName(0) = "" photoImages(1) = "/writeit/essay/brainstorm/images/pov/image002.jpg" captions(1) = "Examine what this man would argue about health care benefits for the elderly." userName(1) = "Kenneth Roberts" userAge (1) = "15" artName(1) = "Portrait of an Old Man" state(1) = "Delaware" teacherName(1) = "" photoImages(2) = "/writeit/essay/brainstorm/images/pov/image003.jpg" captions(2) = "Imagine the argument of trees making the case for forest protection. " userName(2) = "Yulria Choi" userAge (2) = "15" artName(2) = "Landscape of Fall" state(2) = "New Jersey" teacherName(2) = "Teacher: Eunjung Choun " photoImages(3) = "/writeit/essay/brainstorm/images/pov/image004.jpg" captions(3) = "Imagine what these dogs would claim about pet adoption and the value of animal companionship." userName(3) = "Savana Green" userAge (3) = "17" artName(3) = "Let Sleeping Dogs Lie" state(3) = "Kansas" teacherName(3) = "Teacher: Rick Bushnell" Dim numPhotos numPhotos = UBound(photoImages)-1 Dim thisFileName, HeadLine thisFileName = Request.ServerVariables("script_name") %> Teen Writing Art Response

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