<%@ Language=VBScript %> <% Grade = FormatTextHTML(request.QueryString("Grade")) Genre = FormatTextHTML(request.QueryString("Genre")) sortBy = FormatTextHTML(request.QueryString("sortBy")) if sortBy = "" or sortBy = "Title" then sortBy = "Q1" if sortBy = "Genre" then sortBy = "WritingType" if sortBy = "Fname" then sortBy = "FirstName" Set rs = Server.CreateObject("ADODB.Recordset") if Grade <> "" then displayGrade = Grade if Grade = "0" then displayGrade = "K" if Grade = "6" then displayGrade = "6+" strNavBar = "Grade: " & displayGrade titleCol = "Genre" strGrade = Grade strSQL = "SELECT * FROM oa_WritingDinosaur WHERE Grade = '" & Grade & "' AND Status = 2 AND Hold = 0 order by " & sortBy elseif Genre <> "" then strNavBar = Genre titleCol = "Grade" strGenre = replace(Genre," ", "%20") strSQL = "SELECT * FROM oa_WritingDinosaur WHERE WritingType = '" & Genre & "' AND Status = 2 AND Hold = 0 order by " & sortBy end if rs.Open strSQL, "DSN=dotcom;UID=dotcom;password=well1234;",adOpenDynamic,3 if rs.EOF or rs.BOF then blnEmptyRs = true else blnEmptyRs = false end if %> <% doMenu %>

	<% if not blnEmptyRs then if Grade <> "" then do until rs.eof Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext loop else do until rs.eof displayGrade = rs("Grade") if displayGrade = "0" then displayGrade = "K" if displayGrade = "6" then displayGrade = "6+" Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf rs.MoveNext loop end if 'Grade<> end if 'blnEmptyRs rs.close set rs = nothing %> <%=strNavBar%> Click the red arrows to sort by title, grade, or author. Click the title to read the selection. Title   <%=titleCol%>   Written By   " & vbCrLf Response.Write "" & rs("Q1") & " " & vbCrLf Response.Write "" & rs("WritingType") & " " & vbCrLf Response.Write "" & rs("FirstName") & " " & rs("LastInitial") & "." & " " & vbCrLf Response.Write "" & rs("Q1") & " " & vbCrLf Response.Write "" & displayGrade & " " & vbCrLf Response.Write "" & rs("FirstName") & " " & rs("LastInitial") & "." & "

<% doFooter %>