<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% area = 4 'controle de exibicao de menus e estado do botao no topo 'Apresentações = 1 'Artigos = 2 categoria = 13 'Puxando a subcategoria 'cod_sub = request.QueryString("cod_sub") sql = "SELECT * FROM adm_conteudo WHERE cod_conteudo_categ = "& categoria &" ORDER BY STR_TO_DATE(data_pub, '%d/%m/%Y') DESC" Set RS = Server.CreateObject("ADODB.RecordSet") Rs.open sql, conn, 1,3 %> ACT | Aliança de Controle do Tabagismo | Comunicação
 


 
Principal > Comunicação > Indicadores Econômicos

IndicADORES econômicos

A Convenção-Quadro para o Controle do Tabaco (CQCT) estabelece uma série de medidas relacionadas ao aumento de preços e impostos para reduzir a demanda por derivados do tabaco. Para acompanhar a tendência dos preços do cigarro no Brasil, a ACT desenvolveu indicadores econômicos que podem auxiliar a política pública de controle do tabagismo.
<% If not rs.BOF and not rs.EOF then while not rs.eof %>


" target="_blank"><%= rs("titulo")%> (<%=RS("data_pub")%>)
<%= RS("autor")%>

<% RS.Movenext WEND end if %>
<% if regporpagina < RS.RecordCount then 'Agora vamos fazer uma espécie de navegação. ' Primeiro caso, se apenas resultar uma página, não há nescessidade de apresentar o menú. IF PaginaCount=1 then ' Caso seguinte, Primeira página. 'Neste caso apresentamos os números de 1 a 5, com os links para as páginas correspondentes, à exepção da página 1, pois é nela onde nos encontramos. Isto é devido ao “Sub Kuantas()”, que explicaremos mais à frente como funciona. ElseIF Pagina=1 then 'Chamamos o Sub call Kuantas() 'Mostramos os links para a página seguinte e última. %> Próxima <% ' Agora verificamos se estamos na última página, pois, caso se verifique, não há necessidade de apresentar os links para a próxima e última páginas. ElseIF ABS(Pagina)=ABS(PaginaCount) then ' Caso se verifique a condição, Colocá-mos os links para a primeira e página anteriores. %> Anterior <% 'Chamamos o Sub que nos faz o painel com os números. call Kuantas() ' Se nenhuma das situações anteriores se verificar, apresentamos um menú com o link para a primeira e anterior páginas, bem como o painel dos números e links para as páginas seguinte e última. Else %> Anterior <% call Kuantas() %> Próxima <% End If 'Agorao “Sub Kuantas()” 'Dámos-lhe o nome sub kuantas() 'Para ser mais fácil de funcionar, criámos a variável Iaa, que fica com o valor da variável Pagina, a função ABS é nescessária, pois nas comparações que se farão de seguida, não funcionarão... Iaa=ABS(Pagina) 'O seguinte “IF” Serve para nos podermos posicionar no painel, ou seja, se tivermos um grande número de páginas, a página em questão estará apresentada ao centro, e teremos mais duas páginas para trás e para a frente. A página selecciona estará sem link. If Iaa-2=0 then b=3 elseIf Iaa-3=0 then b=2 elseIf Iaa-1=0 then b=4 elseIF Iaa=ABS(PaginaCount) then b=4 elseIF Iaa+1=ABS(PaginaCount) then b=3 else b=2 end if 'Cá está o ciclo que apresenta os números. For pagPagina=(Iaa-b) to (Iaa+b) 'Se o número a apresentar, for menor que um, atribuimos-lhe o valor 1 if pagPagina<=0 then pagPagina=1 End if 'Se a página for maior que o número total de páginas, já não prescisamos de apresentar mais nenhum link, pois não terá nenhum resultado para apresentar. if pagPagina>PaginaCount then exit for End if 'Agora se o valor do número que vamos escrever for diferente do da página onde nos encontramos, atribuímos um link para a página em questão. If not ABS(pagPagina)=ABS(Pagina) then %> <%=pagPagina%> <% 'Caso Contrário, escrevemos o número da página, mas sem link. else%> <% 'Numero da página que está %> <%=Pagina%> <% End IF Next End Sub %> <%end if %>
 
 
<% Rs.close Set RS = nothing Conn.close Set Conn = nothing %>