% 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 %>