Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Jorge Henrique

O q tem de errado em minha paginação!

Por , em ASP Clássico

Recommended Posts

Jorge Henrique    0

Jorge Henrique
Postado

Caros Estou fazendo um paginação simples e infelizmente ele está imprimento todos os registros na tela e não está separando por seção.Estou postando o codigo abaixo caso alguém acusar o erro e até mesmo sugestões de melhorias eu agardeçoGrato desde JáJorge Henrique<% @ Language = VBScript %><% Option Explicit Response.Expires = 0 Response.Buffer = True%><!-- #include file="bib_conexao.asp" --><%'// Declarando as constantes e variáveisConst cDBPath = "C:\Documents and Settings\Estacao11\Desktop\enter\admin\db.mdb" Dim PageSize Dim PageCount Dim PageCurrent Dim Conexao Dim RS Dim I Dim sqlpag'Relacao dos clientes (empresas) cadastrados Dim rsClientes Dim strSQL Dim strTexto, nrCateg, dtInicial, dtFinal Dim varDadosClientes Dim strSQLreg Dim rsRegistro Dim varNomeEmpresa Dim ContaRegistros Dim varDadosDescontos Dim strSQLteste'Dim strTextoDim strCnpj_cpfDim strSQLBuscaDim rsBuscar'// Quantidade de registro por páginasPageSize = 2'// Conectando a DataBaseset Conexao = Server.createobject("ADODB.Connection")Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& cDBPathstrSQL = "SELECT * FROM dados_empresa ORDER BY rz_social ASC"'// Verificando qual é a página inicialPageCurrent = 1IF Request("pg")<> " " Then PageCurrent = Cint(Request("pg"))'// Selecionando os Dadossqlpag = "SELECT * FROM dados_empresa "Call AbreConexaoSet rsClientes = Conexao.Execute(strSQL)Set RS = Server.CreateObject("ADODB.Recordset")RS.PageSize = PageSizeRS.CacheSize = PageSizeRS.CursorType = 3'// Abrindo a conexão e executando o selectRS.Open sqlpag, ConexaoPageCount = rs.PageCount%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml" xml:lang="pt" lang="pt"><head><title>Entertainment Brasil</title><meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" /><meta http-equiv="content-language" content="pt-BR" /><meta http-equiv="imagetoolbar" content="false" /><meta name="robots" content="index,follow" /><meta name="Keywords" content="" /><meta name="Description" content="" /><meta name="revisit-after" content="3 Days" /><link href="../includes/estilo.css" rel="stylesheet" type="text/css" /><link href="../includes/admin.css" rel="stylesheet" type="text/css" /></head><body><!-- MENU --><!-- #include file="../includes/menu.htm" --><!-- CONTEUDO --><div id="conteudo"><h1>Lista de Empresas</h1><div id="formulario"><h2>Buscar</h2><form method="post" action="busca.asp"> <label for="">Nome:</label> <input value="" type="text" name="nome" size="22"/><br /> <label for="">CNPJ / CPF:</label> <input value="" type="text" name="cnpj_cpf" size="22" id="" /><br /><input type="submit" value="ok" /></form></div><!-- RESULTADOS --><div id="resultados"><div id="barraResultados"><p class="left">17 Resultados para "Bares e Restaurantes"</p><p class="right"><a href="">anterior</a> | 1-10 de 17 | <a href="">próxima</a></p></div><table border="0" cellspacing="0" summary=""> <tr> <th class="tabCol1">Nome</th> <th class="tabCol2">Qt. Desc.</th> <th class="tabCol3">Adm. Descontos</th> <th class="tabCol4">Inserir Desc.</th> <th class="tabCol4">Editar</th> <th class="tabCol5">Excluir</th> </tr><% '// Verificando se existe registros IF PageCount = 0 Then Response.Write "Não existe nenhum registro!" ELSE '// Mostra a qtidade de páginas 'RS.AbsolutePage=PageCurrent ----------------------------------------ATENÇÃO Response.Write "Página:"& PageCurrent &" de "& PageCount &" " Do While Not RS.EOF And RS.AbsolutePage = PageCurrent Response.Write "Título"& RS("titulo") &" " RS.MoveNext Loop END IF RS.Close Set RS = Nothing While Not rsClientes.EOF varDadosClientes = rsClientes("id_empresa") varNomeEmpresa = rsClientes("rz_social") strSQLReg = "SELECT dados_empresa.id_empresa, Count(dados_descontos.id_empresa) AS ContaDescontos FROM dados_empresa INNER JOIN dados_descontos ON dados_empresa.id_empresa = dados_descontos.id_empresa GROUP BY dados_empresa.id_empresa HAVING (((dados_empresa.id_empresa)="& varDadosClientes &"))" Set rsRegistro = Conexao.Execute(strSQLReg) ContaRegistros ="0" IF Not rsRegistro.EOF Then ContaRegistros = rsRegistro("ContaDescontos")%> <tr> <td class="tabCol1"><%=rsClientes("rz_social") %><br /><%=rsClientes("cnpj_cpf") %></td> <td class="tabCol2"><%=ContaRegistros%> Descontos</td> <td class="tabCol3"><a href="AdmDescontos.asp?varDadosClientes=<%=varDadosClientes%>">Administrar</td> <td class="tabCol4"><a href="InserirDescontos.asp?varDadosClientes=<%=varDadosClientes%>">Inserir Desc.</a></td> <td class="tabCol4"><a href="AlteraClientes.asp?varDadosClientes=<%=varDadosClientes%>">Editar</td> <td class="tabCol5"><a href="ExcluiDadosClientes.asp?varDadosClientes=<%=varDadosClientes%>">Excluir</td> </tr><%rsClientes.MoveNextWendrsClientes.ClosersRegistro.CloseCall FechaConexaoSet rsClientes = NothingSet rsRegistro = Nothing%> </table><div id="barraResultadosFinal"><% IF PageCurrent > 1 ThenResponse.Write "<a href='admin_teste.asp?pg="& PageCurrent -1 &"'>Anterior</a> "End IF For I = 1 To PageCount IF I = PageCurrent Then Response.Write I ELSE Response.Write "<a href='admin_teste.asp?pg="& I &"'>"& I &"</a> " END IF NEXT IF PageCurrent < PageCount Then Response.Write "<a href='admin_teste.asp?pg="& PageCurrent +1 &"'>Proxima</a> " End IF%><!--<p class="right"><a href="">anterior</a> | 1-10 de 17 | <a href="">próxima</a></p>--></div></div></div> <!-- Fecha id conteudo --><!-- MENU LATERAL --><!-- #include file="../includes/menuLateralAdm.htm" --></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

fab355    0

fab355
Postado

Olá,

 

É o seguinte, eu passei um sofuco essa semana ainda pra colocar um esquema desses de paginação, mas o mais facil seria você dar uma olhada neste artigo aqui http://www.imasters.com.br/web/conteudo/co...360&codsecao=33

 

 

e mais uma dica, no artigo não diz mas se você for passar parametros para a consulta use variáveis de sessão por que fiquei altos tempo tentando resolver e era só usar session!

 

 

Acho q é isso

At+

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito