De Novo As Enquetes

Himura · Junho 22, 2005

Pessoal de novo tenho problemas com as enquetes, agora eu quero fazer com que o visitante veja os resultados das enquetes anteriores mas eu nem sei por onde começar alguém pode me dar uma luz?!?!?!?!

cyberalexxx · Junho 22, 2005

por onde começar:

* Pagina listando todas as enquetes anteriores, nesta lista voce coloca um link para a pagina de resultados passando o Id da enquete via querystring

* Pagina que mostra os resultados. Nesta pagina voce recupera o valor passado via querystring na pagina anterior e faz o select no banco apenas dos registros referentes a essa ID.

Himura · Junho 22, 2005

a minha ideia é fazer uma página em que o usuário escolhe qual enquete quer ver e ao clicar sobre ela ele seja direcionado a página de resultados....

nesta página em que se escolhe a enquete eu quero que apareça todas as questões da enquete... como eu faço isso?

Himura · Junho 22, 2005

foi mal eu não

na página en que escolho a enquete eu quero que apareça todas as questoes, ou seja, todas as enquetes cadastradas até o momento

cyberalexxx · Junho 22, 2005

sql="Select * from questoes order by data desc"
set rs=conexao.execute(sql)

Do while not rs.eof
   response.write "<a href='resultados.asp?enquete=" & Rs("cod_questao") & "'>" & Rs("questao") & "</a><br>"
   Rs.MoveNext
Loop

Himura · Junho 22, 2005

meu é isso mesmo cara!

Só que agora quando clico na questão pra ir ver ele diz que não encontrou nade nesse endereço..

http://localhost/nightwish/dados/enquete/r....asp?enquete=29

eu acho que é porque eu num fiz nenhuma alteração na página resultedos, quais são as alterações que eu devo fazer?

cyberalexxx · Junho 22, 2005

crie essa pagina:

resultados.asp

<% 
Option Explicit

'Criando variáveis
Dim localbd, meubd, votosTotal, votos

'Indicando local do Banco de dados
localbd="driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("bd/bd.mdb")

'Setando conexao
set meubd=server.createobject("adodb.connection")
'Faremos dois recordset, uma para mostrar a quantidade de todos os votos
'e outro para mostrar os votos de cada opção
set votosTotal=server.createobject("adodb.RecordSet")
set votos=server.createobject("adodb.RecordSet")

meubd.Open localbd
'Agora a SELECT dos votos individuais
votos.open "SELECT * from Votos, questoes where votos.cod_questao=" & request("enquete") & " and votos.cod_questao = questoes.cod_questao order by data desc", meubd
'Fazendo a SELECT do total de votos
votosTotal.open "SELECT sum(votos) as totalvotos from votos where cod_questao ="&votos.fields("cod_questao")&"", meubd

%>
<html>
<title>Sistema de Enquete</title>
<style type="text/css">
body {background: #000066; font:Arial, Helvetica 10px; color: white;}
font {color:#FFFFFF; size: 2; font:Arial, Helvetica, sans-serif}
a:link {color: white}
a:visited {color: white}
a:hover {color: red}
</style>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="200" height="250" border="0" cellpadding="1" cellspacing="2">
  <tr>
    <td height="25"><strong><font>
	<%
	'Mostrar aqui a questão 
	response.write votos.fields("questao")
	%>
    </font></strong></td>
  </tr>
  <tr>
    <td valign="top"><div align="center">
      <font><strong><font>Resultado
      - <%=votostotal.fields("totalvotos")%> votos</font></strong></font><font face="Arial, Helvetica, sans-serif">
   <font>
   <%
   dim porcentagem
   'Fazer a repetição das opções com seus votos em porcentagem
   While NOT votos.EOF
   %>
      </font></font><font>      </font>
   <table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr>
          <td><font>
    <%
    'Mostrar opção
    response.write votos.fields("opcao")
    %>
    </font></td>
        </tr>
  <%
  'Aqui será feita a conta dos votos em porcentagem
  porcentagem = votos.fields("votos")*100
  porcentagem = porcentagem / votosTotal.fields("totalvotos") 
  %>
        <tr>
          <td height="18" valign="middle"><font><img src="img.gif" width="<%=porcentagem%>%" height="10"> 
        <font>
        <%
    'Mostrar valor em porcentagem com apenas uma casa decimal
    response.write formatnumber(porcentagem,1)
    %>
       %                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       </font></font></td>
        </tr>
      </table>
   <font>
   <%
   votos.movenext
   wend
   %>
       </p>
          </font>
    </font>
       <p><font>
   <%
   'Se o voto do usuario já havia sido feito mostrar uma mensagem
   if request.querystring("status")="Invalido" then
    response.Write "<b>Você já votou hoje</b>"
   end if
   %>
      </font></p>
    </div></td>
  </tr>
</table>
</body>
</html>

Himura · Junho 22, 2005

Valeu cyberalexxx

era isso mesmo, so que ele mostra todas as enquetes, se eu não quiser ver a mais recente como eu faço, num sei se é possível mas se for...

cyberalexxx · Junho 22, 2005

Valeu cyberalexxx
era isso mesmo, so que ele mostra todas as enquetes, se eu não quiser ver a mais recente como eu faço, num sei se é possível mas se for...

faz assim na pagina que lista as enquetes:

sql="Select * from questoes order by data desc"
set rs=conexao.execute(sql)

If not rs.eof then
   Rs.MoveNext
end if

Do while not rs.eof
  response.write "<a href='resultados.asp?enquete=" & Rs("cod_questao") & "'>" & Rs("questao") & "</a><br>"
  Rs.MoveNext
Loop

Himura · Junho 22, 2005

deu certo mas quando clico na enquete da aquele mesmo erro de página não encontrada

cyberalexxx · Junho 22, 2005

da uma olhada c o link ta apontando para o arquivo correto.

vou criou o arquivo resultados.asp na mesma pasta que o link esta apontando??

Himura · Junho 22, 2005

Valeu cyberalexxx

agora toda a parte de enquete tá pronta, beleza agora vou começa com o projeto de notícias e se gostaria de que se for necessaria você me ajude também...

Obrigado Tchau

cyberalexxx · Junho 22, 2005

Noticia é bem facil:

* cadastro de noticias

* alteração / exclusão de noticias

* pagina que lista as ultimas noticias (mesma lógica da listagem das enquetes)

* pagina com detalhes da noticia (só fazer o select no banco e exibir)

Entrar

De Novo As Enquetes

Pergunta

Link para o comentário

Compartilhar em outros sites

12 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns