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>
Pergunta
ANDRE_GUSTAVO
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>Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.