Problemas para arrumar o código!

[Wagner Bianchi 0]

Olá,

 

Tenho uma página em ASP que recupera registros de um ".mdb"; preciso adicionar ao source desta página, um código, também em ASP que faça a paginação de registros. Está dando pau!!

 

Podem me ajudar????

ASP

[*]<%

 

[*]

 

[*]Dim Coluna, Contador, sqlProd, rsProdutos

 

[*]Call abre_conexao

 

[*]

 

[*]sqlProd = "SELECT * FROM Produtos WHERE Promo = true ORDER BY Produto"

 

[*]Set RS = Server.CreateObject("AdoDb.RecordSet")

 

[*]

 

[*]nomepagina = "Index.asp.asp" 'IMPOTANTE:Coloque aqui o nome desta página.

 

[*]registros = 9

 

[*]

 

[*]RS.CacheSize = registros

 

[*]RS.PageSize = registros

 

[*]

 

[*]If RS.Eof then

 

[*]Response.Write("Nenhum registro encontrado.")

 

[*]else

 

[*]if Request.QueryString("pagina")="" then

 

[*]pagina = 1

 

[*]elseif cint(Request.QueryString("pagina"))<1 then

 

[*]pagina = 1

 

[*]elseif cint(Request.QueryString("pagina"))>RS.PageCount then

 

[*]pagina = RS.PageCount

 

[*]else pagina=Request.QueryString("pagina")

 

[*]end if

 

[*]end if

 

[*]RS.AbsolutePage = pagina

 

[*]contador = 0

 

[*]While contador<registros and not RS.eof

 

[*]response.Write("<p>")

 

[*]RS.MoveNext

 

[*]contador = contador + 1

 

[*]If RS.eof then

 

[*]Response.Write("")

 

[*]end if

 

[*]Wend

 

[*]for i=1 to RS.PageCount

 

[*]response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a> ")

 

[*]Next

 

[*]%> 

 

[*]<div align="center"><br>

 

[*] <table width="550" height="0" border="0" align="center" cellpadding="0" cellspacing="0">

 

[*] <%

 

[*]If rsProdutos.EOF Then

 

[*]  Response.Write "No momento não existem produtos em promoção, fique de olho!!!"

 

[*]Else

 

[*]  rsProdutos.MoveFirst

 

[*]  Coluna = 0

 

[*]  Contador = 0

 

[*]  While Not rsProdutos.EOF

 

[*]  %>

 

[*] <td height="200"> 

 

[*] <div align="left" id="caixa_produtos" width="200" >

 

[*] <a href=detalhe_produto.asp?id=<%=session.SessionID%>&pr=<%= rsprodutos("cod_produto")%>&x=<%=strReverse(session.SessionID)%>><font class="normal"><b><%=rsProdutos("Produto")%></b></font><br>

 

[*] <br><center><img src="images/<%= rsProdutos("URL_Imagem") %>" width="60x" border=0></center></a>

 

[*] <font class="normal"><b>R$ <%=FormatNumber(rsProdutos("VRL_Unitario"),2) %></b></font><font class="desc"><br>

 

[*] <%= rsProdutos("Descricao")%></font><br>

 

[*] <br>

 

[*] </div>

 

[*] <div id="trilha">

 

[*]   

 

[*] </div>

 

[*] </td>

 

[*] <%

 

[*]  Coluna=Coluna+1

 

[*]  If Coluna >=3 Then

 

[*]  Coluna=0

 

[*] %>

 

[*] </tr>

 

[*] <tr> 

 

[*] <%

 

[*] Contador = Contador + 1

 

[*] rsProdutos.MoveNext

 

[*] Else

 

[*] Contador = Contador + 1

 

[*] rsProdutos.MoveNext

 

[*] End If

 

[*] wend 

 

[*]end if

 

[*]%>

 

[*] </table>

 

[*] <%

 

[*]rsProdutos.Close

 

[*]Call fecha_conexao

 

