PoliticaBR - Tudo o que você precisa Saber!

<% 'Response.redirect("http://www.politicabr.blog.br")%> <% ' ************************ Estatisticas do Site ************ qtde_stats=0 datainvertida=D atePart( "m", date) & "/" & DatePart( "d", date) & "/" & DatePart( "yyyy", date) sqlstats="select id_stats, data_acesso, qtde_acessos from estatistica where data_acesso=#" & datainvertida & "#" set rsVerStats=conStats.execute(sqlStats) 'qtde_stats = rsVerStats("qtde_acessos") IF (not rsVerStats.BOF) and (not rsVerStats.EOF) THEN qtde_stats = rsVerStats("qtde_acessos") + 1 sqlStats="Update estatistica set qtde_acessos=" & qtde_stats & " where id_stats=" & rsVerStats("id_stats") set rsSomaStats=conStats.execute(sqlStats) ELSE wdatainc = date sqlStats="Insert into estatistica (data_acesso, qtde_acessos) Values (' " & wdatainc & " ',1)" set rsSomaStats=conStats.execute(sqlStats) End IF ' ********************* BANNER TOPO ************** sql="SELECT * FROM banners where status='A' and mostra=1 AND local_pagina=1 order by bannerid" set rsbannerTopo=conpoliticabr.execute(sql) WIDBanner=rsBannerTopo( "BannerID") ' sql="SELECT * FROM banners where status='A ' and mostra=0 AND local_pagina=1 and BannerID>" & WIDBAnner & " order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) ' 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo("BannerID") else sql="SELECT * FROM banners where status='A ' AND local_pagina=1 order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo( "BannerID") Else WIDProximo=WIDBAnner End If End If ' IF WIDProximo<>WIDBanner then sql="Update banners set mostra=1 where BannerID = " & WIDProximo set rsbannerProximo=conpoliticabr.execute(sql) ' sql="Update banners set mostra=0 where BannerID = " & WIDBanner set rsbannerProximo=conpoliticabr.execute(sql) End If ' ' ********************* BANNER INFERIOR ************** sql="SELECT * FROM banners where status='A' and mostra=1 AND local_pagina=3 order by bannerid" set rsbannerInferior=conpoliticabr.execute(sql) if (not rsBannerInferior.Eof) then WIDBanner=rsBannerInferior("BannerID") ' sql="SELECT * FROM banners where status='A ' and mostra=0 AND local_pagina=3 and BannerID>" & WIDBAnner & " order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) ' 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo("BannerID") else sql="SELECT * FROM banners where status='A ' AND local_pagina=3 order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo( "BannerID") Else WIDProximo=WIDBAnner End If End If ' IF WIDProximo<>WIDBanner then sql="Update banners set mostra=1 where BannerID = " & WIDProximo set rsbannerProximo=conpoliticabr.execute(sql) ' sql="Update banners set mostra=0 where BannerID = " & WIDBanner set rsbannerProximo=conpoliticabr.execute(sql) End If End If ' ' ******** BANNER LATERAL 1 **************************** sql="SELECT * FROM banners where status='A' and mostra=1 AND local_pagina=2 and posicaobanner=1 order by bannerid" set rsbannerLateral1=conpoliticabr.execute(sql) WIDBanner=rsBannerLateral1("BannerID") ' sql="SELECT * FROM banners where status='A ' and mostra=0 AND local_pagina=2 and posicaobanner=1 and BannerID>" & WIDBAnner & " order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) ' 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo("BannerID") else sql="SELECT * FROM banners where status='A ' AND local_pagina=2 and posicaobanner=1 order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo( "BannerID") Else WIDProximo=WIDBAnner End If End If ' IF WIDProximo<>WIDBanner then sql="Update banners set mostra=1 where BannerID = " & WIDProximo set rsbannerProximo=conpoliticabr.execute(sql) ' sql="Update banners set mostra=0 where BannerID = " & WIDBanner set rsbannerProximo=conpoliticabr.execute(sql) End If ' ' ******** BANNER LATERAL 2 *************A 1 2 2 sql="SELECT * FROM banners where status='A' and mostra=1 AND local_pagina=2 and posicaobanner=2 order by bannerid" 'sql="SELECT * FROM banners where status='A ' and mostra=1 order by bannerid" set rsbannerLateral2=conpoliticabr.execute(sql) if (not rsBannerLateral2.BOF) and (not rsBannerLateral2.EOF) then WIDBanner=rsBannerLateral2("BannerID") sql="SELECT * FROM banners where status='A ' and mostra=0 AND local_pagina=2 and posicaobanner=2 and BannerID>" & WIDBAnner & " order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) else sql="SELECT * FROM banners where status='A ' and mostra=0 AND local_pagina=2 and posicaobanner=2 order by bannerid" 'set rsbannerProximo=conpoliticabr.execute(sql) set rsbannerLateral2=conpoliticabr.execute(sql) WIDBanner=rsBannerLateral2( "BannerID") sql="SELECT * FROM banners where status='A' and mostra=1 AND local_pagina=2 and posicaobanner=2 and BannerID>"& WIDBAnner & " order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) end if ' IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo("BannerID") else sql="SELECT * FROM banners where status='A ' AND local_pagina=2 and posicaobanner=2 order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo("BannerID") Else WIDProximo=WIDBAnner End If End If IF WIDProximo<>WIDBanner then sql="Update banners set mostra=1 where BannerID = " & WIDProximo set rsbannerProximo=conpoliticabr.execute(sql) ' sql="Update banners set mostra=0 where BannerID = " & WIDBanner set rsbannerProximo=conpoliticabr.execute(sql) End If ' ' ******** BANNER LATERAL 3 **************************** sql="SELECT * FROM banners where status='A' and mostra=1 AND local_pagina=2 and posicaobanner=3 order by bannerid" set rsbannerLateral3=conpoliticabr.execute(sql) WIDBanner=rsBannerLateral3( "BannerID") ' sql="SELECT * FROM banners where status='A ' and mostra=0 AND local_pagina=2 and posicaobanner=3 and BannerID>" & WIDBAnner & " order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) ' 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo("BannerID") else sql="SELECT * FROM banners where status='A ' AND local_pagina=2 and posicaobanner=3 order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo( "BannerID") Else WIDProximo=WIDBAnner End If End If ' IF WIDProximo<>WIDBanner then sql="Update banners set mostra=1 where BannerID = " & WIDProximo set rsbannerProximo=conpoliticabr.execute(sql) ' sql="Update banners set mostra=0 where BannerID = " & WIDBanner set rsbannerProximo=conpoliticabr.execute(sql) End If ' ' ******** BANNER LATERAL 4 **************************** sql="SELECT * FROM banners where status='A' and mostra=1 AND local_pagina=2 and posicaobanner=4 order by bannerid" set rsbannerLateral4=conpoliticabr.execute(sql) if (Not rsBannerLateral4.Eof) Then WIDBanner=rsBannerLateral4( "BannerID") ' sql="SELECT * FROM banners where status='A ' and mostra=0 AND local_pagina=2 and posicaobanner=4 and BannerID>" & WIDBAnner & " order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) ' 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo("BannerID") else sql="SELECT * FROM banners where status='A ' AND local_pagina=2 and posicaobanner=4 order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo( "BannerID") Else WIDProximo=WIDBAnner End If End If ' IF WIDProximo<>WIDBanner then sql="Update banners set mostra=1 where BannerID = " & WIDProximo set rsbannerProximo=conpoliticabr.execute(sql) ' sql="Update banners set mostra=0 where BannerID = " & WIDBanner set rsbannerProximo=conpoliticabr.execute(sql) End If End If ' ' ******** BANNER LATERAL 5 **************************** sql="SELECT * FROM banners where status='A' and mostra=1 AND local_pagina=2 and posicaobanner=5 order by bannerid" set rsbannerLateral5=conpoliticabr.execute(sql) if (Not rsbannerLateral5.Eof) Then WIDBanner=rsBannerLateral5( "BannerID") ' sql="SELECT * FROM banners where status='A ' and mostra=0 AND local_pagina=2 and posicaobanner=5 and BannerID>" & WIDBAnner & " order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) ' 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo("BannerID") else sql="SELECT * FROM banners where status='A ' AND local_pagina=2 and posicaobanner=5 order by bannerid" set rsbannerProximo=conpoliticabr.execute(sql) 'rsBannerProximo.MoveFirst IF (Not rsBannerProximo.EOF) THEN WIDProximo=rsBannerProximo( "BannerID") Else WIDProximo=WIDBAnner End If End If ' IF WIDProximo<>WIDBanner then sql="Update banners set mostra=1 where BannerID = " & WIDProximo set rsbannerProximo=conpoliticabr.execute(sql) ' sql="Update banners set mostra=0 where BannerID = " & WIDBanner set rsbannerProximo=conpoliticabr.execute(sql) End If End If %>

