%
sID = 0
if Request.QueryString("sid") <> "" then
sID = Clng(Request.QueryString("sid"))
end if
if sID = 0 then
response.redirect "index.asp"
response.end
end if
if sID = 6 then
response.redirect "categorias.asp"
response.end
end if
strSecao = "select * from "& prefixo &"secoes where id_secao = "& sID
set objSecao = objConexao.execute(strSecao)
if not objSecao.EOF then
nomeSecao = objSecao("titulo")
corSecao = objSecao("cor")
bannerSecao = objSecao("banner")
if bannerSecao <> "" then
bannerSecao = Replace(bannerSecao,"../","")
bannerSecao = Replace(bannerSecao,"controlli/","")
bannerSecao = "controlli/" & bannerSecao
else
bannerSecao = "imagens/secaogenerica.jpg"
end if
end if
strChamadas = "select * from "& prefixo &"conteudo where id_secao = "& sID &" and excluido = 0 order by data_criacao desc"
set objChamadas = objConexao.execute(strChamadas)
if objChamadas.EOF and objChamadas.BOF then
strSecaoPai = "select * from "& prefixo &"secoes where nivel = "& sID
set objSecaoPai = objConexao.execute(strSecaoPai)
if not objSecaoPai.EOF then
strSelectSec = ""
while not objSecaoPai.EOF
strSelectSec = strSelectSec & "id_secao = "& Clng(objSecaoPai("id_secao")) & " or "
objSecaoPai.movenext
wend
if strSelectSec <> "" then
strSelectSec = strSelectSec & "|"
strSelectSec = Replace(strSelectSec,"or |","")
strSelectSec = "and (" & strSelectSec & ")"
strChamadas = "select * from "& prefixo &"conteudo where excluido = 0 "& strSelectSec &" order by data_criacao desc"
set objChamadas = objConexao.execute(strChamadas)
end if
end if
end if
if not objChamadas.EOF then
if objChamadas.RecordCount = 1 then
response.redirect "final.asp?cid="& Clng(objChamadas("id_conteudo"))
end if
chamadasSecao = ""
while not objChamadas.EOF
imgChamadaSecao = objChamadas("foto_chamada")
imgChamadaSecao = Replace(imgChamadaSecao,"../","")
imgChamadaSecao = Replace(imgChamadaSecao,"controlli/","")
imgChamadaSecao = "controlli/"& imgChamadaSecao
chamadasSecao = chamadasSecao & ""
chamadasSecao = chamadasSecao & ""
chamadasSecao = chamadasSecao & " "& objChamadas("chamada") &""& objChamadas("titulo") &"
"
chamadasSecao = chamadasSecao & "