script de enquete

arldin · Maio 26, 2009

Bom dia amigos

gostaria de uma ajuda neste script de enquete

ele funciona mais guando eu envio ele me da esta resposta

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator to inform of the time the error occurred and of anything you might have done that may have caused the error.

More information about this error may be available in the server error log.

O script e este

enquete.asp

<%

'define as variáveis que serão usadas na código

dim 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 usuario


u_input=request.form("u_input")


'pega o endereço IP do usuario
u_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 resposta
if u_input = "" then


%>
'exibe o formulário com a pergunta e as opções
'ao clicar em enviar o método post envia o formulário 
' o conjunto serverVariables inclui uma variável chamada script_name que representa o nome da página atual
' ou seja a página atual enquete.asp será submetida ao servidor

<form method="post" action="enquete.asp">
  <p><font color="#0033FF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>
  QUAL O TEMA QUE você MAIS GOSTOU?</strong></font></p>
  <p> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
<input type="radio" value="1" name="u_input">
    <font color="#0033FF">CINDERELA<br>
    <input type="radio" value="2" name="u_input" >
    CIRCO<br>
    <input type="radio" value="3" name="u_input" >
    BARBIE<br>
    <input type="radio" value="4" name="u_input">
    DALMATAS<br>
    <input type="radio" value="5" name="u_input">
    HOMEM ARANHA<br>
    <input type="radio" value="6" name="u_input">
    BRANCA DE NEVE<br>
    <input type="radio" value="7" name="u_input">
    TODOS</font></strong></font></p>
  <p> 
<input type="submit" value="Enviar" >  <b>
<font face="Verdana" size="2" color="#0000FF">
<font color="#FF0000"><A HREF=" java 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
BaseDados="enquetes.mdb" 



'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 é melhor
cn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/inetpub/wwwroot/enquete/enquetes.mdb" & BaseDados


'criei um recordset ADO e selecionei o número ip da tabela enquete1 que fosse igual ao ip do usuário atual
set rs = server.createobject("ADODB.Recordset")
sql = "select ip from enquete1 where ip ='" & u_ip & "'"


'executei a consulta sql 
rs.Open sql, cn


'se o recordset estiver vazio o usuário ainda não votou
if rs.eof then
   ' Se o usuario não votou antes beleza atribuo o valor No a variável ja_votou
   ja_votou="No"
end if

'fecha o recordset

rs.close


if 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 enquete1 (ip, opcao" & u_input &") "
   sql = sql & "values ('" & u_ip & "',1)"


   'efetiva a gravação no banco de dados
   rs.Open sql, cn
end if


'Vamos fazer um resumo e a estatistica dos votos por opção e calcular o total de votos
sql= "select distinctrow sum(opcao1) as soma_opcao1, " 
sql= sql & "sum(opcao2) AS soma_opcao2, sum(opcao3) AS soma_opcao3, "
sql= sql & "sum(opcao4) AS soma_opcao4, sum(opcao5) AS soma_opcao5,"
sql= sql & "sum(opcao6) AS soma_opcao6, sum(opcao7) AS soma_opcao7, count(*) AS total_votos "
sql= sql & "FROM enquete1;"
rs.Open sql, cn

'totaliza os votos por opção e armazena nas variáveis definidas

total1=rs ("soma_opcao1")
total2=rs ("soma_opcao2")
total3=rs ("soma_opcao3")
total4=rs ("soma_opcao4")
total5=rs ("soma_opcao5")
total6=rs ("soma_opcao6")
total7=rs ("soma_opcao7")

'obtem o total de votos do recodset gerado

contador=rs ("total_votos")


%>                            

<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>
    QUAL O TEMA QUE você MAIS GOSTOU?</strong></font></td>
  </tr>
  <tr>
    <td width="34%" 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="34%"> 
    <font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"> <strong> CINDERELA</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="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    <font color="#0033FF">CIRCO   </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="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    <font color="#0033FF">BARBIE         </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>
  <tr>
    <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    <font color="#0033FF">DALMATAS  </font></strong></font></td>
    <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total4%></font></td>
    <td width="75%">
