Publicado em 5 de out.

Fazendo uma enquete

Olá pessoal, estou tendo um probleminha nesse scripit, talvez seja besteira para quem entende.

A situação é o seguinte tenho 4 arquivos: conexão.asp, enquete.asp, send_enquete.asp e resultado.asp.

O que deveria acontecer, o usuário entra na pág. enquete.asp, faz a sua escolha e é direcionada para a pág send_enquete, que esta direciona o usuário para a pág. resultado.asp.

O problema é que a pág sen_enquete.asp não direciona, quando o usuário confirma o voto dá o seguinte erro

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

/enquete/send_enquete.asp, line 14

( A linha 14 da pág send_enquete.asp é conexao.execute(sql)

Estou enviando os códigos das páginas, para que possam tenter resolver o problema, após resolvido quem quiser posta aqui que eu mando todo o arquivo

Conexao.asp

'------------------------------------------------------------------------------------------

' Este ASP cria a conexão com o banco de dados sem usar DSN

'------------------------------------------------------------------------------------------

' Construo o caminho do HD do servidor que contem o banco de dados para poder fazer uma conexao ao banco de dados sem DNS

caminho=left(Server.mappath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.mappath(Request.ServerVariables("PATH_INFO")),"\"))'

Crio o objeto de conexao ADO

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&"db\enquete.mdb"

' Abro a conexão

conexao.open

enquete.asp

(

' Seleciono todas as perguntas por ordem decrescente de data

	sql="SELECT * FROM enquete_pergunta ORDER BY data DESC"

	set rs_enquete_pergunta=conexao.execute(sql)

' Seleciono todas as respostas da pergunta de data mais recente

	sql="SELECT * FROM enquete_respostas WHERE ID_enquete="&rs_enquete_pergunta(0)&" ORDER BY id_resposta "

	set rs_enquete_respostas=conexao.execute(sql)

	%>

 

<BODY BGCOLOR="#FFFFFF">

 <table width="300" border="0" class=enquete>

 <tr>

' Coluna que contem um link para poder ver os resultados desta enquete sem votar

 <td align=center bgcolor="#009999" class=nav><a href="resultados.asp?id=<%=rs_enquete_pergunta(0)%>" class=nav><font color="#FFFFFF">ENQUETE</font></a></td>

 </tr>

 <tr>

 <td>

' Formulário que vai enviar o ID da resposta para adicionar mais um hit

' Coluna que contem o texto da pergunta

<%=rs_enquete_pergunta(1)%><br>

' Enquanto houver respostas para esta pergunta....

<%do while not rs_enquete_respostas.eof%>

' Cria um conjunto de radio buttons com o valor do ID da resposta e o texto da resposta

<input selected type="radio" name="resposta" value=

"<%=rs_enquete_respostas(0)%>"><%=rs_enquete_respostas(2)%>

<%rs_enquete_respostas.movenext%>

<%loop%>

 </form>

</td>

 </tr>

 <tr>

' Coluna que contem o butão que efetua o envio do formulário para o ASP que adiciona hits ás respostas%>

<td><input type="submit" name="Submit" value=" Enviar " OnClick="document.enquete.submit()" class="formu"></td>

 </tr>

 </table>

	</BODY>

Send_enquete.asp

'------------------------------------------------------------------------------------------

' Este ASP adiciona um hit á resposta da enquete

'------------------------------------------------------------------------------------------

' Obtenho o ID da resposta a que tenho de adicionar +1 id_resposta=request.form("resposta")

' Uso esse ID para saber quantos hits essa resposta já tem

sql="SELECT ID_enquete, hits FROM enquete_respostas WHERE ID_resposta="&id_resposta

	set resposta=conexao.execute (sql)

*' Atualizo o banco de dados com o valor atual de hits + 1*	sql="UPDATE enquete_respostas set hits="&resposta("hits")+1&" WHERE id_resposta="&id_resposta

	conexao.execute(sql)

' Redireciono o browser do usuário para a página que exibe os resultados das enquetes

response.redirect "resultados.asp?id="&resposta(0)

resultado.asp

' 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%>

 <tr>

 <td colspan=3 class=nav align=center>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)

' 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

' Imagem do inicio da barra

%><img src="imgs/barraopen.gif">

' 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

' 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><font color="#009999">Total</font></td>

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

<td width="78%" class=enquete><img src="imgs/barraopen.gif"><%for x=0 to Total*n%>

<img src="imgs/barramidle.gif"><%next%>

<img src="imgs/barraclose.gif"></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 class=nav>

<tr>

<td colspan=2 align=center class=nav>Resultados de Enquetes anteriores</td>

</tr>

<tr class=grey1>

<td align=center width="29%">Data</td><td width="100%" align=center>Pergunta</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%>

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

<td align=center><a href="resultados.asp?id=<%=perguntas("id_enquete")%>" class=enquete><%=perguntas("data")%></a></td>

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

<td align=center><a href="resultados.asp?id=<%=perguntas("id_enquete")%>" class=enquete><%=perguntas("pergunta")%></a>

</td>

 </tr>

<%end if%>

' Passo á pergunta seguinte

<%perguntas.movenext%>

<%loop%>

<%end if%>

</table>

 :lol: Após resolvido me peçam que eu mando a enquete completinha.

Obrigado a todos.

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...