<%@ Language=VBScript %> <% Response.Buffer= true %> Scholastic.com | Teen Writing <% doMenu %>
Write It The Publishing Site for High School Writers
Write It Home
• User Guide
• Idea Exchange
• Literary Cavalcade Lesson Archive
• Literary Cavalcade: New Articles and Lessons
 

Teacher Center: Literary Cavalcaade Lesson Archive

Browse the past year's archive of Literary Cavalcade to find a wealth of articles and lessons for teaching literature and writing. You can browse issues by publication date, genre, author, or skill.

Publication Date Author Skills
<% Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "select distinct strPubDate, intPubdateSort from tbWriteItLessons order by intPubdateSort" rs.Open strSQL, "DSN=dotcom",adOpenDynamic,3 if rs.EOF or rs.BOF then blnEmptyRs = true else blnEmptyRs = false end if if not blnEmptyRs then Do While not rs.EOF pubdate = rs("strPubDate") urlpbdt = server.URLEncode(pubdate) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext loop Else Response.write "No Data Found...." end if set rs = nothing %>
"&pubdate&"
 <% Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "select distinct strGenre from tbWriteItLessons where datalength(strGenre) > 0 order by strGenre" rs.Open strSQL, "DSN=dotcom",adOpenDynamic,3 if rs.EOF or rs.BOF then blnEmptyRs = true else blnEmptyRs = false end if if not blnEmptyRs then Do While not rs.EOF genre = rs("strGenre") urlgenre = server.URLEncode(genre) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext loop Else Response.Write "No Data Found...." end if set rs = nothing %>
"&genre&"
A-H
I-P
Q-Z
<% Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "select distinct strSkills from tbWriteItLessons where datalength(strSkills) > 0 order by strSkills" rs.Open strSQL, "DSN=dotcom",adOpenDynamic,3 if rs.EOF or rs.BOF then blnEmptyRs = true else blnEmptyRs = false end if if not blnEmptyRs then Do While not rs.EOF skills = rs("strSkills") urlskills = server.URLEncode(skills) Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext loop Else Response.Write "No Data Found...." end if set rs = nothing %>
"&skills&"
Skills
Literary Cavalcade - Literature and writing for college-bound teens.
Literary Cavalcade magazine continues its proud commitment to the support of literature on the High School level by bringing you this online archive of the past year's issues.
<% doFooter %>