BOF EOF - Erro de Script

Bom dia galera!

Erro: ADODB.Recordset (0x800A0BCD)

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

listaprod.inc, line 80

Script:

<%
Dim lista,cat_id,cat_nome,nome,lista_produtos,msgnada,sql_produtos,objConn_produtos,rs_produtos
lista=Request.querystring("lista")
cat_id=Request.querystring("cat_id")
cat_nome=Request.querystring("cat_nome")
nome=Request.querystring("nome")
%>
<table border=0 width=99% cellpadding=10 cellspacing=10><div class="center_title_bar"><%=cat_nome%></div>
<%

SET objConn_produtos = Server.CreateObject("AdoDB.Connection")
objConn_produtos.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Projetos\banco_novo\loja.mdb"
sql_produtos = "SELECT * FROM produtos WHERE cat_id = 6 ORDER BY nome"

Set rs_produtos = objConn_produtos.Execute(sql_produtos)
col=3
if not rs_produtos.eof then
colu=1
response.write "<table><tr><td>"
while not rs_produtos.eof

Select Case lista
Case "categoria"

	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE cat_id="& cat_id &" AND disp='S' ORDER BY nome")
	msgnada = "No momento não dispomos de nenhum produto neste departamento."

Case "busca"

	set lista_produtos = lojaDB.Execute("SELECT * FROM produtos WHERE nome LIKE '%"& nome &"%' AND disp='S' ORDER BY nome")
	msgnada = "Infelizmente não localizamos nenhum produto com esse nome."

Case Else
%>

	<script>window.location="./index.asp"</script>
	<%
End Select

If lista_produtos.EOF Then
Response.Write "<tr><td align=center><h3>" & msgnada & "</h3></td></tr>"
Else
%>
<%
Dim prod_cat_id,prod_id,prod_imagem,prod_descricaop,prod_preco,malha1
malha1 = "sim"
while not lista_produtos.EOF
prod_cat_id = lista_produtos("cat_id")
prod_id = lista_produtos("id")
prod_imagem = lista_produtos("imagem")
prod_descricaop = lista_produtos("descricaop")
prod_preco = lista_produtos("preco")
%>

 <div class="details_big_box">
 <tr width=100% valign=top class=<%=malha1%>>
 <td background="imagens/fundo1.jpg" width=20% valign=center align=center>
 <img src=./imagens/<%=prod_imagem%> width="70" border=0>
 </td>
 <td background="imagens/fundo2.jpg" width=60% valign=center>
 <font size="2">
 <b>
 <%=prod_descricaop%>
 <td background="imagens/fundo3.jpg">
 </td>
 <td background="imagens/fundo4.jpg" width=20% valign=center align=center>
 <font color="white">
 <b><%=(prod_preco)%>
 </font>
 <br><br><p>
 <b><center>
 <a href="./detalheprod.asp?prod_id=<%=prod_id%>&url_comp=<%=Server.UrlEncode(Request.ServerVariables("QUERY_STRING"))%>" title="Ver descrição completa">
 <br><img src="./imagens/search.gif" border=0 ></a>
 </b>
 </td>
 </tr>
 </div>

 <%
 if colu=col then
 response.write "</td><tr><td>"
 colu=1
 else
 response.write "</td><td>"
 colu=colu+1
 end if
 rs_produtos.movenext
 wend
 response.write "</td></tr></table>"
 end if
 rs_produtos.close
 set rs_produtos=nothing

 lista_produtos.movenext
 If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If
	wend

End If
lista_produtos.Close
set lista_produtos = Nothing
%>
</table>

Se alguém puder se habilitar a me ajudar agradeço!

Abraço a todos.

Legionario