<%
CONST NOTICIA_PRINCIPAL = 14
CONST NOTICIA_SECUNDARIA = 15
CONST NOTICIA_URGENTE = 1
CONST RELEASE = 9
CONST NOTICIA_SIMPLES = 12
Dim ultNot 'código da última notícia
Dim aNoticias 'array com os códigos das notícias em ordem decrescente de data
Dim aReleases 'array com os códigos das releases em ordem decrescente de data
Dim sTexto 'texto a ser truncado
Dim codNotPri 'código da notícia principal
Dim codNotSec 'código da notícia secundária
Dim codNotUrg 'código da notícia urgente
Dim codNot 'código da notícia
Dim codRelease 'código release
Dim indNoticia 'índice para o array de notícias
'Pega um array com os códigos das notícias simples
aNoticias = pegaArrayNoticias( 70 )
'aReleases = pegaArrayReleases( 70 )
'Aponta para o primeiro índice no array de notícias
indNoticia = 0
'Tem alguma notícia principal?
codNotPri = pegaCodUltimaNoticiaPorTipo( 70 , NOTICIA_PRINCIPAL )
'Response.Write(codNotPri) & " - " & TypeName( codNotPri )
'Response.End()
If CInt( codNotPri ) = 0 Then
'Não.
'Pega a primeira notícia simples e atualiza o apontador de noticias
codNotPri = aNoticias( indNoticia )
indNoticia = indNoticia + 1
End If
'Tem alguma notícia secundária?
codNotSec = pegaCodUltimaNoticiaPorTipo( 70 , NOTICIA_SECUNDARIA )
If codNotSec = 0 Then
'Não.
'Pega a primeira notícia simples e atualiza o apontador de noticias
codNotSec = aNoticias( indNoticia )
indNoticia = indNoticia + 1
End If
'Tem alguma notícia?
codNot = pegaCodUltimaNoticiaPorTipo( 70 , NOTICIA_SIMPLES )
'Response.Write(codNot) & " - " & TypeName( codNot )
'Response.End()
If CInt( codNot ) = 0 Then
'Não.
'Pega a primeira notícia simples e atualiza o apontador de noticias
codNot = aNoticias( indNoticia )
indNoticia = indNoticia + 1
End If
'Pega o código do ultimo release
codRelease = pegaCodUltimaNoticiaPorTipo( 70 , RELEASE )
'algoritmo
' pega array de noticias
' zera índice para o array de noticias (indArrayNoticias)
' se tem noticia principal
' entao codNoticiaPrincipal = primeira noticia principal
' senao codNoticiaPrincipal = arrayNoticias( indArrayNoticias )
' indArrayNoticias ++
' fim se
' se tem noticia secundaria
' entao codNoticiaSecundaria = primeira noticia secundaria
' senado codNoticiaSecundaria = arrayNoticias( indArrayNoticias )
' indArrayNoticias++
' fim se
' se tem noticia urgente
%>
Site do Senador Renan Calheiros
Fazer download do audio
Ouvir a rádio
11/05/2006
Convenção do PMDB
09/05/2006
Nova Comissão de Orçamento
05/05/2006
Operação
sanguessuga está sendo investigada
04/05/2006
Renan assume Presidência da República
04/05/2006
Relatório da OIT
04/05/2006
Convenção do PMDB
02/05/2006
Brasil precisa ser firme na questão boliviana
25/04/2006
Fundo de Participação dos Municípios
25/04/2006
Balanço das CPIs
19/04/2006
Regras
novas para as eleições
19/04/2006
O problema é a
Verticalização
19/04/2006
Recursos
do Orçamento e LDO
17/04/2006
Votação
do Orçamento
12/04/2006
Depoimento
do ministro da Justiça
12/04/2006
CPMI dos Correios:
Congresso cumpriu seu papel
11/04/2006
É preciso
alterar o Orçamento
10/04/2006
Relatório
da CPMI dos Correios
10/04/2006
Depoimento
do ministro da Justiça
10/04/2006
Votação
do Orçamento Geral da União
07/04/2006
Votação do Orçamento Geral da União
06/04/2006
Relatório da CPMI dos Correios
05/04/2006
Censo Legislativo do Brasil
04/04/2006
CPMI dos Correios: Relatório
04/04/2006
Sessão deliberativa na segunda-feira
04/04/2006
Votação do Orçamento Geral da União
03/04/2006
Relatório da CPI dos Correios
30/03/2006
Campanha de doação de sangue
29/03/2006
PMDB precisa de consenso na Convenção
29/03/2006
Municípios renovam pedido de ajuda
28/03/2006
Expectativa com o novo ministro da Fazenda
23/03/2006
Saudação
aos 40 anos do PMDB
23/03/2006
Verticalização
e Reforma Política
22/03/2006
Oficializada a verticalização
22/03/2006
Intensificar as relações entre Legislativo e Judiciário
