ADODB.Field error '800a0bcd'

[twpesquisa 1]

Bom dia amigos,

 

o código abaixo está apresentando a seguinte mensagem de erro:

 

 

 

ADODB.Field error '800a0bcd'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /recomenda.asp, line 24

 

<%
Dim reco
Dim reco_cmd
Dim reco_numRows

Set reco_cmd = Server.CreateObject ("ADODB.Command")
   reco_cmd.ActiveConnection = MM_conexao_STRING
   reco_cmd.CommandText = "SELECT * FROM recomanda ORDER BY id ASC" 
   reco_cmd.Prepared = true

Set reco = reco_cmd.Execute
   reco_numRows = 0

Dim Repeat1__numRows
Dim Repeat1__index

   Repeat1__numRows = 10
   Repeat1__index = 0
   reco_numRows = reco_numRows + Repeat1__numRows

application("l") = (reco.Fields.Item("link").Value)
%>

 

A linha 24 é essa:

application("l") = (reco.Fields.Item("link").Value)

 

O que exatamente estou errando ??

Quem puder, favor me ajudar.

 

Abraços,

[Vinicius Ianni 189]

Testei seu codigo aqui, e não apresentou nenhum erro.

As unicas diferenças que pode ser que tenha, é que usei uma tabela do bd com vários registros, e na linha:

reco_cmd.ActiveConnection = MM_conexao_STRING

indiquei a string de conexão do db.

 

Mas como o erro diz que não achou o registro, pode ser seus parametros de conexão ao bd que não estão corretos, ou a tabela está vazia.

[twpesquisa 1]

Exatamente, a tabela esta vazia, porém não estou sabendo tratar o erro quando a table encontra-se sem registro.

Como eu poderia tratar, uma vez que a table não contenha registros ?

[xanburzum 169]

A causa mais provável, é que não há nenhum registro. utilize o

 

<%

set conn = CreateObject("ADODB.Connection")

conn.open <connection string>

set rs = conn.execute(<sql>)

if not rs.eof then

do while not rs.eof

' process

rs.movenext

loop

else

response.write "Sem registros."

end if

' ...

%>