<%
Option Explicit
'Criando variáveis
Dim localbd, meubd, rsQuestoes, rsComentarios
'Indicando local do Banco de dados
localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("bd/bd.mdb")
'Setando conexao
set meubd=server.createobject("adodb.connection")
set rsQuestoes=server.createobject("adodb.RecordSet")
set rsComentarios=server.createobject("adodb.RecordSet")
'Abrindo conexao
meubd.Open localbd
'Faremos aqui a seleção da questão
'Sendo ordernada por Data Decrescente para obter a última enquete cadastrada
'Lembrando que será feito um Relacionamento de tabelas
'Para podermos mostrar questão e opções para voto
rsQuestoes.Open "SELECT TOP 1 * from questoes, votos where questoes.cod_questao=votos.cod_questao and votos.cod_questao=questoes.cod_questao order by data desc", meubd
'Aqui será feita uma SELECT para mostrar a quantidade de comentários
rsComentarios.Open "SELECT count(cod_comentario) as TotalCom from comentarios where cod_questao="&rsQuestoes.fields("cod_questao")&" ", meubd
%>
Sistema de Enquete
<%
'Aqui será feito o Javascript que abrirá os resultados em Pop-up
%>
<%
'Verificar se o voto foi feito
'Se foi, gravará uma session com a opção marcada
if request.form("voto")<>"" then
session("voto")=request.form("voto")
response.write ""
end if
%>
Avenida Presidente Vargas, 590, 4º andar, sala 407
Tel.: (21) 2233-0684 - (21) 3477-4924
