<%@ Language=VBScript %>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT DISTINCT Grade FROM oa_WritingDinosaur WHERE Status = 2 AND Hold = 0 order by Grade"
'rs.Open strSQL, CONNECTION_STRING, 3, 3
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
Set rs1 = Server.CreateObject("ADODB.Recordset")
strSQL1 = "SELECT DISTINCT WritingType FROM oa_WritingDinosaur WHERE Status = 2 AND Hold = 0 order by WritingType"
'rs1.Open strSQL1, CONNECTION_STRING, 3, 3
rs1.Open strSQL1, "DSN=dotcom;UID=dotcom;password=well1234;",adOpenDynamic,3
if rs1.EOF or rs1.BOF then
blnEmptyRs1 = true
else
blnEmptyRs1 = false
end if
'Response.Write blnEmptyRs & " *** " & blnEmptyRs1 & " "
'Response.Write strSQL
'Response.end
%>
Dinosaur Write
<%
doMenu
%>
Here are dinosaur
short stories, poems, interviews, and more, written by other kids.
To read what they wrote, choose a grade or a genre below.
<% if not blnEmptyRs then
do until rs.eof
displayGrade = rs("Grade")
if displayGrade = "0" then displayGrade = "K"
if displayGrade = "6" then displayGrade = "6+"
Response.Write "