<font face="Verdana" size="2"><strong style="font-weight: 400">  <img src="images/blue.jpg" height="10" width=
"<%= (total4/contador)*100 %>"> <%= formatnumber((total4/contador)*100,1)  %>%  
 </strong></font></td>
  </tr>
  <tr>
    <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    <font color="#0033FF">HOMEM ARANHA          </font></strong></font></td>
    <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total5%></font></td>
    <td width="75%">
<font face="Verdana" size="2"><strong style="font-weight: 400">  <img src="images/pink.jpg" height="10" width=
"<%= (total5/contador)*100 %>"> <%= formatnumber((total4/contador)*100,1)  %>%  
 </strong></font></td>
  </tr>
  <tr>
    <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    <font color="#0033FF">BRANCA DE NEVE      </font></strong></font></td>
    <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total6%></font></td>
    <td width="75%">
<font face="Verdana" size="2"><strong style="font-weight: 400">  <img src="images/grey.jpg" height="10" width=
"<%= (total6/contador)*100 %>"> <%= formatnumber((total4/contador)*100,1)  %>%  
 </strong></font></td>
  </tr>
  <tr>
    <td width="34%"> <font face="Verdana, Arial, Helvetica, sans-serif"> <strong> 
    <font color="#0033FF">TODOS     </font></strong></font></td>
    <td width="27%"><font face="Verdana, Arial, Helvetica, sans-serif" color="#0033FF"><%=total7%></font></td>
    <td width="75%">
<font face="Verdana" size="2"><strong style="font-weight: 400">  <img src="images/black.jpg" height="10" width=
"<%= (total7/contador)*100 %>">
</strong> 
<%= formatnumber((total4/contador)*100,1)  %>%    </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>
<% end if %>

alguém poderia me ajudar

Besbe já agradeço a todos

bareta · Maio 26, 2009

seu iis abre outros arquivos normalmente?

arldin · Maio 26, 2009

Sim

.Andreia. · Maio 27, 2009

Se você estiver rodando isso na web, entre em contato com o serviço contratado de hospedagem. pode ser alguma configuração deles que esteja bloqueando

arldin · Maio 27, 2009

Obrigado

arldin · Maio 27, 2009

Obrigado

Amigos deixe este script e estou com este outro

Ele funciona bem, aparece na minha pagina como queria, O que eu estou precisando agora e o sequinte

Quando vota-se ao invés de ela torna abri a pagina abri-se ao lado

Como possso fazer isto o script e este

<%
            ' Ready Poll from Internet Plus Egypt 
            ' http://www.ip-egypt.com/english
            
            ' Simply, include this file into any ASP file!
            
            ' Change the following number to any table width you want
                width = 150
            ' Set Cookies check to Yes or No (If Yes, nobody can vote twice for the same poll)
                Cookiess = "Yes"
            ' Set the path to your database
                filePath = Server.MapPath("poll.mdb")  
        
            Set oConn = Server.CreateObject("ADODB.Connection")
            oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath
            set rst=server.createobject("adodb.recordset")
            
            Query = "select Top 1 * from Poll order by PollID Desc" 
            rst.open Query, oConn, 1, 2

            If rst.EOF then
            Response.Write "<p>No poll in db</p>"
            Else
%>
<%

    If Request.Form("Submit").Count > 0 then
        If Request.Form("PollOption") <> "" then
    If (Request.Cookies("ReadyPoll")) <> rst("PollName") or Cookiess = "No" then
    Response.Cookies("ReadyPoll") = rst("PollName")
    rst("PollOption" & CInt(Request.Form("PollOption")) & "Rank") = rst("PollOption" & CInt(Request.Form("PollOption")) & "Rank") + 1
    rst("Total") = rst("Total") + 1
    rst.Update
    Msg = "Your vote was counted."
    Else
    Msg = "You have voted before!"
    End If
    Else
    Msg = "Your vote was not counted!"
    end if
    end if
    If Request.Form("Submit").Count > 0 or Request.QueryString("p") = "Results" then