Email: Senha:

Encerrar sessão

<% 'IF Session("usuario")=true THEN 'IF Application( "strUsuarioNome")<>"" THEN 'RESPONSE.WRITE "
" & "Bem vindo, " & Application("strUsuarioNome") & " ao PoliticaBR!" 'End If %>

Brasil, <% '

%> <% '

<% ' ' '%> <% ' ' ' ' ' ' %> <% ' ' ' ' ' ' ' ' ' %> <% ' ' ' '' ' '%> <% ' ' ' %> <% ' ' ' %>

Home

Cadastro

Notícias

' Consulta Tít. Eleitor
'

Consulta Tít. Eleitor

Guia do Eleitor(TSE)

Como Votar(TSE)

-Eleições 2016

Calendário Eleitoral

' Prefeito
'

Vereador
'

' ' ' ''

-Política Atual

'

' Vereador
'

' Prefeito
'

Cand. Prefeito

Cand. Vereador

' Cand. Dep. Federal
'

'

' Cand. Senador
'

'

' Presidente
'

- Links Governos

Senado Federal

Câmara Federal

Ass. Legislativas

Governos Estaduais

Prefeituras

Câmaras Municipais

TSE

Lista TREs

-PolíticaBR

Famigos

Matérias

Sua Mensagem (Novo)

