<%@ Language=VBScript %>
<%
Response.Buffer = true
id = FormatTextHTML(request.QueryString("id"))
age = FormatTextHTML(request.QueryString("age"))
page = FormatTextHTML(request.QueryString("Page"))
sortBy = FormatTextHTML(request.QueryString("sortBy"))
comm = FormatTextHTML(request.QueryString("comm"))
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM ww_WritingMythFolkFair WHERE ReportID = " & id
rs.CursorLocation = 3
rs.Open strSQL, "DSN=dotcom",adOpenDynamic,3
if rs.EOF or rs.BOF then
blnEmptyRs = true
else
blnEmptyRs = false
title = rs("Q1")
writingtext = rs("Q2")
comments = rs("Q3")
fname = rs("FirstName")
lastinitial = rs("LastInitial")
state = rs("State")
set rs = nothing
end if
url = "myths_readsch.asp"
urlText = "Back to Age "&age
if comm = "Y" then
url = "myths_comm.asp"
urlText = "Back to Author's comments"
end if
htmlTitle = title & ", by " & fname & " " & lastinitial & "., Age " & age & ", " & state
%>
Myths, Folktales and Fairy Tales: <%= htmlTitle %>
<%
doMenu
%>
