Enquete
Olá...Pessoal, não estou conseguindo terminar minha enquete.... alguem pode me ajudar, por favor???EStá dando um erro:enquete.asp
> <%'define as variáveis que serão usadas na códigodim ja_votou , u_input , cn , rs , sql , u_ip , contador , total_votos'Duas variáveis são passadas gravadas no banco de dados'u_input = é o valor se o usuario entrou uma resposta para a questão'IP = é o endereço IP do usuariou_input=request.form("u_input")'pega o endereço IP do usuariou_ip=request.servervariables("remote_addr")' Se o usuário não entrou um valor para a questão então vamos mostrar ' a questão a relação de opções possíveis para respostaif u_input = "" then%><form method="post" action="enquete_resp.asp"> <p><font color="#0033FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> Você gostaria que o site tivesse mais artigos sobre:</strong></font></p> <p> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <input type="radio" value="1" name="u_input"> <font color="#0033FF">vb script:window.close()">Fechar</a></font></a></font></b></p></form><%else' Se o usuario entrou uma escolha na enquete' verifica se o seu IP já foi registrado no BD 'Usei um provedor OLE DB para efetuar a conexão com o banco de daos enquetes.mdb'poderia ter usado cn="driver={Microsoft Access Driver (*.mdb)};" mas não a performance do provedor OLE DB é melhorcn= "Provider=SQLOLEDB.1;Password=xxx;Persist Security Info=True;User ID=x;Initial Catalog=x;Data Source=xxx"'criei um recordset ADO e selecionei o número ip da tabela enquete1 que fosse igual ao ip do usuário atualset rs = server.createobject("ADODB.Recordset")sql = "select ip from votos where ip ='" & u_ip & "'"'executei a consulta sql rs.Open sql, cn'se o recordset estiver vazio o usuário ainda não votouif rs.eof then ' Se o usuario nao votou antes beleza atribuo o valor No a variável ja_votou ja_votou="No"end if'fecha o recordsetrs.closeif ja_votou = "No" then ' Se o usuario não votou então vamos gravar o voto no bd usando uma instrução SQL INSERT INTO sql = "insert into votos (ip, opcao" & u_input &") " sql = sql & "values ('" & u_ip & "',1)" 'efetiva a gravação no banco de dados rs.Open sql, cnend if'Vamos fazer um resumo e a estatistica dos votos por opção e calcular o total de votossql= "select sum(opcao1) as soma_opcao1, " sql= sql & "sum(opcao2) AS soma_opcao2, sum(opcao3) AS soma_opcao3, count(*) AS total_votos "sql= sql & "FROM votos;"rs.Open sql, cn'totaliza os votos por opção e armazena nas variáveis definidastotal1=rs ("soma_opcao1")total2=rs ("soma_opcao2")total3=rs ("soma_opcao3")'obtem o total de votos do recodset geradocontador=rs ("total_votos")end if%>
enquete_resp.asp
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="56%" id="AutoNumber1"> <tr> <td width="136%" bgcolor="#FFFFFF" align="left" colspan="3"> <font color="#0033FF" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> Você gostaria que o site tivesse mais artigos sobre:</strong></font></td> </tr> <tr> <td width="136%" bgcolor="#E8E8E8" align="left"><strong> <font face="Verdana" size="1" color="#0033FF"> opção </font></strong></td> <td width="27%" bgcolor="#E8E8E8" align="left"> <p align="left"><font face="Verdana" size="1" color="#0033FF"><strong> Votos </strong></font></td> <td width="75%" bgcolor="#E8E8E8" align="left"><strong style="font-weight: 400"><font face="Verdana" size="1"> Percentual</font></strong></td> </tr> <tr> <td width="136%"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"> <strong> VB 5/6</strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total1%></font></td> <td width="75%"><font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/red.jpg" height="10" width="<%= (total1/contador)100 %>"> <%= formatnumber((total1/contador)100,1) %>% </strong></font></td> </tr> <tr> <td width="136%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <font color="#0033FF">VB .NET </font></strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total2%></font></td> <td width="75%"><font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/yellow.jpg" height="10" width="<%= (total2/contador)100 %>"> <%= formatnumber((total2/contador)100,1) %>% </strong></font></td> </tr> <tr> <td width="136%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> <font color="#0033FF">ASP </font></strong></font></td> <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total3%></font></td> <td width="75%"><font face="Verdana" size="2"><strong style="font-weight: 400"> <img src="images/green.jpg" height="10" width="<%= (total3/contador)100 %>"> <%= formatnumber((total3/contador)100,1) %>% </strong></font></td> </tr></table><br><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Total dos Votos : <%= formatnumber(contador,0,0) %></font><p> <font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <% if ja_votou <> "No" then %> Você já votou !!! seu voto <b>NÃO</b> foi contado. <% else %> </font></p> <p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Obrigado por participar !! <% end if %> </font></p>
Obrigada
Discussão (25)
Carregando comentários...