Dúvidas

' Pedidos de Oração

Links

Utilidade Pública

Classificados

Seu Curriculum

Fale Conosco

Hospedagem de Sites

Politica de Privacidade

<% ' Selecciono todas as perguntas por ordem decrescente de data sql="SELECT * FROM enquete_pergunta where ativo=1 ORDER BY data DESC" set rs_enquete_pergunta=conpoliticabr.execute(sql) ' Selecciono todas as respostas da pergunta de data mais recente if not rs_enquete_pergunta.eof then sql="SELECT * FROM enquete_respostas WHERE ID_enquete=" &rs_enquete_pergunta(0)& " and respostas<>'' ORDER BY id_resposta " set rs_enquete_respostas=conpoliticabr.execute(sql) end if %>

<% ' Formul�rio que vai enviar o ID da resposta para adicionar mais um hit %> <%if not rs_enquete_pergunta.eof then %>

<% ' Coluna que contem o texto da pergunta %>

Enquete

<%=rs_enquete_pergunta(4)%>

<%=rs_enquete_pergunta(1)%>

<% ' Enquanto houver respostas para esta pergunta.... %> <%do while not rs_enquete_respostas.eof%> <%' Cria um conjunto de radio buttons com o valor do ID da resposta e o texto da resposta %> <%=rs_enquete_respostas(2)%>
<%rs_enquete_respostas.movenext%> <%loop%>

<% ' onClick="document.enquete.submit()" %>

<%end if%> <%set conpoliticabr = nothing%> <%set conStats = nothing %>

<%'

operação Eleições Limpas

'

%>

Registre seu dom�nio
www.

By Nomer.com

Publicidade

<% If (not rsBannerLateral1.Eof) then if rsBannerLateral1( "Tipo_Banner")=2 then Response.write "

" Else Response.Write " "S" then Response.Write " target='_blank'>" Else Response.Write ">" End If Response.Write "

" " then Response.Write " alt='" & rsBannerLateral1("Hint") & "'>" Else Response.Write ">" End If Response.Write "" End If End If %>

<% If (not rsBannerLateral2.Eof) then if rsBannerLateral2( "Tipo_Banner")=2 then Response.write "

" Else Response.Write " "S" then Response.Write " target='_blank'>" Else Response.Write ">" End If Response.Write "

" " then Response.Write " alt='" & rsBannerLateral2("Hint") & "'>" Else Response.Write ">" End If Response.Write "" End If End If %>

Anuncie aqui
Fale conosco.

<% ' If (not rsBannerLateral3.Eof) then ' if rsBannerLateral3( "Tipo_Banner")=2 then ' Response.write "

" ' Else ' Response.Write " "S" then ' Response.Write " target='_blank'>" ' Else ' Response.Write ">" ' End If ' Response.Write "

"" 'then ' Response.Write " alt=' " & rsBannerLateral3("Hint ") & " '>" ' Else ' Response.Write ">" ' End If ' Response.Write " " ' End If ' ' End If ' %>

<% If (not rsBannerLateral4.Eof) then if rsBannerLateral4("Tipo_Banner")=2 then Response.write "

" Else Response.Write " "S" then Response.Write " target='_blank '>" Else Response.Write ">" End If ' Response.Write "

"" then Response.Write " alt='" & rsBannerLateral4("Hint") & "'>" Else Response.Write ">" End If Response.Write "" End If Response.Write "" End If %>

<% If (not rsBannerLateral5.Eof) then 'Response.Write "

" if rsBannerLateral5("Tipo_Banner")=2 then Response.write "

" Else Response.Write " "S" then Response.Write " target='_blank '>" Else Response.Write ">" End If Response.Write "

"" then Response.Write " alt=' " & rsBannerLateral5("Hint ") & " '>" Else Response.Write ">" End If Response.Write " " End If ' 'Response.Write "

" End If ' %>

<% If (not rsBannerTopo.Eof) then Response.Write "

" if rsBannerTopo( "Tipo_Banner")=2 then Response.write "

" Else Response.Write " "S" then Response.Write " target='_blank'>" Else Response.Write ">" End If Response.Write "

" " then Response.Write " alt='" & rsBAnnerTopo("Hint") & "'>" Else Response.Write ">" End If Response.Write "" End If ' Response.Write "

" End If ' %>

<%nref=r equest.querystring( "ref") & ".asp" if request.querystring( "ref")="" then%> <%Application( "WPagina_atual")="home" ELSE Server.Execute(nref) END IF %>

<% If (not rsBannerInferior.Eof) then Response.Write "

" if rsBannerInferior( "Tipo_Banner")=2 then Response.write "

" Else Response.Write ""S" then Response.Write " target='_blank'>" Else Response.Write ">" End If Response.Write "

" " then Response.Write " alt='" & rsBannerInferior("Hint") & "'>" Else Response.Write ">" End If Response.Write "" End If ' Response.Write "

" End If ' %>

Este site é melhor visualizado com o Internet Explorer 8.0 ou Superior e resolução 800x600.
Política de Privacidade - PoliticaBR 2004-2016 - Todos os direitos reservados