Erro Adodb.field (0x800a0bcd)

[paschoal]

Olá amigos,

Eu estou quebrando a cabeça com este erro, a linha de código do erro é esta abaixo:

<%

Dim file_rated

Dim file_rate_count

Dim file_rate_value

file_rate_count = rsDetail.Fields.Item("FILE_RATES").Value

file_rate_value = rsDetail.Fields.Item("FILE_RATED").Value

If file_rate_count > 0 Then

file_rated = (file_rate_value/file_rate_count)

else

file_rated = 0

end if

%>

<%

A parte em negrito é onde esta dando o erro...

Este é parte de um codigo para downloads (DUdownload), eu estou tentando coloca-lo em minha pagina.

Ele roda 100% quando não faço nenhuma auteração. Mas para que fique igual a esta pagina http://www.aspmais.hipergrana.net/alexvp/b...ts.asp?iType=14 ele dá o erro que coloquei acima.

Se faço a substituição dos seguintes arquivos ele roda sem preoblemas: inc_search.asp e search.asp (arquivos originais)

Mas não entendo o porque dele ficar dando erro no arquivo inc_detail.asp

Espero que alguém possa me ajudar...

[Graymalkin]

Quando for assim, poste a mensagem de erro ao invés do número. Nesse caso, o problema, pelo que pude perceber, é que ou a tabela está vazia, ou o registro atual foi apagado.

Abraços,

Graymalkin

[paschoal]

Graymalkin, este é o erro:

Tipo de erro:

ADODB.Field (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/HP/download/inc_detail.asp, line 636

[Graymalkin]

Exatamente, e é a mesma coisa que falei no post anterior. Sua tabela está preenchida?

Abraços,

Graymalkin

[Aspmais]

Amigo verifique se sua tabela esta com algum registro, caso esteja posta o código ai novamente e a linha que o código está dando erro.....