USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  colocando uma enquete no site
Postada em 3/5/2004 por Martini         
****tabelas
Enquetes
   Codigo da enquete
   Pergunta
   Ativo
Enquetes_alternativas
   Codigo da alternativa
   Codigo da enquete
   Alternativa
   Votos

**** formulário da enquete e SQL para colocar pergunta e alternativas nos campos
Obs.: os campos das alternativas "radio" devem ter o mesmo nome e o seu valor será o código de cada alternativa do banco de dados
<%
  'enquete
  SQL4 = "SELECT Enquetes.[Codigo da enquete], Enquetes.Pergunta, Enquetes_alternativas.[Codigo da alternativa], Enquetes_alternativas.Alternativa FROM Enquetes INNER JOIN Enquetes_alternativas ON Enquetes.[Codigo da enquete] = Enquetes_alternativas.[Codigo da enquete] WHERE (((Enquetes.Ativo)=-1)) ORDER BY Enquetes_alternativas.[Codigo da alternativa];"
  Set rst4 = server.createobject("adodb.recordset")
  rst4.open SQL4, vgdb, 1, 1       
%>

<form action="Enquete_Resultado.asp?Enquete=<% = rst4("Codigo da enquete") %>" method="post" name="form1" target="Default_principal">
              <table width="100%" border="0" bgcolor="#C8EFFB">
                <%
                                             if rst4.eof then
                                                  Pergunta = "Sem Enquete"
                                                  Alter1 = "Nada"
                                                  Alter2 = "Nada"
                                                  Alter3 = "Nada"
                                                  CodAlter1 = 0
                                                  CodAlter2 = 0
                                                  CodAlter3 = 0
                                             else
                                                  Pergunta = rst4("Pergunta")
                                                  Alter1 = rst4("Alternativa")
                                                  CodAlter1 = rst4("Codigo da alternativa")
                                                  rst4.movenext
                                                  if rst4.eof then
                                                       Alter2 = "Nada"
                                                       CodAlter2 = 0
                                                  else
                                                       Alter2 = rst4("Alternativa")
                                                       CodAlter2 = rst4("Codigo da alternativa")
                                                       rst4.movenext                                                  
                                                       if rst4.eof then
                                                            Alter3 = "Nada"
                                                            CodAlter3 = 0
                                                       else
                                                            Alter3 = rst4("Alternativa")
                                                            CodAlter3 = rst4("Codigo da alternativa")
                                                            rst4.movenext                                        
                                                       end if                                                                                
                                                  end if
                                             end if
                                        %>
                <tr>
                  <td colspan="2"><font class="TextoPadraoAzulEscuro"><strong>
                    <% = Pergunta %>
                    </strong></font></td>
                </tr>
                <tr>
                  <td width="15%"><input type="radio" name="Alternativa" value="<% = CodAlter1 %>"></td>
                  <td width="85%"><font class="TextoPadraoAzulEscuro">
                    <% = Alter1 %>
                    </font></td>
                </tr>
                <tr>
                  <td><input type="radio" name="Alternativa" value="<% = CodAlter2 %>"></td>
                  <td><font class="TextoPadraoAzulEscuro">
                    <% = Alter2 %>
                    </font></td>
                </tr>
                <tr>
                  <td><input type="radio" name="Alternativa" value="<% = CodAlter3 %>"></td>
                  <td><font class="TextoPadraoAzulEscuro">
                    <% = Alter3 %>
                    </font></td>
                </tr>
                <tr>
                  <td colspan="2" align="center"> <input type="submit" name="Submit" value="Votar" class="Botao">
                  </td>
                </tr>
              </table>
            </form>

