BOF EOF

[Legionáriors]

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("preço")
        %>            
        <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 = "não" 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

Editado Outubro 29, 2009 por Legionáriors

[Bicicleta]

Kara, na linha 80 do que você postou ai não tem nada pra dar erro.

Diga-nos qual a linha 80 do seu código pra ficar mais fácil...

Editado: A linha 80 do que você postou é: "colu=colu+1" e isso não gera erro de registro não existente.

Abraço.

Editado Outubro 29, 2009 por Bicicleta

[Legionáriors]

beleza fiz algumas modificações pra ver se funcionava ficou assim:

Erro:

Erro de tempo de execução do Microsoft vb 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\Lojas Adri\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("preço")
        %>            
        <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 = "não" Else malha1 = "sim" End If
    wend
End If
If lista_produtos.State <> 0 Then
lista_produtos.Close
set lista_produtos = Nothing
End If
%>
</table>

Linha do erro 35 --> If lista_produtos.EOF Then

Abraço valeu!

Legionario

[bareta]

para funcionar

If lista_produtos.EOF Then

lista_produtos deve ser um objeto... verifique se este é criado, pois no caso de um case else, vai dar erro