• 0
Sign in to follow this  
ANDRE_GUSTAVO

O que há de errado ?

Question

me ajudem, o meu codigo não esta exibindo a quantidade de registros que eu quero, coloco 15 registros pra serem exibidos, mas não funciona, esta sendo exibido todos os registros, em uma so pagina, mas esta sendo criada outras paginas e quando clico no link pra proxima pagina não esta indo pois todos estao sendo exibidos em uma so pagina.

com o codigo abaixo é mais facil de entender o que esta acontecendo.

Por favor me ajudem.

OBRIGADO.

<html>
<head><title>GIL MAQUINAS</title>
<style type="text/css">
<!--
.style8 {color: #1C584C}
.style9 {color: #FFFFFF}
body {
    margin-left: 0px;
    margin-top: 0px;
    margin-right: 0px;
    margin-bottom: 0px;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<table width="100%" cellspacing="1" cellpadding="1">
  <tr>
    <td background="images/GIL-MAQUINAS(fatias)_25.jpg"><div align="center"><span class="style8 style1"><strong>Máquinas Disponíveis</strong></span></div></td>
  </tr>
  <tr>
    <td bgcolor="#DEE7DF"><div align="center" class="style4"><span class="style5"><br />
          <span class="style8">Monocolor | Bicolor | 4-Cores | Rotativa | Guilhotinas   | Outras </span> </span><br />
      <br />
    </div></td>
  </tr>
</table>
<span class="style8 style2"><strong><span class="style9">
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''fazendo a paginação !!! 
' número de registros por página.
    Const numeroRegistros = 15
    
' mapeia o caminho 
    x = Server.MapPath("bddados/gilmaquinas.mdb")
    
' cria o objeto Conexão    
    Set Conexao = Server.CreateObject("ADODB.Connection")
    
' concatena a string do driver com o caminho    
    liga = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& x 
    
' o cursor do objeto Connection deve residir no cliente. 
' Isto equivale a dizer que a propriedade CursorLocation 
' do objeto connection é igual a adUseClient, ou se não 
' quiser utilizar as constantes do arquivo adovbs.inc, 
' use o número 3 ao invés de adUseClient. Na verdade, a 
' constante adUseClient tem o valor 3 no arquivo adovbs.inc. 
' Logo, tanto faz usar adUseClient ou 3, pois adUseClient = 3    
    Conexao.CursorLocation = 3
    
'abre a conexão    
    Conexao.Open liga
    
' cria um recordset    
    Set tabela = Server.CreateObject("ADODB.RECORDSET")

' faz o recordset usar a conexão 
    Set tabela.ActiveConnection = Conexao    
    
' número de registros por página
    tabela.PageSize = numeroRegistros

' tamanho do cache    
    tabela.CacheSize = numeroRegistros

' carrega a query na string
    strSQL = "select * from maquinasdisponiveis order by id desc;"

' executa a query    
    tabela.open strSQL

' testa se é a primeira vez
    If (request.ServerVariables("CONTENT_LENGTH") = "123" ) Then
    ' se for aponta para a primeira página e guarda que a página atual é a primeira     
        tabela.AbsolutePage = 1
        paginaAtual = 1
        
    else    
    ' caso não seja a primeira vez guarda página atual     
        paginaAtual = Cint(Request.Form("CurrentPage"))
        
    ' de acordo com a escolha a página é incrementada ou decrementada
        Select Case Request.Form("enviarecordset")
            Case "Anterior"
                paginaAtual = paginaAtual - 1
                tabela.AbsolutePage = paginaAtual 
            Case "Próxima"
                paginaAtual = paginaAtual + 1
                tabela.AbsolutePage = paginaAtual 
        End Select
    End If    
    
' imprime os registros na tela
while not tabela.EOF
%>
</span></strong></span><br>
<table width="100%" border="0" cellspacing="1" cellpadding="1">
  <tr>
    <td width="8%" background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style8 style2"><strong><span class="style9">Cód</span>.</strong></span></div></td>
    <td bordercolor="#1C584C" background="images/GIL-MAQUINAS(fatias)_04.jpg" bgcolor="#1C584C"><div align="center"><span class="style2 style9"><strong>Descrição da Máquina </strong></span></div>
        <div align="center"></div>
      <div align="center"></div></td>
  </tr>
  <tr>
    <td height="21" bgcolor="#ECECEC"><div align="center"><%=tabela.Fields("id")%> </div></td>
    <td bordercolor="#1C584C" bgcolor="#ECECEC" class="style11"><div align="left"><span class="style12"> <span > <span> </span><%=tabela.Fields("Marca")%>, <%=tabela.Fields("Modelo")%>, <%=tabela.Fields("Ano_Fabricacao")%>, <%=tabela.Fields("Formato_Padrao")%>.<br>
      <span class="style6"><font color="#FF0000"><B>R$</B></font></span></span> <font color="#FF0000"><b> </b></font></span><span class="style12"><span ><font color="#FF0000"><B><%=tabela.Fields("Valor_da_Maquina")%></B></font></span></span> |   <strong>Tipo:<font color="#9B9B9B"> </font> <span class="style12"><span ><%=tabela.Fields("Tipo")%></span></span>  </strong>|  <strong>Fotos:</strong></div></td>
  </tr>
</table>
<div align="center">
  <%
        tabela.MoveNext
wend

' total de páginas
    totalPaginas = tabela.PageCount

' fecha o recordset 
tabela.close 
' fecha a conexão
Conexao.close

' destrói os objetos
Set tabela = nothing 
Set Conexao = nothing
%>
  <br>
  <% if (paginaAtual = 0) then%>
  Página 1 de <%= totalPaginas %>
  <%else%>
  Página <%= paginaAtual %> de <%= totalPaginas %>
  <%end if%>
</div>
<form action="<% Request.ServerVariables("SCRIPT_NAME")%>" method="POST">
  <div align="center">
    <input type="hidden" name="CurrentPage" value="<%= paginaAtual %>">
   <%
If (paginaAtual = 0) Then 
%>
    <input type="submit" name="enviarecordset" value="Próxima">
    <%
elseIf (paginaAtual > 1) and (paginaAtual < totalPaginas) Then
%>
    <input type="submit" name="enviarecordset" value="Anterior">
    <input type="submit" name="enviarecordset3" value="Próxima">
    <%elseIf (paginaAtual <> totalPaginas) Then
%>
    <input type="submit" name="enviarecordset2" value="Próxima">
    <%elseIf (paginaAtual = totalPaginas) Then
%>
    <input type="submit" name="enviarecordset" value="Anterior">
    <%
End If


%>
  </div>
</form>
</body>
</html>

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this