Backdoor Man
Posted 27/05/2003, 15:33
ADODB.Fields error '800a0cc1'
ADO não pôde encontrar o objeto na coleção correspondente ao nome ou à referência ordinal solicitada pelo aplicativo.
/login/vota.asp, line 9
Turista
Posted 27/05/2003, 15:35
Fernando Alves
Posted 27/05/2003, 16:22
Backdoor Man
Posted 28/05/2003, 14:08
<%
Set Conexao = Server.CreateObject("ADODB.Connection")
Dim Dbq
Dbq = Server.MapPath("users.mdb")
Conexao.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Dbq
%><%@Language=VBScript%>
<%response.buffer=true%>
<!--#include file="conexao.asp"-->
<html>
<head>
<title>enquete</title>
</head>
<body>
<%
strSQL = "SELECT * FROM enquetes WHERE Código="& 1
Set rsEnquete = Conexao.Execute(strSQL)
%>
<h4><%=rsEnquete("questao")%></h4>
<FORM action="vota.asp" method="POST" name="enquete">
<INPUT type="radio" name="campo" value="voto1"><%=rsEnquete("resp1")%><br>
<INPUT type="radio" name="campo" value="voto2"><%=rsEnquete("resp2")%><br>
<INPUT type="radio" name="campo" value="voto3"><%=rsEnquete("resp3")%><br>
<INPUT TYPE="image" SRC="imagem.gif">
</FORM>
</body>
</html><%@Language=VBScript%>
<%response.buffer=true%>
<!--#include file="conexao.asp"-->
<%
strSQL = "SELECT * FROM enquetes WHERE Código="& 1
Set rsEnquete = Conexao.Execute(strSQL)
If (Request.Form("campo") <> "") Then
Campo = Request.Form("campo")
Total = rsEnquete("Campo") + 1
If Request.Form("campo") = voto1 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto1 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
Else
If Request.Form("campo") = voto2 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto2 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
Else
If Request.Form("campo") = voto3 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto3 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
Else
If Request.Form("campo") = voto4 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto4 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
Else
If Request.Form("campo") = voto5 Then
Set SQL = Conexao.Execute("UPDATE enquetes SET voto5 = '"& Total &" WHERE código=1")
Response.Write "Voto realizado com sucesso! Obrigado por participar de nossa enquete!"
End If
End If
End If
End If
End If
Else
Response.Write "Voce nao escolheu nenhuma das respostas!"
End If
%>
Backdoor Man
12 Horas
Posted 29/05/2003, 19:42
andrewsmedina.com.br
Posted 30/05/2003, 11:02
Total = rsEnquete("Campo") + 1
ADODB.Recordset error - 800A0CC1 - O artigo não pode ser encontrado na coleção que corresponde ao nome. Verifique se você não esta tentando trabalhar com um RecordSet que não faz parte da coleção de registros. Isso acontece na maioria das vezes por que existe erro de ortogtafia e não confere com um campo da Base de Dados.
Backdoor Man
Posted 30/05/2003, 14:06
vlw! :devil:
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)