[*]Set rsProdutos = Nothing

 

[*]%>

 

[*]</div>

 

[*]

 

 

 

Obrigado!!

[Mário Monteiro 179]

qual o erro??

[Wagner Bianchi 0]

Opa,ADODB.Recordset error '800a0e78' Operation is not allowed when the object is closed. /livecell/ProdutosPromocao.asp, line 15 Obrigado!!

[dark0 0]

<%

 

Dim Coluna, Contador, sqlProd, rsProdutos

Call abre_conexao

 

sqlProd = "SELECT * FROM Produtos WHERE Promo = true ORDER BY Produto"

Set RS = Server.CreateObject("AdoDb.RecordSet")

 

nomepagina = "Index.asp.asp" 'IMPOTANTE:Coloque aqui o nome desta página.

registros = 9

 

If RS.Eof then

Response.Write("Nenhum registro encontrado.")

else

 

RS.CacheSize = registros

RS.PageSize = registros

 

if Request.QueryString("pagina")="" then

pagina = 1

elseif cint(Request.QueryString("pagina"))<1 then

pagina = 1

elseif cint(Request.QueryString("pagina"))>RS.PageCount then

pagina = RS.PageCount

else pagina=Request.QueryString("pagina")

end if

end if

RS.AbsolutePage = pagina

contador = 0

While contador<registros and not RS.eof

response.Write("<p>")

RS.MoveNext

contador = contador + 1

If RS.eof then

Response.Write("")

end if

Wend

for i=1 to RS.PageCount

response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

Next

%>

<div align="center"><br>

  <table width="550" height="0" border="0" align="center" cellpadding="0" cellspacing="0">

    <%

If rsProdutos.EOF Then

  Response.Write "No momento não existem produtos em promoção, fique de olho!!!"

Else

  rsProdutos.MoveFirst

  Coluna = 0   

  Contador = 0

  While Not rsProdutos.EOF

    %>

    <td height="200">

        <div align="left" id="caixa_produtos" width="200" >

        <a href=detalhe_produto.asp?id=<%=session.SessionID%>&pr=<%= rsprodutos("cod_produto")%>&x=<%=strReverse(session.SessionID)%>><font class="normal"><b><%=rsProdutos("Produto")%></b></font><br>

        <br><center><img src="images/<%= rsProdutos("URL_Imagem") %>" width="60x" border=0></center></a>

        <font class="normal"><b>R$ <%=FormatNumber(rsProdutos("VRL_Unitario"),2) %></b></font><font class="desc"><br>

        <%= rsProdutos("Descricao")%></font><br>

        <br>

      </div>

      <div id="trilha">

        

      </div>

    </td>

    <%

    Coluna=Coluna+1

    If Coluna >=3 Then

    Coluna=0

    %>

    </tr>

    <tr>

      <%

    Contador = Contador + 1

    rsProdutos.MoveNext

    Else

    Contador = Contador + 1

    rsProdutos.MoveNext

    End If

    wend

end if

%>

  </table>

  <%

rsProdutos.Close

Call fecha_conexao

Set rsProdutos = Nothing

%>

</div>

eu troquei de lugar os comandos em vermelho... veja se resolve..

[CarlosNet 0]

cara você colocoiu o select numa variavel, setou o recordset, mas nao deu um .Open nele com o select da variavel http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

[dark0 0]

tb tem isso.posta aki a funcao abre_conexao

[Wagner Bianchi 0]

Dark,

 

Seu código mostrou esse erro:

ASP

[*]ADODB.Recordset error '800a0e78' 

 

[*]

 

[*]Operation is not allowed when the object is closed. 

 

[*]

 

[*]/livecell/ProdutosPromocao.asp, line 12 

 

[*]

 

O que será??? http://forum.imasters.com.br/public/style_emoticons/default/cry.gif http://forum.imasters.com.br/public/style_emoticons/default/cry.gif http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

Obrigado pela força!!

 

DEUS Abençoe!! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/joia.gif