*** arquivo que mostra resultado parcial após usuário votar
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Conexao_bd.asp" -->
<%
     on error resume next
  Dim SQL, rst, Alternativa, Enquete, rst1, SQL1, TotalVotos
     Alternativa = Request("Alternativa")
     Enquete = request("Enquete")
     vgdb.execute "Update Enquetes_alternativas Set Votos = Votos + 1 Where Enquetes_alternativas.[Codigo da alternativa] = " & Alternativa
     SQL = "SELECT Enquetes.[Codigo da enquete], Enquetes.Pergunta, Enquetes_alternativas.[Codigo da alternativa], Enquetes_alternativas.Alternativa, Enquetes_alternativas.Votos FROM Enquetes INNER JOIN Enquetes_alternativas ON Enquetes.[Codigo da enquete] = Enquetes_alternativas.[Codigo da enquete] WHERE (((Enquetes.[Codigo da enquete])=" & Enquete & ")) ORDER BY Enquetes_alternativas.[Codigo da alternativa];"
     Set rst = server.createobject("adodb.recordset")
     rst.open SQL, vgdb, 1, 1  
     if rst.eof then
      rst.close
       set rst = nothing     
       Response.Write(Default.asp)
     end if          
     'total votos
     SQL1 = "SELECT Sum(Enquetes_alternativas.Votos) AS SomaDeVotos FROM Enquetes_alternativas WHERE (((Enquetes_alternativas.[Codigo da enquete])=" & Enquete & "));"
     Set rst1 = server.createobject("adodb.recordset")
     rst1.open SQL1, vgdb, 1, 1  
     if rst1.eof then
       TotalVotos = 0
     else
       TotalVotos = rst1("SomaDeVotos")
     end if     
%>
<html>
<style type="text/css">
<!--
BODY {
     SCROLLBAR-FACE-COLOR: #2769AB;
     SCROLLBAR-HIGHLIGHT-COLOR: #0099FF;
     SCROLLBAR-SHADOW-COLOR: #0099FF;
     SCROLLBAR-3DLIGHT-COLOR: #0099FF;
     SCROLLBAR-ARROW-COLOR:  #0099FF;
     SCROLLBAR-TRACK-COLOR: #ffffff;
     SCROLLBAR-DARKSHADOW-COLOR: #ffffff;
}
-->
</style>
<head>
<link rel="stylesheet" href="./Estilos.css" type="text/css">
<title>Resultado da Enquete - Locadora de Filmes</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body leftmargin="2" topmargin="2" marginwidth="22">
<table width="604" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="BordaBaixa"><font class="TextoPadraoAzulEscuro"><strong>Resultado Parcial da Enquete</strong></font></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="100%" border="0">
        <caption><font class="TextoPadraoPreto">
        <% = rst("Pergunta") %></font>
        </caption>
        <tr>
          <td><img src="Figuras/gra_base.gif" width="11" height="25"><img src="Figuras/gra_centro.gif" width="<% = rst("Votos") %>" height="25"><img src="Figuras/gra_topo.gif"><font class="TextoPadraoPreto">
            <% = rst("Alternativa") %>
            -
            <% = (int(((rst("Votos") * 100) / TotalVotos) * 10) / 10) %>
            %</font></td>
        </tr>
        <tr>
          <%
                              rst.movenext
                         %>
          <td><img src="Figuras/gra_base.gif" width="11" height="25"><img src="Figuras/gra_centro.gif" width="<% = rst("Votos") %>" height="25"><img src="Figuras/gra_topo.gif"><font class="TextoPadraoPreto">
            <% = rst("Alternativa") %>
            -
            <% = (int(((rst("Votos") * 100) / TotalVotos) * 10) / 10) %>
            %</font></td>
        </tr>
        <tr>
          <%
                              rst.movenext
                         %>
          <td><img src="Figuras/gra_base.gif" width="11" height="25"><img src="Figuras/gra_centro.gif" width="<% = rst("Votos") %>" height="25"><img src="Figuras/gra_topo.gif"><font class="TextoPadraoPreto">
            <% = rst("Alternativa") %>
            -
            <% = (int(((rst("Votos") * 100) / TotalVotos) * 10) / 10) %>
            %</font></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td align="right" class="BordaAlta"><a href="javascript:history.back()" class="LinkPadraoLista">Voltar</a></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>
<%  
  rst.close
     set rst = nothing     
  rst1.close
     set rst1 = nothing          
%>
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página