<% dim sec, ini, fim, tiraFim, nome_sec sec = cstr(request.servervariables("url")) fim = instr(sec, "/Default")-1 tiraFim = Mid(sec,1,fim) ini = instrrev(tiraFim,"/")+1 nome_sec = mid(tiraFim, ini, fim) dim sql, rs sql = "SELECT secao.cod AS codSec, " sql = sql & "secao.nome_secao AS nomSec ," sql = sql & "secao.nome_secao_url AS urlSec ," sql = sql & "noticias.Grau AS Grau ," sql = sql & "secao.Cor_Secao AS Cor_Secao ," sql = sql & "noticias.Titulo AS Titulo ," sql = sql & "noticias.Imagem AS Imagem ," sql = sql & "noticias.Imagem_TB AS Imagem_TB ," sql = sql & "noticias.Data AS Data ," sql = sql & "noticias.Codigo AS CodNot ," sql = sql & "noticias.Texto AS Texto ," sql = sql & "noticias.Chamada AS Chamada from (secao INNER JOIN noticias " sql = sql & "on secao.cod = noticias.codigo_secao) where secao.nome_secao_url = '"&nome_sec&"' AND publicado = 'sim' order by noticias.data desc" call AbreCon set rs = server.createobject("adodb.recordset") rs.cursorlocation=3 rs.open sql, conexao if rs.eof then response.write("Sem noticias no banco") response.end() end if dim total total = rs.pagecount %> <crossmidia> <% dim pagAtual, contador pagAtual = cint(request.querystring("pag")) if pagAtual = empty or pagAtual <=0 then pagAtual = 1 if pagAtual > rs.pagecount+1 then pagAtual = rs.pagecount rs.pagesize=9 rs.absolutepage = pagAtual dim dataCerta, dataHora, minuto%>

» Você está em: Home ><%=rs("nomSec")%>

<%dim not1 if pagAtual = 1 then %>
<%dim campoIMG rs.filter = "grau=1" if not rs.eof then campoIMG = rs("Imagem_TB") not1 = rs("CodNot") else not1 = "" rs.filter = "" campoIMG = rs("Imagem") end if dataHora = rs("Data") minuto = minute(dataHora) if len(minuto)=1 then minuto = "0"&minuto dataCerta = day(dataHora)&"/"&month(dataHora)&"/"&year(dataHora)&" - "&hour(dataHora)&":"&minuto %>

"><%=rs("Titulo")%>

<%=dataCerta%>

<%if campoIMG <> "" then%> <%end if%>

<%=rs("Chamada")%>

<%if not1 <> "" then rs.filter = "CodNot <> "¬1 end if rs.movenext %> <%end if %>
<% for contador=1 to round(rs.pagesize/2) if rs.eof then exit for dataHora = rs("Data") minuto = minute(dataHora) if len(minuto)=1 then minuto = "0"&minuto dataCerta = day(dataHora)&"/"&month(dataHora)&"/"&year(dataHora)&" - "&hour(dataHora)&":"&minuto %>

<%=dataCerta%>

"><%=rs("Titulo")%>

<%if rs("Imagem") <> "" then%> " style="float:left; margin:0 10px 10px 0" /> <%end if%>

<%=rs("Chamada")%>

<%rs.movenext next %>
<% for contador=round(rs.pagesize/2)+1 to rs.pagesize-1 if rs.eof then exit for dataHora = rs("Data") minuto = minute(dataHora) if len(minuto)=1 then minuto = "0"&minuto dataCerta = day(dataHora)&"/"&month(dataHora)&"/"&year(dataHora)&" - "&hour(dataHora)&":"&minuto %>

<%=dataCerta%>

"><%=rs("Titulo")%>

<%if rs("Imagem") <> "" then%> " style="float:left; margin:0 10px 10px 0" /> <%end if%>

<%=rs("Chamada")%>

<%rs.movenext next%>
Página <%=pagAtual%> de <%=rs.pagecount%>
<%if pagAtual > 1 then%> primeira | anterior | <%end if%> <%if pagAtual < rs.pagecount then%> próxima | última <%end if%>
<%rs.close set rs = nothing call FechaCon%>