<% '------------------------------------------------------------------------------------------------ ' 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) %> <% ' Se não existir pergunta do ID exibe mensagem de erro if enquete_pergunta.eof then %> <%'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) %> <% ' Linha com o texto da pergunta do ID %> <% ' Se não tiver respostas exibe a mensagem seguinte %> <%if enquete_respostas.eof then%> <% ' 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")%> <% ' Coluna com o texto da resposta %> <% ' Coluna com as imagens que compoem o grafico de barra desta resposta %> <% ' Valor real dos hits dessa resposta %> <% ' Passo á resposta seguinte enquete_respostas.movenext%> <%loop%> <% ' Linha em que exibo o valor sumatório dos hits de todas as respostas %> <% ' Coluna que exibe o grafico da barra, mesmo mecanismo das respostas descrito nas linhas anteriores %> <%end if%>

Pergunta inexistente
<%=enquete_pergunta(1)%>
Nenhumas respostas existentes
<%=enquete_respostas(2)%>	<% ' Imagem do inicio da barra %><% ' 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%><%next ' Imagem do Fim da barra %>	<%=enquete_respostas("hits")%>
Total	<%for x=0 to Total*n%><%next%>	<%=total%>

<% ' Tabela que vai exibir outras enquetes que não a que estiver a ser exibida %> <% ' 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%> <% ' Coluna com o texto da data com link para exibir as respostas dessa pergunta %> <% ' Coluna com o texto da pergunta com link para exibir as respostas dessa pergunta %> <%end if%> <% ' Passo á pergunta seguinte %> <%perguntas.movenext%> <%loop%> <%end if%>

Resultados de Enquetes anteriores
Data	Pergunta
" class=enquete><%=perguntas("data")%>	" class=enquete><%=perguntas("pergunta")%>