<%
' table enquete
' id serial8
' nome varchar(100)
' nro_respondidos int8
'
' table pergunta
' id serial8
' nome varchar(100)
' enquete int8
'
' table resposta
' id int8
' nome varchar(100)
' nro_respondidos int8
' pergunta int8
'
debug_is_on = 0
server.scriptTimeOut = 20
Response.Expires = 0
' set nro da enquete a mostrar
enquete_atual = 2
' set nome do cookie a usar
nome_cookie = "SITE_ENXAQUECA_ENQUETE_" & enquete_atual
'## pega variaveis do form
acao = Ucase(Request("acao"))
request_enquete = Request("enquete")
'## procura cookie_enxaqueca
cookie_enxaqueca = Request.Cookies(nome_cookie)(nome_cookie)
if(Cint(cookie_enxaqueca) = Cint(enquete_atual)) then
nro_enquete = enquete_atual
mostra_enquete = 0
grava_enquete = 0
grava_cookie =0
elseif(Cint(cookie_enxaqueca) <> Cint(enquete_atual) and (acao = "RESPONDER")) then
nro_enquete = enquete_atual
mostra_enquete = 0
grava_enquete = 1
grava_cookie = 1
elseif(Cint(cookie_enxaqueca) <> Cint(enquete_atual)) then
nro_enquete = enquete_atual
mostra_enquete = 1
grava_enquete = 0
grava_cookie = 0
else
nro_enquete = enquete_atual
mostra_enquete = 0
grava_enquete = 0
grava_cookie = 0
end if
if(grava_cookie) then
'set cookies
Response.Cookies(nome_cookie)(nome_cookie) = enquete_atual
Response.Cookies(nome_cookie).Expires = DATE + 365
cookie_enxaqueca = Request.Cookies(nome_cookie)(nome_cookie)
end if
if debug_is_on then
response.write " !!!!!!AQUI!!!!!!!!! "
response.write cookie_enxaqueca
response.write "/"
response.write enquete_atual
response.write "/"
response.write CInt(cookie_enxaqueca) <> Cint(enquete_atual)
response.write " enquete_atual=" & enquete_atual
response.write " acao=" & acao
response.write " request_enquete=" & request_enquete
response.write " cookie_enxaqueca=" & cookie_enxaqueca
response.write " mostra_enquete =" & mostra_enquete
response.write " grava_enquete =" & grava_enquete
response.write " nro_enquete =" & nro_enquete
response.write " "
end if
%>
enxaqueca - enxaqueca.com.br
<%
if(mostra_enquete) then '## mostra_enquete = 1
' pega todas respostas dadas nesta enquete
sql = "select enquete_respostas.[id] as r_id, "&_
"enquete.[nome] as e_nome, " &_
"enquete_perguntas.[nome] as p_nome, " &_
"enquete_respostas.[nome] as r_nome " &_
"from enquete_perguntas,enquete, enquete_respostas " &_
"where enquete_perguntas.[enquete] = enquete.[id] and enquete_respostas.[pergunta] = enquete_perguntas.[id] " &_
"and enquete.[id] =" & nro_enquete
if (debug_is_on) then Response.write " (111)" & sql
set RecSet = oConn.Execute(sql)
if NOT RecSet.eof then
titulo = RecSet("e_nome")
pergunta = RecSet("p_nome")
%>
<%
else
%>
Nada encontrado
<%
end if
else '## mostra_enquete = 0
if(grava_enquete = 1) then ' INSERE ENQUETE
resposta_dada = Request("perg1")
' BEGIN
' atualiza nro de enquetes respondidas
sql = "update enquete set nro_respondidos = nro_respondidos+1 where id=" & nro_enquete
if (debug_is_on) then Response.write " (151)" & sql
oConn.Execute(sql)
' atualiza nro de respostas dadas
sql = "update enquete_respostas set nro_respondidos = nro_respondidos+1 where id=" & resposta_dada
if (debug_is_on) then Response.write " (156)" & sql
oConn.Execute(sql)
'COMMIT
end if
' pega todas respostas dadas nesta enquete e mostra ...
sql = "select enquete_respostas.[nome] as r_nome, " &_
"enquete_respostas.[nro_respondidos] as r_nro_respondidos, " &_
"enquete.[nro_respondidos] as e_nro_respondidos, " &_
"enquete_perguntas.[nome] as p_nome " &_
"from enquete_respostas, enquete_perguntas, enquete " &_
"where enquete_respostas.[pergunta] = enquete_perguntas.[id] " &_
"and enquete_perguntas.[enquete] = enquete.[id] and enquete.[id]= " & nro_enquete
if (debug_is_on) then Response.write " (170)" & sql
SET RecSet = oConn.Execute(sql)
%>
Obrigado pela sua participação! A enquete <%= RecSet("p_nome") %>
já teve <%= enquetes_respondidas %> respostas divididas assim:
<%
if NOT RecSet.eof then
total_de_respostas = RecSet("e_nro_respondidos")
if debug_is_on then Response.write(" total_respostas: " & total_de_respostas)
while not RecSet.eof
percentual = RecSet("r_nro_respondidos")*100/total_de_respostas
%>
<%= RecSet("r_nome") %>
<%= RecSet("r_nro_respondidos") %>
<%
RecSet.movenext
wend
else
%>
ERRO
<%
end if
set RecSet = nothing
set oConn = nothing
%>
<%
end if
%>