<% 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("titulo") &"

" chamadasSecao = chamadasSecao & "

"& objChamadas("chamada") &"

" chamadasSecao = chamadasSecao & "
" objChamadas.movenext wend end if %> <%=nomeSecao%> - <%=empresaTitulo%>
<% sTipo = "i" %>
<%=chamadasSecao%>