<%
cod = request.querystring("cod")
If cod="" then
response.redirect("relatorios.asp")
end if
%>
<%
sql = "select texto,titulo,aluno,nome,email,data from consulta_relatorios where cod ="&cod&" and sala="&session("sala")
Set relatorio = Conexao.Execute(sql)
If relatorio.eof then
response.redirect("relatorios.asp")
end if
texto= relatorio("texto")
if date > Cdate("27/11/2000") then 'Só fazer alteração para relatórios enviados depois desta data
texto = Replace(texto,Chr(10),"
")
texto = Replace(texto," "," ")
end if
%>
Relatório
nº <%=cod%> - SALA <%=Session("sala_nome")%>
<% if Session("usuario") <> "" Then %>
Logoff do sistema <% end if %>
