Sorteio de Dados... Funcionando + não 100%

[gamefe 0]

Bom pessoal, tenho um bd com 4 registros, com um campo autonumeração e outro com as frases, só que quando aperto para dar refresh, quando acabam os registros, ele da um pau...

ADODB.Field error '80020009'

 

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

 

/testando.asp, line 0

 

O endereço do script é http://www.ceitel.com.br/testando.asp

 

O código que to usando é:

 

<%Dim strCon, ConexaostrCon = "DBQ=e:\home\ceitel1\dados\frases.mdb;Driver={Microsoft Access Driver (*.mdb)};"Set Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open strConSet RS = Server.CreateObject("ADODB.Recordset")RS.Open "SELECT * FROM produtos",Conexao,3,1,1Randomizeupperbound=RS.Recordcountlowerbound=1lRandom = Int((upperbound - lowerbound + 1) * Rnd + lowerbound)RS.move lRandomResponse.Write RS("frases")RS.closeconexao.closeSet RS=NothingSet Conexao=Nothing%>

Alguém poderia me ajudar a consertar o erro?

Grato,

Gabriel

[Robex 171 0]

Ainda não sei o que se passa mas chegeui a seguinte conclusao...Rodei o seu código e fui trocando os valores dessa linha:lowerbound=1Minha tabela tem 34 registros, o código funcionou de lowerbound=1 até lowerbound=34Quando coloquei lowerbound=35, deu o seguinte erro:ADODB.Field (0x80020009)BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.Que é o mesmo erro que esta dando para você...Não se isso ajuda em algo... Mas você esta chamando a tabela certa? Essa tabela possue realmente valores?

[gamefe 0]

Ela não possui o valor 5 que chama... como faço para ficar limitado somente aos 4 valores existentes?Terei de trocar lowerbound=1 por lowerbound=4 ?Valeu....