%>    
    <table width=<%=width%> border="2" cellspacing="0" cellpadding="0" align="center" bordercolor="#999999" bgcolor="#999999">
    <tr>
      <td>
        <table width=<%=width%> border="0" cellspacing="1" cellpadding="1" align="center" bordercolor="#FFFFFF">
          <tr> 
            <td bgcolor="#999999"><b><font color=white><%=rst("PollQuestion")%></font></b></td>
          </tr>
          <%
    For i = 1 to rst("PollOptions")
%>
          <tr>
            <td bgcolor="#CCCCCC"> 
             <%= rst("PollOption" & i ) %></td>
          </tr>
          <tr>
            <td bgcolor="#CCCCCC"> 
             <img src=poll.gif height=10 width=<%
             If rst("Total") <> 0 then
             Response.Write ((rst("PollOption" & i & "Rank") / rst("Total")) * width)
             else
             Response.Write "0"
             end if
             %> alt="<%=rst("PollOption" & i & "Rank")%> votes: <%
              If rst("Total") <> 0 then
              Response.Write ((rst("PollOption" & i & "Rank") / rst("Total")) * 100)
              else
              Response.Write "0"
              End if
              %>%"></td>
          </tr>
          
          <%

    Next
%>
          <tr>
            <td bgcolor="#999999">
              
            <table width=<%=width%> border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="50%"><b><font size="-1" color="#FFFFFF">Total: <%=rst("Total")%></font></b></td>
                <td width="50%"><font size="-1"><b><a href="java script:history.go(-1);"><font color="#CCCCCC">Poll</font></a></b></font></td>
              </tr>
              <tr bgcolor="#CCCCCC"> 
                <td colspan="2"><font size="-2"><%=Msg%></font></td>
              </tr>
            </table>
          </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
    
<%    

    Else
    
%>

<form name="form1" method="post" action="#">
  <table width=<%=width%> border="2" cellspacing="0" cellpadding="0" align="center" bordercolor="#999999" bgcolor="#999999">
    <tr>
      <td>
        <table width=<%=width%> border="0" cellspacing="1" cellpadding="1" align="center" bordercolor="#FFFFFF">
          <tr> 
            <td bgcolor="#999999"><b><font color=white><%=rst("PollQuestion")%></font></b></td>
          </tr>
          <%
    For i = 1 to rst("PollOptions")
%>
          <tr>
            <td bgcolor="#CCCCCC"> 
              <input type="radio" name="PollOption" value=<%=i%>>
              <%= rst("PollOption" & i ) %></td>
          </tr>
          <%
    Next
%>
          <tr>
            <td bgcolor="#999999">
              <table width=<%=width%> border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="50%"> 
                    <input type="submit" name="Submit" value="Vote!">
                  </td>
                  <td width="50%"><font size="-1"><b><a href="?p=Results"><font color="#CCCCCC">Results</font></a></b></font></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</form>
<%
    End If
%>    
<%
    End If
    rst.Close
    oConn.Close

%>

Desde já agradeço a todos

Para visualizar o link e enquete

bareta · Maio 29, 2009

Quando vota-se ao invés de ela torna abri a pagina abri-se ao lado

traduz isso por favor....

arldin · Maio 30, 2009

Abri um popup

Entrar

script de enquete

Pergunta

arldin

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

arldin

Link para o comentário

Compartilhar em outros sites

.Andreia.

Link para o comentário

Compartilhar em outros sites

arldin

Link para o comentário

Compartilhar em outros sites

arldin

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

arldin

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades