Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Cesão

Sobre enquete

Por , em ASP Clássico

Recommended Posts

Cesão    1

Cesão
Postado

E ai galera,

 

então... eu tenho uma enquete no meu site que eu peguei pronta...

Essa página que vou colocar aqui seria a página de resultados das enquetes (todas)... eu gostaria que quando eu entrasse nessa página aparecesse o resultado da última enquete inserida no DB... pq quando eu entro aparece o resultado da enquete velha (a primeira inserida)...

 

jah tentei colocar "DESC" no final dos ORDER BY, mas nao funcionou... alguém me ajuda?

 

(o código da página vai abaixo):

 

ASP

[*]<!--#include file="conn/conexao.asp"-->

 

[*]<!--#include file="espiao.asp"-->

 

[*]<%Response.Expires = -1 : Response.Buffer = false 

 

[*]Response.addHeader "pragma", "no-cache"

 

[*]Response.CacheControl = "Private"%>

 

[*]<%

 

[*]'------------------------------------------------------------------------------------------------

 

[*]' Este ASP exibe os resultados de uma Enquete, e exibe no fundo outras enquetes sem ser a que

 

[*]' está a exibir os valores

 

[*]'------------------------------------------------------------------------------------------------

 

[*]

 

[*]' Obtenho o ID da pergunta da qual vou exibir os resultados

 

[*] id=request.querystring("id")

 

[*]' Se o ID estiver vazio então exibe a pergunta de data mais recente

 

[*] if isempty(id) then

 

[*] sqlend=" ORDER BY data"

 

[*] else

 

[*]' Senão exibe a pergunta do ID dado

 

[*] sqlend=" WHERE ID_enquete="& id

 

[*] end if

 

[*]' Transformo esse ID num valor númerico

 

[*] valor=cint(id)

 

[*]' Selecciono todas a pergunta do ID

 

[*] sql="SELECT * FROM enquete_pergunta "& sqlend

 

[*] set enquete_pergunta=conexao.execute(sql)

 

[*]%>

 

[*]<HTML>

 

[*]<HEAD>

 

[*]<TITLE>Yázigi Internexus - aprender é bem legal</TITLE>

 

[*]<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">

 

[*]<link href="css/style.css" rel="stylesheet" type="text/css">

 

[*]<script language="javascript" src="conn/funcoes.js"></script>

 

[*]<script language="javascript">

 

[*]// Função de Javascript que troca a action do formulário para o ASP que adicionar uma resposta e envia esse formulário

 

[*] function envia_resposta()

 

[*] {

 

[*] document.form.action='add_r.asp';

 

[*] document.form.submit();

 

[*] }

 

[*]// Função de Javascript que troca a action do formulário para o ASP que adicionar uma pergunta e envia esse formulário

 

[*] function envia_pergunta()

 

[*] {

 

[*] document.form.action='add_p.asp';

 

[*] document.form.submit();

 

[*] }

 

[*]</script>

 

[*]</HEAD>

 

[*]<script language="JavaScript" type="text/JavaScript">

 

[*]<!--

 

[*]function MM_openBrWindow(theURL,winName,features) { //v2.0

 

[*] window.open(theURL,winName,features);

 

[*]}

 

[*]//-->

 

[*]</script>

 

[*]<BODY>

 

[*]<TABLE WIDTH=710 height="100%" BORDER=0 align="center" CELLPADDING=0 CELLSPACING=0>

 

[*] <TR>

 

[*] <TD width="18" ROWSPAN=2 valign="top" background="images/bge.gif">  </TD>

 

[*] <TD height="200" valign="top" bgcolor="#FFFFFF"><!--#include file="topo.asp"--></TD>

 

[*] <TD width="18" ROWSPAN=2 valign="top" background="images/bgd.gif">  </TD>

 

[*] </TR>

 

[*] <TR>

 

[*] <TD valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">

 

[*] <tr>

 

[*] <td align="right"><img src="images/btvoltar.gif" alt="Voltar" width="92" height="44" style="cursor:hand;" onClick="java script:window.open('admin_principal.asp','_self');"></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td align="center"><table width="98%" border="0" cellspacing="0" cellpadding="0" class="tby">

 

[*] <tr>

 

[*] <td width="4%"><img src="images/tb_bry_tesq.gif" width="19" height="22"></td>

 

[*] <td width="92%"><b>GERENCIAR ENQUETES </b></td>

 

[*] <td width="4%" align="right"><img src="images/tb_bry_tdir.gif" width="19" height="22"></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td> </td>

 

[*] <td><table width="100%" border="0" align=center cellspacing="1" class="txt">

 

[*]<%

 

[*]' Se não existir pergunta do ID exibe mensagem de erro

 

[*] if enquete_pergunta.eof then

 

[*]%>

 

[*] <tr> 

 

[*] <td colspan=3 align=center class=nav>Pergunta inexistente</td>

 

[*] </tr>

 

[*]<%'Senão seleciona e exibe respostas

 

[*] else

 

[*] ' Selecciono todas as respostas dessa pergunta

 

[*] sql="SELECT * FROM enquete_respostas WHERE ID_enquete="& enquete_pergunta("ID_enquete") &" ORDER BY id_resposta"

 

[*] set enquete_respostas=conexao.execute(sql)

 

[*] ' Selecciono todas as perguntas ordenadas por data crescente

 

[*] sql="SELECT * FROM enquete_pergunta ORDER BY data"

 

[*] set perguntas=conexao.execute(sql)

 

[*] %>

 

[*] <tr>

 

[*] <td colspan=3 align=center class=nav> </td>

 

[*] </tr>

 

[*] <tr> 

 

[*]<%

 

[*]' Linha com o texto da pergunta do ID

 

[*]%>

 

[*] <td colspan=3 align=center class=nav><%=enquete_pergunta(1)%></td>

 

[*] </tr>

 

[*]<%

 

[*]' Se não tiver respostas exibe a mensagem seguinte

 

[*]%>

 

[*] <%if enquete_respostas.eof then%>

 

[*] <tr> 

 

[*] <td colspan=3 class=enquete>Nenhumas respostas existentes</td>

 

[*] </tr>

 

[*]<%

 

[*]' Se tiver respostas exibe-as

 

[*]%>

 

[*] <%else%>

 

[*] <%total=0%>

 

[*]<%

 

[*]' Enquanto as respostas não chegarem ao fim....

 

[*]%>

 

[*] <%do while not enquete_respostas.eof

 

[*]' Calculo o valor total dos Hits

 

[*] total=total+enquete_respostas("hits")%>

 

[*] <tr> 

 

[*]<%

 

[*]' Coluna com o texto da resposta

 

[*]%>

 

[*] <td width="20%" nowrap class=enquete><%=enquete_respostas(2)%></td>

 

[*]<%

 

[*]' Coluna com as imagens que compoem o grafico de barra desta resposta

 

[*]%>

 

[*] <td width="78%" class=enquete>

 

[*]<%

 

[*]' Imagem do inicio da barra

 

[*]%><img src="images/bare.gif" width="9" height="16"><%

 

[*]' Cilco for que colona o número de hits da resposta * n, sendo n=5, para dar comprimento á bala, dependendo da grossura do gif, poderá ter mais ou menos valor o n

 

[*]' Imagem do meio da barra

 

[*]n=1

 

[*] for x=0 to enquete_respostas("hits")*n%><img src="images/barm.gif" width="1" height="16"><%next

 

[*]' Imagem do Fim da barra

 

[*]%><img src="images/bard.gif" width="9" height="16"></td>

 

[*]<%

 

[*]' Valor real dos hits dessa resposta

 

[*]%>

 

[*] <td width="2%" nowrap class=enquete><%=enquete_respostas("hits")%></td>

 

[*] </tr>

 

[*]<%

 

[*]' Passo á resposta seguinte

 

[*] enquete_respostas.movenext%>

 

[*] <%loop%>

 

[*]<%

 

[*]' Linha em que exibo o valor sumatório dos hits de todas as respostas

 

[*]%>

 

[*] <tr> 

 

[*] <td width="20%" nowrap class=enquete>Total</td>

 

[*]<%

 

[*]' Coluna que exibe o grafico da barra, mesmo mecanismo das respostas descrito nas linhas anteriores

 

[*]%>

 

[*] <td width="78%" class=enquete><img src="images/bare.gif" width="9" height="16"><%for x=0 to Total*n%><img src="images/barm.gif" width="1" height="16"><%next%><img src="images/bard.gif" width="9" height="16"></td>

 

[*] <td width="2%" nowrap class=enquete><%=total%></td>

 

[*] </tr>

 

[*] <%end if%>

 

[*] </table>

 

[*]<%

 

[*]' Tabela que vai exibir outras enquetes que não a que estiver a ser exibida

 

[*]%>

 

[*] <table width="100%" align=center cellspacing="1" class="txt">

 

[*] <tr>

 

[*] <td align=center class=nav> </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td align=center class=nav><img src="images/px_y.gif" width="500" height="1"></td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td align=center class=nav> </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td align=center class=nav><b>Resultados de Enquetes anteriores</b></td>

 

[*] </tr>

 

[*]<%

 

[*]' Enquanto não chegar ao fim das perguntas....

 

[*]%>

 

[*] <%do while not perguntas.eof%>

 

[*]<%

 

[*]' Se o ID da pergunta for diferente da pergunta atual, então essa pergunta vai aparecer na lista

 

[*]%>

 

[*] <%if cint(perguntas("id_enquete"))<>cint(enquete_pergunta("ID_enquete")) then%>

 

[*] <tr class=grey2>

 

[*] <td align=center> </td>

 

[*] </tr>

 

[*] <tr onClick="java script:window.open('admin_enq_res.asp?id=<%=perguntas("id_enquete")%>','_self');" style="cursor:hand;" onMouseOver="mOvr(this,'#E1DA9E');" onMouseOut="mOut(this,'');">

 

[*]<%

 

[*]' Coluna com o texto da data com link para exibir as respostas dessa pergunta

 

[*]%>

 

[*] <td height="20">» <%=perguntas("data")%>  -  <%=perguntas("pergunta")%></td>

 

[*]<%

 

[*]' Coluna com o texto da pergunta com link para exibir as respostas dessa pergunta

 

[*]%>

 

[*] </tr>

 

[*] <%end if%>

 

[*]<%

 

[*]' Passo á pergunta seguinte

 

[*]%>

 

[*] <%perguntas.movenext%>

 

[*] <%loop%>

 

[*]<%end if%>

 

[*] </table></td>

 

[*] <td> </td>

 

[*] </tr>

 

[*] <tr>

 

[*] <td><img src="images/tb_bry_esq.gif" width="19" height="22"></td>

 

[*] <td align="center"> </td>

 

[*] <td align="right"><img src="images/tb_bry_dir.gif" width="19" height="22"></td>

 

[*] </tr>

 

[*] </table></td>

 

[*] </tr>

 

[*] </table></TD>

 

[*] </TR>

 

[*] <!--#include file="rodape.asp"-->

 

[*]</TABLE>

 

[*]<%

 

[*]conexao.Close

 

[*]Set conexao = Nothing

 

[*]%>

 

[*]</BODY>

 

[*]</HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

tentei no da linha 16, no da linha 90..mas nada adiantou

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

alguem pode me ajudar?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

esta selecionando alguma pelo menos???

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito