Erro em asp

gtaschetto · 3 de julho de 2003

Sou iniciante em ASP e estou tentando fazer uma enquete. Só que está me retornando o seguinte erro:

ADODB.Recordset erro '800a0e7d'

A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto.

/livro/enquete.asp, line 27

Já tentei de tudo e não consegui resolver. Abaixo, vai o código da página.


<%option explicit%>
<%Function linha(largura)  
Dim x  
response.write "<img src='images/barral.gif'>"  
for x = 1 to largura  
  response.write "<img src='images/barrameio.gif'>"
next  
response.write "<img src='images/barrad.gif'>"
End Function

Dim conn, rs
Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=d:\web\pokeplanet\www\livro\bd\cadastros.mdb"
Set rs = Server.CreateObject("ADODB.RecordSet")%>
<html><body>
<%Dim total, op(2), porc(2)
if not isempty(Request.QueryString("enq")) then
  rs.open "update enquete set votos=votos+1 where idopcao=" & request.querystring("enq")
end if
rs.open  ("select sum(votos) from enquete")
total = rs(0)
rs.open  ("select votos from enquete where id=1")
op(0) = rs(0)
rs.open  ("select votos from enquete where id=2")
op(1) = rs(0)
rs.open  ("select votos from enquete where id=3")
op(2) = rs(0)
porc(0) = (op(0)*total)/100
porc(1) = (op(1)*total)/100
porc(2) = (op(2)*total)/100
rs.close
set conn = nothing
%>
<form name="enquete" action="enquete.asp" method="get">
<font face="verdana" size="1">


O Tiririca é feio?</p>


<input type="radio" name="enq" value="1"> Sim!</p>


<input type="radio" name="enq" value="2"> Lógico que sim!</p>


<input type="radio" name="enq" value="3"> Sem sombra de dúvidas!</p>


<input type="SUBMIT" VALUE="Votar"></p>


Resultados parciais:</p>




Sim! - <%=op(0)%><%linha(porc(0))%><%=porc(0)%>%</p>


Lógico que sim! - <%=op(1)%><%linha(porc(1))%><%=porc(1)%>%</p>


Sem sombra de dúvidas! - <%=op(1)%><%linha(porc(2))%><%=porc(2)%>%</p>
</form>
</body>
</html>

Agradeço de coração quem me ajudar

Grustyn · 17 de julho de 2003

Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=d:\web\pokeplanet\www\livro\bd\cadastros.mdb"

NO TRECHO ACIMA SEPARE CONN.OPEN

rs.open "update enquete set votos=votos+1 where idopcao=" & request.querystring("enq")

NO TRECHO ACIMA você TEM Q FAZER UMA ALTERACAO, A NOVA FRASE ficaria ASSIM

enquete = Request.QueryString("enq")

votos = cInt(RS("votos")) + 1

rs.open "update enquete set votos=" & votos & "where idopcao=" & enquete

se não der certo dá um toke q eu tento de novo, é q eu nem testei, tipo eu to vendo só...