Erro (0x80020009)

[smez]

Bom Galera estou tento um problema,

o site estava funcionando tudo ok, mas o cliente mudou o banco de dados de MSSQL para ORACLE 8.0

e depois que ele fez isso começou a dar esse erro, o que pode ser

Error Type:

(0x80020009)

Exception occurred.

/clientes/biorigin/Functions/ShowBuscaLateral.asp, line 199

<% 'if (request("id_subsecao") <> "") then

if not RsFunc.EOF then

while not RsFunc.EOF

Set rs = createobject("adodb.recordset")

Set rs.activeconnection = Conn

SQL = "SELECT id_func, id_secao FROM TB_GCD_SECOES_FUNCIONALIDADE WHERE id_func="&RsFunc("id_func")&""

rs.open sql

Set rs1 = createobject("adodb.recordset")

Set rs1.activeconnection = Conn

SQL = "SELECT * FROM TB_GCD_SECOES WHERE id_secao="&rs("id_secao")&"" linha do erro

rs1.open sql

If rs("id_secao") = "24" Then

id_secao = "20"

else

id_secao = rs("id_secao")

end if

%>

o que será que esta acontecendo??

[marcos_804]

smez,

Uma das coisas que pode estar acontecendo é não haver nenhum registro para a busca e ainda assim voce tenta buscar a informação.

Ou seja:

Quando você faz o select seguinte, voce não entra na condição EOF ou BOF...

Set rs = createobject("adodb.recordset")
Set rs.activeconnection = Conn
SQL = "SELECT id_func, id_secao FROM TB_GCD_SECOES_FUNCIONALIDADE WHERE id_func="&RsFunc("id_func")
rs.open sql

E olha, não é necessario [ &"" ] no final pois voce já esta passando um inteiro.

Tente colucar o resultset acima dentro do laço de repeticao para verificar a existencia de dados da sua consulta.

Espero ter ajudado.