4 replies to this topic

[dartvader]

Boa noite.Estou desenvolvenso um site em asp de classificados de automoveis.Tenho duas seções carros novos e carros usados.Na pagina de carros novos nao aparece nenhum veiculo, mas aparece o seguinte erro:

Encontrados: 6 automóveis estado novo ( 0 Km )

ADODB.Field error '800a0bcd'

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

/veiculos_novos.asp, line 568


JA quando entro na pagina de carros usados ela diz que foram Encontrados: 5 automóveis usado(s).
Aparece a foto e dados de tres deles e logo abaixo o erro:

ADODB.Field error '800a0bcd'

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

/veiculos_usados.asp, line 568


Onde esta o problema.Q sera q estou fazendo de errado.Alguem pode me orientar? Uso banco de dados access.

Abaixo segue o script para estudarem.Obrigado

<%
fim = 1
end if
xx=0

TotalRS = CLng(rsVeiculos.RecordCount)
TotalPg = CLng(rsVeiculos.PageCount)

Do While not rsVeiculos.eof AND xx < rsVeiculos.pagesize
xx = xx + 1

if not rsVeiculos.eof then

Ncomb = rsVeiculos.Fields("veiculo_combustivel")
if Ncomb = 1 then
comb = "Gasolina"
elseif Ncomb = 2 then
comb = "Diesel"
elseif Ncomb = 3 then
comb = "Álcool"
elseif Ncomb = 4 then
comb = "Gás"
end if

Set rsVModelo = abredb.Execute("SELECT * FROM modelos WHERE cod_modelo LIKE '"& rsVeiculos.Fields("cod_modelo") &"'")
m_modelo = rsVModelo.Fields("cod_marca")

Set rsVMarca = abredb.Execute("SELECT * FROM marcas WHERE cod_marca LIKE '"& m_modelo &"'")
m_marca = enDeCrypt(rsVMarca.Fields("marca"), pEncriptaChave)

if rsVeiculos.Fields("cod_revendedora") <> "" then
Set rsVRevenda = abredb.Execute("SELECT * FROM revendas WHERE cod_revenda LIKE '"& rsVeiculos.Fields("cod_revendedora") &"'")
v_p_r = "<img src=""img_r/"& rsVRevenda.Fields("revenda_imagem") &""" border=""0"">"
cod_p_r = "loja="& rsVRevenda.Fields("cod_revenda")
else
v_p_r = "Particular"
cod_p_r = "proprietario="& rsVeiculos.Fields("cod_proprietario")
end if
%>

[Luis Otávio]

http://forum.wmonlin...showtopic=96774

[dartvader]

Ola amigo.Tudo bem eu entendi como funciona.so nao sei onde devo inserir isto no codigo devido ser novato com o asp.Alguem pode me dar uma orientaçao?

[Agente Linhares]

brother, se vc é iniciante em asp, aconselho a comerçar com calma em sistemas menos complexos, com certeza terá um melhor aproveitamento e breve brvee estara achando fichinha sistemas mais embassado sum pouco.

mas pelo erro, com quase certeza q é q o codeou vc ta procurando um dado q nao existe ou foi deletado.


por isso q ocorre isso.

[dartvader]

Amigo valeu ja consegui arrumar.Abraços galera e obrigado