<% cID = 0 if Request.QueryString("cid") <> "" then cID = Clng(Request.QueryString("cid")) end if if cID = 0 then response.redirect "index.asp" response.end end if bannerSecao = "" strConteudo = "select * from "& prefixo &"conteudo where id_conteudo = "& cID set objConteudo = objConexao.execute(strConteudo) if not objConteudo.EOF then titulo = objConteudo("titulo") criacao = objConteudo("data_criacao") bannerSecao = objConteudo("foto_banner") materia = objConteudo("materia") materia = Replace(materia,""",Chr(39)) if bannerSecao <> "" then bannerSecao = Replace(bannerSecao,"../","") bannerSecao = Replace(bannerSecao,"controlli/","") bannerSecao = "controlli/" & bannerSecao else bannerSecao = "imagens/secaogenerica.jpg" end if galeria = Cint(objConteudo("id_galeria")) aGaleria = "" if galeria > 0 then strGaleria = "select * from "& prefixo &"fotos where id_galeria = "& galeria &" and caminho_final like '%.%'" set objGaleria = objConexao.execute(strGaleria) if not objGaleria.EOF then aGaleria = "
" while not objGaleria.EOF galIMG = objGaleria("caminho_final") galIMG = Replace(galIMG,"../","") galIMG = Replace(galIMG,"controlli/","") galIMG = "controlli/"& galIMG aGaleria = aGaleria & "" objGaleria.movenext wend aGaleria = aGaleria & "
" end if end if if bannerSecao = "" or bannerSecao = "imagens/secaogenerica.jpg" then strSecao = "select * from "& prefixo &"secoes where id_secao = "& Clng(objConteudo("id_secao")) set objSecao = objConexao.execute(strSecao) if not objSecao.EOF then nomeSecao = Ucase(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 end if end if %> <%=titulo%> - <%=empresaTitulo%>
<% sTipo = "f" %>

<%=titulo%>

Publicado em <%=criacao%>

<%=materia&aGaleria%>