Erro ADODB.Field (0x800A0BCD) Either BOF or EOF is True, or the curren

[talita.jehle 0]

Bom dia !!!

Alguem poderia me da uma ajudinha!!! Tenho este codigo em asp que esta dando o seguinte erro:

Error Type:

ADODB.Field (0x800A0BCD)

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/sistemas/SolutionsH/PC/cliente_proposta_extensao_confirmar.asp, line 42

 

A linha 42 é o codigo: atendente = rsAtendentes("atendente")

 

<%option explicit%>

<!-- #include file="../conexao.asp" -->

<!-- #include file="sessao_verificar.asp"-->

<%

Dim sql, rsAtendentes, codigoClienteAFV, nomeCliente, codigoEquipamento, destino, destJanela, RS

Dim TotOuro, totPlatina, totPrata, totBronze, descDestino, codProposta, nomeContato, telefone

Dim parcelas, atendente, descontoPlatina, DescontoOuro, DescontoPrata, DescontoBronze

Dim total, observacao

 

codigoClienteAFV = session("codigoClienteAFV")

nomeCliente = session("nomeCliente")

codigoEquipamento = Request("equipamento")

destino = request("destino")

destJanela = "'cliente_dados.asp'" 'Passa parametro para consultar dados de cliente num POP.

 

nomeContato = request("nome")

telefone = request("telefone")

parcelas = request("parcelas")

Observacao = replace(Request("Observacao"), """", "'")'Troca todas aspas duplas por aspas simples. Pois a primeira aspa dupla fecha a string dentro do value. Perdendo as informações restantes.

 

descontoplatina = formatCurrency( Request("desconto_platina") )

descontoouro = formatCurrency( Request("desconto_ouro") )

descontoprata = formatCurrency( Request("desconto_prata") )

descontobronze = formatCurrency( Request("desconto_bronze") )

total = Request("total")

 

Select Case destino

Case "propadesao"

destino = "cliente_proposta_extensao_gravar.asp?destino=propadesao&tipo=1"

descDestino = "Adesão"

Case "propupgrade"

destino = "cliente_proposta_extensao_gravar.asp?destino=propupgrade&tipo=2"

descDestino = "Upgrade"

' Case "proprenovacao"

' destino = "proposta_extensao_renovacao.asp?destino=proprenovacao&tipo=3"

' descDestino = "Renovação"

End Select

 

sql = "SELECT * FROM atendentes WHERE login = '" & login & "'"

Set rsAtendentes = DataConn.Execute(sql)

 

atendente = rsAtendentes("atendente")

%>

 

 

Alguem sabe me dizer como corrigir este erro!!!

 

 

Obrigada

[Mário Monteiro 179]

voce tem de testar se encontrou algo senão dá erro quando usa algo que não achousql = "SELECT * FROM atendentes WHERE login = '" & login & "'"Set rsAtendentes = DataConn.Execute(sql)IF NOT rsAtendentes.EOF THENatendente = rsAtendentes("atendente")ELSEatendente = "<<Vazio>>"END IF

[talita.jehle 0]

voce tem de testar se encontrou algo senão dá erro quando usa algo que não achousql = "SELECT * FROM atendentes WHERE login = '" & login & "'"Set rsAtendentes = DataConn.Execute(sql)IF NOT rsAtendentes.EOF THENatendente = rsAtendentes("atendente")ELSEatendente = "<<Vazio>>"END IF

Oi Amigo!!!!Obrigada pela ajuda!!!!!!!!! Funcionou direitinho!!!!!!!!!!!!Obrigaduuuuuuuuuuuuuuuuuuuuuuuuuuu mesmmmmmmmmoooooooooooooooooooooo.....Estou aprendendo asp agora em um estagio, eu cuido da intranet e acabei me deparando com este problema....você me salvou....rs............... :natalbiggrin: :natalhappy: :nataltongue:

[Mário Monteiro 179]

parabens e boa sorte em seus estudos http://forum.imasters.com.br/public/style_emoticons/default/joia.gif