<%
abre
dim Sacao
swat(request("acao"))
Sacao=Session("txt")
'Lista Reportagem
If Sacao="Rep" then
'Reportagem
swat(request("RepN"))
RepN=Session("txt")
SQrep="SELECT id_Reportagem, tit, subtit, descricao, autor, fonte FROM tb_Reportagem WHERE id_Reportagem=" & repN
Set Mostra_Reportagem = bco.Execute(SQrep)
response.Write ""&Mostra_Reportagem("Tit")& "por: "&Mostra_Reportagem("autor")& "
"&Mostra_Reportagem("subTit")& "
" &Mostra_Reportagem("descricao")& "
"
'Artigos da reportagem
Dim Lista_Artigo
SQa="SELECT ArtN, ArtT, artD, RepN FROM vw_Artigo WHERE RepN=" & RepN
Set Lista_Artigo = bco.Execute(SQa)
While Not Lista_Artigo.EOF
response.Write "" & Lista_Artigo("ArtT") & "" & Lista_Artigo("ArtD")& "
"
Lista_Artigo.MoveNext
Wend
response.Write "Fonte: " &Mostra_Reportagem("fonte")
Else
dim Lista_Reportagem, contaRep
Set Lista_Reportagem = bco.Execute("SELECT id_Reportagem, tit, subtit, descricao,dtIns FROM tb_Reportagem order by dtIns DESC")
response.Write " "
While Not Lista_Reportagem.EOF
if zebra then response.write "" : else response.write " " : end if : zebra = not zebra
response.Write( " | ")
contaRep=contaRep+1
Lista_Reportagem.MoveNext
Wend
response.Write " | Total de reportagens: " & contaRep & " | "
End if
fecha
%>
|
