<% dim rsSec set rsSec = server.createobject("adodb.recordset") call AbreCon rsSec.cursorlocation=3 rsSec.open "SELECT DISTINCT Codigo_Secao from noticias where boletim = 'sim' and publicado = 'sim'", conexao dim sql, rs sql = "SELECT secao.cod AS codSec, " sql = sql & "secao.nome_secao_url AS nomSec ," sql = sql & "secao.nome_secao AS Secao ," 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.Data AS Data ," sql = sql & "noticias.Codigo AS CodNot ," sql = sql & "noticias.Codigo_Secao AS Codigo_Secao ," 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 publicado = 'sim' and boletim = 'sim' " sql = sql & "order by noticias.grau asc" call AbreCon set rs = server.createobject("adodb.recordset") rs.cursorlocation=3 rs.open sql, conexao %> <crossmidia>
> Ano I - Edição 01
> Notícias de 18/08/08 a 22/08/08

<% if rs.eof then response.write "Sem notícias para o boletim." else dim i, grau1 response.write "
" for i = 1 to 3 grau1=true rs.filter = "grau=1 AND codSec="&i if not rs.eof then grau1=false response.write "

" response.write "< "&rs("Secao")&" >

" response.write "
" end if do while not rs.eof response.write "
" response.write "" response.write "

"&rs("titulo")&"

" response.write "

"&rs("chamada")&"

" response.write "

 

" response.write "
" rs.movenext loop rs.filter = "grau<>1 AND codSec="&i if not rs.eof and grau1 then response.write "

" response.write "< "&rs("Secao")&" >

" response.write "
" end if do while not rs.eof response.write "
" response.write "" response.write "

"&rs("titulo")&"

" response.write "

"&rs("chamada")&"

" response.write "

 

" response.write "
" rs.movenext if not rs.eof then response.write "
" response.write "" response.write "

"&rs("titulo")&"

" response.write "

"&rs("chamada")&"

" response.write "

 

" response.write "
" end if if not rs.eof then rs.movenext loop next response.write "
" response.write "
" for i = 4 to 5 grau1=true rs.filter = "grau=1 AND codSec="&i if not rs.eof then grau1=false response.write "

" response.write "< "&rs("Secao")&" >

" response.write "
" end if do while not rs.eof response.write "
" response.write "" response.write "

"&rs("titulo")&"

" response.write "

"&rs("chamada")&"

" response.write "

 

" response.write "
" rs.movenext loop rs.filter = "grau<>1 AND codSec="&i if not rs.eof and grau1 then response.write "

" response.write "< "&rs("Secao")&" >

" response.write "
" end if do while not rs.eof response.write "
" response.write "" response.write "

"&rs("titulo")&"

" response.write "

"&rs("chamada")&"

" response.write "

 

" response.write "
" rs.movenext if not rs.eof then response.write "
" response.write "" response.write "

"&rs("titulo")&"

" response.write "

"&rs("chamada")&"

" response.write "

 

" response.write "
" end if if not rs.eof then rs.movenext loop next response.write "
" response.write "
" end if%>

Clique aqui caso não queira mais receber e-mails

Boletim informativo do site de notícias crossmidia.com. Todos os direitos reservados.
Produzido por Enepress


<%rs.close set rs = nothing call FechaCon%>