Erro 8002009

[santind2 0]

Boa tarde,

Estou fazendo um select aninhado, só que em uma das minhas consultas está dando o seguinte erro:ADODB.Field erro '80020009' Operação não permitida quando o objeto está fechado.

Segue o código, pois realmente não estou entendendo o motivo do erro..

<%
Set TB = Server.CreateObject("ADODB.Recordset")

SQL = " select a.ID_PRODUTO, a.TXT_PRODUTO, a.TXT_CATEGORIA, a.ID_CATEGORIAS, a.ID_SUBCATEGORIAS, a.TXT_SUBCATEGORIA, a.TXT_TAMANHO "_
& " from VW_PRODUTOS a "_
& " where a.BIT_ACTIVE = 1 and a.BIT_ESGOTADO = 0 and a.BIT_HABILITADO = 1 and a.ID_SUBCATEGORIAS ='"&Request.QueryString("cod") &"' "
TB.Open SQL, Conn, 1,3

%>
<select name="tipo_produto" id="tipo_produto">
   <option value="">Selecione</option>
   <%
if not TB.EOF then
Do while not TB.EOF
%>
<option value="<%=TB("TXT_TAMANHO")%>"><%=TB("TXT_PRODUTO")%></option>
<%
TB.MoveNext : Loop
   end if
   TB.Close
%>
</select>

<%
Set TBpaginas = Server.CreateObject("ADODB.Recordset")

SQL2 = " select ID_PRODUTO, TXT_PAGINAS "_
& " from TBP_PRODUTOS "_
& " where TXT_TAMANHO LIKE '"&Request.QueryString("codp")&"' "
TBpaginas.Open SQL2, Conn, 1,3

%>
<select name="qt_paginas" id="qt_paginas">
   <%
if not TBpaginas.EOF then
Do while not TBpaginas.EOF
%>
<option value="<%=TB("ID_PRODUTO")%>"><%=TB("TXT_PAGINAS")%></option>
<%
TBpaginas.MoveNext : Loop
   else %>
      <option value="" >Sem valor</option> 
   <% end if
   TBpaginas.Close
%>
</select>

 

Valeu!!

[Vinicius Ianni 189]

Testou o Tb e o Tbpaginas separadamente ?

 

Ou o tbpaginas por acaso usa alguma referencia do tb que foi fechado por exemplo ?

 

O erro acusa alguma linha em especifico ?

[santind2 0]

E ai Vinicius..

 

Desculpa ter tomado o seu tempo..

Depois que me perguntou se eu tinha rodado separado vi que havia um erro na linha referente ao segundo select, onde deveria ter no <option>TBpaginas, estava somente TB.

 

 

De toda forma, muito obrigado pala atenção..

 

Valeu!!

 

E ai Vinicius..

 

Desculpa ter tomado o seu tempo..

Depois que me perguntou se eu tinha rodado separado vi que havia um erro na linha referente ao segundo select, onde deveria ter no <option>TBpaginas, estava somente TB.

 

 

De toda forma, muito obrigado pala atenção..

 

Valeu!!

[xanburzum 169]

qual a linha que ele gera o erro ?

[Vinicius Ianni 189]

Imagina, as vezes o erro é simples, mas estamos tão focados que passa desapercebido certas coisas.

 

Pior seria se não perguntasse e estivesse até agora se debatendo com isso. :)