<% EnqueteID = request.querystring("ID") lSecenekID = request.form("optSecenek") IPusuario = Request.ServerVariables("REMOTE_ADDR") sPermite = ucase(request.querystring("v")) sResultado = ucase(request.querystring("vr")) 'response.write enqueteid &"-" 'response.write lsecenekid &"-" 'response.write Ipusuario &"-" 'response.write spermite &"-" 'response.write sresultado if lSecenekID = 0 and sResultado = "NAO" then 'clicou para votar mas não escolheu opcao escolhaopcao() elseif sResultado = "SIM" then 'clicou em ver resultado mostraresultado() elseif lSecenekID <> "" and sResultado = "NAO" then 'Votou corretamente mostrageral() elseif spermite <>"S" or spermite <> "N" then 'spermite <. de s ou n semorigem() end if sub escolhaopcao() %>
E r r o


Você deve selecionar uma opção.
<% end sub %> <% sub mostraresultado() %>
Resultado da Enquete
<% graficos() end sub %> <% sub mostrageral() 'response.write "estou no mostra geral" if spermite = "S" then Set rs = Server.CreateObject("ADODB.Recordset") set rs.activeConnection = conn rs.CursorType = adOpenStatic sSQL = "SELECT * FROM respostas WHERE opcaoID = " & lSecenekID 'response.write "permite = s "& sSQL rs.Open sSQL, , , adCmdTable rs("num_votos") = rs("num_votos")+1 rs.update rs.close %>
Obrigado por participar de nossa pesquisa!
<% graficos() end if 'Se não permitido votar mais de uma vez por IP, então if spermite = "N" then Set rs = Server.CreateObject("ADODB.Recordset") set rs.activeConnection = conn rs.CursorType = adOpenStatic sSQL = "SELECT IP FROM votos WHERE IP ='" & IPusuario & "' AND perguntaID = " & EnqueteID rs.Open sSQL, , , adCmdTable '---------------------------- se não encontrou o ip cria um novo e soma o voto If rs.Eof then rs.close sSQL = "SELECT * FROM votos" 'response.write "permite = n cria voto e adiciona ip "& sSQL rs.Open sSQL, , , adCmdTable rs.AddNew rs("perguntaID") = EnqueteID rs("OpcaoID") = lSecenekID rs("IP") = IPusuario rs.update rs.close sSQL = "SELECT * FROM respostas WHERE opcaoID = "& lSecenekID rs.Open sSQL, , , adCmdTable rs("num_votos") = rs("num_votos")+1 rs.update rs.close %>
Obrigado por participar de nossa pesquisa!
<% graficos() '------------------------ se o IP já existe, então não pode votar mais --------- '------------------------------------------------------------------------------- Else %>
Desculpe, mas você já votou nesta pesquisa! Veja o resultado atual.
<% graficos() '------------ finaliza o teste do IP------------------ End If '--------finaliza o if do sPermite - N end if 'fim da função end sub%> <% sub semorigem() 'se o spermite é <> de S ou N, então vem de outro lugar %>
Erro

Esta operação não pode ser executada no momento. Tente novamente mais tarde.

<% 'fim do spermite vazio end Sub%> <% sub graficos() Set rs = Server.CreateObject("ADODB.Recordset") set rs.activeConnection = conn rs.CursorType = adOpenStatic sSQL = "SELECT sum(respostas.num_votos) AS TotalRespostas From respostas WHERE perguntaID = " & EnqueteID 'response.write sSQL rs.Open sSQL, , , adCmdTable sTotaldeVotos = rs("TotalRespostas") rs.close sSQL = "SELECT * FROM respostas WHERE perguntaID = " & EnqueteID 'response.write sSQL rs.Open sSQL, , , adCmdTable 'totalização de votos no momento está desabilitada '--->>> response.write "Total de votos: " & sTotaldeVotos & " " response.write "" do while not rs.eof if sTotaldeVotos <> 0 then lYuzde = (rs("num_votos") / sTotaldeVotos) * 100 'response.write lYuzle else lYuzde = 0 end if %> <% rs.movenext loop rs.close response.write "
<%=rs("OpcaoTexto")%> <%=formatnumber((rs("num_votos")/sTotaldeVotos)*100,2) & "%"%>
" %>

ENQUETES ANTERIORES

<% end sub%>