Busca com paginação

Reinaldo · Novembro 22, 2009

Olá pessoal,

Gostaria de um exemplo mesmo simples de sistema de busca com paginação, tenho um mas não fuinciona com a busca.

grato.

Bruno Capella · Novembro 22, 2009

é simples

se voce ja tem uma paginação que funciona e so da problema quando coloca a busca

é proque voce não está passando os parametros da busca novamente.

então ele se perde

tipo

produtos = request("prod")
pag = request.querystring("pg")
if pag = "" then
set rs = server.createObject("ADODB.RecordSet")
sql = "select * from produtos where nome like '% " & produtos & "%' "
rs.open sql, conexao, 1, 1
rs.pagesize = 50
rs.pagecache = 50
rs.absolutepage = pag

' aqui voce da o loop para exibir o resultado.


response.write("<a href='minhapagina.asp?pag=" & pag - 1 &"∏=" & produtos & "'> Voltar </a>")
response.write("<a href='minhapagina.asp?pag=" & pag + 1 &"∏=" & produtos & "'> Avançar </a>")

esse é bem simples :D

xanburzum · Novembro 22, 2009

dá uma pesquisada no lab. de script k existem varios ótimos exemplos...

Ted k' · Novembro 23, 2009

mais no exemplo do amigo, você tem que definir as querys pq assim fica mais facil!

xanburzum · Novembro 23, 2009

olha esta paginacao

<% @ LANGUAGE="VBSCRIPT" %>
<%
varCliente = Request("cbocliente")
varNome = Request("txtnome")

cor_linha_selecionada = "gainsboro"
	
'Abrimos a Conexão com o Banco
SET objCmm  = CreateObject("ADODB.Connection")
'Selecionamos todos os Produtos da Tabela
SET obRS2 = server.CreateObject("ADODB.Recordset")

obRS2.CursorLocation = 3

objCmm.open "DRIVER={PostGreSQL ANSI};SERVER=localhost; DATABASE=jr_express;UID=postgres;PWD=postgres; OPTION=3"

sql = "select * from ar where cod_cliente='" & varCliente & "' and nom_destinatario ilike '%" & varNome & "%' order by nom_destinatario asc"
 
obRS2.Open sql, objCmm

'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset
obRS2.PageSize = 25
TotalRegistros = obRS2.RecordCount

'Criamos as Validações
if obRS2.eof then
  Response.Write ("Nenhum Registro Encontrado!")
  Response.Redirect("escolha.asp")
  Response.End 
else
  'Definimos em qual pagina o visitante está
  if Request.QueryString("pagina")="" then 
   intpagina = 1
  else
   if cint(Request.QueryString("pagina"))<1 then
	intpagina = 1
   else
if cint(Request.QueryString("pagina"))>obRS2.PageCount then 
  intpagina = obRS2.PageCount
     else
  intpagina = Request.QueryString("pagina")
end if
   end if   
  end if  
    end if
	
%>

<style type="text/css">
<!--
.campo_alerta
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
border: 1px solid black;
background-color: #ffff99;
}
.texto_pagina
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: dimgray;
}

.tabela_formulario
{
width: 100%;
background-color: white;
}

.titulo_campos
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: dimgray;
background-color: whitesmoke;
}

.campos_formulario
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: dimgray;
background-color: gainsboro;
border: 1px inset;
}

.botao_enviar
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: white;
background-color: gray;
}
-->
</style>

<BODY>
<fieldset>
<legend class="textosleft">Consulta por Nome de Destinatário </legend>
<br>
<TABLE border=0 cellpadding=2 cellspacing=1 class="tabela_formulario">
  <TR class="campos_formulario">
  	<td align="center">Número da AR</td>
  	<td align="center">Destinatário</td>
	<td align="center">Código da AR</td>
	<td align="center">Código Guia</td>
	<td align="center">Bairro</td>
 </tr>
 <%
  'Iniciamos o Loop
  'obRS2.AbsolutePage = Clng("0" & intpagina)
  obRS2.AbsolutePage = Cint(intpagina)
  intrec = 0
  While intrec < obRS2.PageSize and not obRS2.eof 
 %>
 <TR class=texto_pagina onMouseOver="this.style.backgroundColor='<%=cor_linha_selecionada%>';" onMouseOut="this.style.backgroundColor='';">
 <TD style="cursor: hand" title="Mais Detalhes" onClick="self.location='resultado_nompessoa.asp?numar=<%=(obRS2("num_ar").Value)%>&cliente=<%=obRS2("cod_cliente")%>'"><%=obRS2("num_ar").Value %></TD>
  <TD><%=obRS2("nom_destinatario").Value %></TD>
  <TD><%=obRS2("cod_AR").Value %></TD>
  <TD><%=obRS2("cod_guia").Value %></TD>
  <TD><%=obRS2("dsc_bairro_destinatario").Value %></TD>
 </tr>
 <%
  obRS2.MoveNext
  intrec = intrec + 1
  if obRS2.eof then 
    response.write " " 
  end if  
  Wend 
 %>
 <tr bgcolor="#EFEFEF">
  <td colspan="9" align="center" id="Dados"><br>
  <%
  if intpagina > 1 then
  %>
  <a href="resultado_nompessoa_pesquisa.asp?pagina=<%=intpagina - 1%>&cbocliente=<%=varCliente%>&txtnome=<%=varNome%>">Anterior</a>
  <%
  end if
  if StrComp(intpagina,obRS2.PageCount)<>0 then
  %>
  <a href="resultado_nompessoa_pesquisa.asp?pagina=<%=intpagina + 1%>&cbocliente=<%=varCliente%>&txtnome=<%=varNome%>">Próximo</a>
  <%
  end if
  obRS2.close
  Set obRS2 = Nothing
  %>  </td>
  </tr>
</table>
</fieldset>
</body>

Reinaldo · Novembro 24, 2009

Preciso da ajuda de você, vou posta o codigo que estou utilizando, se poderem me mostrar a forma certa de colocar os links eu agradeço.


<!--#include file="conexao/conexao.asp" -->
<%
'pega a pagina atual
pagina = request.ServerVariables("SCRIPT_NAME")
'&"?"&request.ServerVariables("QUERY_STRING")

'numero de registros por pagina...
pageSize =5

if(len(Request.QueryString("p")) = 0 )then
 paginaAtual = 1
else
 paginaAtual = CInt(Request.QueryString("p"))
end if

' conta o numero de registros...
sql = "SELECT COUNT(*) AS total FROM tabcadastro"
set rs = conexao.execute(sql)

'total de registros
recordCount = Cint(rs("total"))

'calculamos o numero de paginas...

pageCount = Clng(recordCount / pageSize)

If pageCount < 1 then
pageCount = 1
end if

'rs.Close()


Flag1 = INT(paginaAtual / pagesize)

PI = INT(Flag1 * pagesize)

IF PI = 0 THEN
PI = 1
END IF
PF = PI + pagesize - 1

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html><!-- InstanceBegin template="/Templates/interna.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> 

<!-- InstanceBeginEditable name="doctitle" -->
<title>Toldos e Festas</title>
<script src="seleciona_cidade.js"></script>

<script>

function validar(){
form=document.getElementById('form1')
if(form.busca.value==''){
alert('Preencha o campo empresa!')
return false;
}
return true;
}

</script>

<script>
function centerWindow(URL){
window.open(URL,"Janela","width=520,height=360,top=150,left=120,scrollbars=yes,fullscreen=no")
}
</script>
<!-- InstanceEndEditable -->

<link href="estilos/css.css" rel="stylesheet" type="text/css" media="screen" />
<!-- InstanceBeginEditable name="head" -->
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>


<!-- InstanceEndEditable -->
<link href="estilos/links.css" rel="stylesheet" type="text/css" media="screen" />
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
</head>

<body>
<div id="geral">
 <div id="boxlogo">
	<div class="logotipo"><a href="home.asp"><img src="imagem/logotipo.jpg" width="331" height="99" border="0" /></a></div>
	
	<div id="banner_topo"><!-- InstanceBeginEditable name="EditRegion8" -->
 	<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0','width','450','height','99','src','filmes/banner','quality','high','pluginspage','http://www.macromedia.com/go/getflashplayer','movie','filmes/banner' ); //end AC code
</script><noscript><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="450" height="99">
 	<param name="movie" value="filmes/banner.swf" />
 	<param name="quality" value="high" />
 	<embed src="filmes/banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="450" height="99"></embed>
 	</object></noscript>
	<!-- InstanceEndEditable --></div>
 </div>
 
 <!-- InstanceBeginEditable name="EditRegion7" -->
 <div id="boxbusca">
	<form id="form1" name="form1" method="get" action="toldosepalcosx.asp">
	<input type="hidden" name="buscar" value="ok">
	<table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
 	<tr>
 	<td width="52%" class="buscatxt"><div align="center"><a href="buscaMapa.asp"><img src="imagem/bt_buscaMapa.png" width="130" height="30" border="0" /></a></div></td>
 	<td colspan="3" class="buscatxt"><div align="center"><a href="cadastrar.asp"><img src="imagem/cadastrar.png" width="130" height="30" border="0" /></a></div></td>
 	</tr>
 	<tr>
 	<td class="buscatxt"><div align="center">Empresa | Palavra Chave </div></td>
 	<td width="14%" class="buscatxt"><div align="center">Estado</div></td>
 	<td colspan="2" class="buscatxt">Cidade</td>
 	</tr>
 	<tr>
 	<td><label>
 	<div align="center">
 	<input name="busca" type="text" class="box_txt" />
 	</div>
 	</label>
 	</td>
 	<td><div align="center">
 	<%
	 sql="select * from estado order by estado_sigla"
	 set tab=conexao.execute(sql)
	 %>
 	<select name="uf" onchange="MandaID(this.value)">
 	<option value="">UF</option>
 	<%while not tab.eof%>
 	<option value="<%=tab("estado_id")%>"><%=tab("estado_sigla")%></option>
 	<%tab.movenext
	 wend
	 %>
 	</select>
 	</div></td>
 	<td width="7%"><div id="exibe_cidade">
 	<div align="center">
 	<select name="cidade">
 	</select>
 	</div>
 	</div></td>
 	<td width="27%"><div align="left">
 	<input name="Submit" type="submit" class="btn" value="Buscar" onclick="return validar()" />
 	</div></td>
 	</tr>
	</table>
	</form>
 </div>
 <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="Banner_lateral" -->
 <div id="boxpublicidade"><img src="imagem/banners/publicidade.jpg" width="120" height="583" /></div>
 <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion13" -->
 <div id="boxconteudo">
	<div id="box_texto"> <a href="home.asp">Home</a> - <span class="titulo">Toldos e palcos
		</span> 	
	<p><img src="imagem/titulos/palcosetoldos.jpg" width="172" height="12" /> 	</p>
	</div><table width="490" border="0" cellpadding="0" cellspacing="0">
 
 <%
 
 if request("buscar")="ok" then
 

varEmpresa = ( Request.Querystring("busca"))
varuf = Request.Querystring("uf")
varcidade=Request.Querystring("cidade")
sql="SELECT * FROM tabcadastro WHERE empresa Like '%"&VarEmpresa&"%' And cidade='"&varcidade&"' order by empresa asc LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize
Set rs = conexao.execute(sql)
	
	if not rs.eof then
 	
 	do while not rs.eof
 
	%>
 <tr>
	<td colspan="2" class="negritotitulo"><div align="center" id="guia"><%=rs("empresa")%></div></td>
	</tr>
 <tr>
	<td width="129" rowspan="3" bgcolor="#FFF974"><img src="<%=rs("logotipo")%>" width="115" height="45"></td>
	<td width="351" bgcolor="#FFF974" class="negritop"><%=rs("atividade")%></td>
 </tr>
 <tr>
	<td bgcolor="#FFF974"><div align="center"><%=rs("endereco")%>

	</div></td>
 </tr>
 
 <tr>
	<td bgcolor="#FFF974">E-mail:<%=rs("email")%></td>
 </tr>
 
 <tr>
	<td colspan="2" bgcolor="#FFF974"><div align="center" class="negritop">Tel:<%=rs("telefone1")%>- <%=rs("telefone2")%> - Celular:<%=rs("celular1")%>/<%=rs("celular2")%> - Fax:<%=rs("fax")%></div></td>
	</tr>
 <tr>
	<td colspan="2" bgcolor="#FFF974"><div align="center">
 	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
 	<tr>
 	<td><a href="<%=rs("site")%>" target="_blank"><img src="imagem/icones/ico_site.jpg" width="80" height="27" border="0" /></a></td>
 	<td><a href="javascript:centerWindow('sendmail.asp?clienteID=<%=rs("ID")%>')"><img src="imagem/icones/ico_email.jpg" width="80" height="27" border="0" /></a></td>
 	<td><a href="detalhes.asp?clientesID=<%=rs("ID")%>"><img src="imagem/icones/ico_detalhes.jpg" width="80" height="27" border="0" /></a></td>
 	<td><a href="localizacao.asp?id=<%=rs("ID")%>"><img src="imagem/icones/ico_mapa.jpg" width="80" height="27" border="0" /></a></td>
 	</tr>
 	</table>
 	</div></td>
	</tr>
 <tr>
	<td colspan="2" bgcolor="#ffffff"><hr size="1" color="#000000" /></td>
 </tr>
 
 <%rs.MoveNext
 Loop
else
%>
 
 <tr>
	<td colspan="2" bgcolor="#EEEEEE">
	
 	<p>Nenhum registro foi encontrado para:<span class="negritop"> <%=request.Querystring("busca")%>!</span> 	</p>
 	<p>dicas: 	</p>
 	<p>-tente palavras menos especficas;</p>
 	<p> - tente palavras-chaves diferentes; 	</p>
 	<p>- confira a ortografia das palavras e se elas foram acentuadas corretamente; </p></td>
 </tr>
 
 <%end if
 end if%>
</table>
 <%
 

'rs.Close()
'set rs = nothing
'set conexao = nothing
'&"?"&request.ServerVariables("QUERY_STRING")
Response.Write ("<B><strong> Pgina " & paginaAtual & " de " & pagecount & " </strong></B>
")
' cria os links de pagians...
IF CInt(paginaAtual) > 1 THEN
Response.Write "<a href='"&pagina&"?p=1'>Primeira</a> "
Else
Response.Write "<font color=""#ADADAD"">Primeira</font> "
END IF

if CInt(paginaAtual) > 1 then
Response.Write "<a href='"&pagina&"?p=" & paginaAtual - 1 &"'>Anterior</a> "
Else
Response.Write "<font color='#666666'>Anterior</font>  "
END IF

for i=1 to pageCount
 Response.Write("<a href='"&pagina&"?"&request.ServerVariables("QUERY_STRING")&"&p=" & i & "'>" & i & "</a>")
next
 

IF (CInt(paginaAtual) < pagecount) THEN
 	IF CInt(PF) <> pagecount THEN
 Response.Write "<a href='"&pagina&"?p=" & paginaAtual+1 & "'>Próxima</a> "
 END IF
Else
 Response.Write "<font color=""#ADADAD"">Próxima</font> "
END IF


IF (CInt(paginaAtual) <> pagecount) THEN
 	IF CInt(PF) <> pagecount THEN
 Response.Write "<a href='"&pagina&"?p=" & pagecount & "'>Última</a> "
 END IF
Else
 Response.Write "<font color=""#ADADAD"">Última</font> "
 END IF
 
%>
 

 </div>
 <!-- InstanceEndEditable --><!-- InstanceBeginEditable name="EditRegion9" -->
 <div id="navbar">
	<div id="box_categoria">
 	<div class="menu"></div>
 	<ul>
 	<li><a href="toldosepalcos.asp">Toldos & Palcos</a></li>
 	<li><a href="estofaria.asp">Estofarias & Capotarias</a></li>
 	<li><a href="promoeventos.asp">Promo & Eventos</a></li>
 	<li><a href="viagenseturismo.asp">Viagens & Turismo</a></li>
 	<li><a href="locadoraAutos.asp">Locadora de Autos</a></li>
 	<li><a href="hoteis_pousadas.asp">Hotéis & Pousadas</a></li>
 	<li><a href="restaurantes.asp">Restaurantes </a></li>
 	<li><a href="pizzarias.asp">Pizzarias</a></li>
 	<li><a href="buffets.asp">Buffets</a></li>
 	</ul>
	</div>
	<div id="bannerNav"><a href="comoanunciar.asp"><img src="imagem/banner.jpg" width="160" height="174" border="0" /></a></div>
	<div id="box_categoria2">
 	<div class="menu2"></div>
 	<ul>
 	<li><a href="home.asp">Home</a></li>
 	<li> <a href="quemsomos.asp">Quem Somos</a></li>
 	<li><a href="cadastrar.asp">Cadastrar </a></li>
 	<li><a href="comoanunciar.asp">Como Anunciar </a></li>
 	<li><a href="marketing.asp">Marketing Espontâneo </a></li>
 	<li><a href="contato.asp">Fale Conosco</a></li>
 	<li><a href="ajuda.asp">Ajuda</a></li>
 	</ul>
	</div>
 </div>
 <!-- InstanceEndEditable -->
 <div id="rodape">
	<div id="menu_rodape">
 	<ul>
 	<li><a href="toldosepalcos.asp" class="link">Toldos & Palcos</a></li>
 	|<li><a href="estofaria.asp" class="link">Estofarias & Capotarias </a>|
 	</li>
 	<li><a href="promoeventos.asp" class="link">Promo & Eventos</a></li>
 	|<li><a href="viagenseturismo.asp" class="link">Viagens & Turismo</a></li>
 	|<li><a href="locadoraAutos.asp" class="link">Locadora de Autos</a></li>
 	|<li><a href="hoteis_pousadas.asp" class="link">Hotéis & Pousadas </a></li>
 	<li><a href="restaurantes.asp" class="link">Restaurantes</a></li>
 	|<li><a href="pizzarias.asp" class="link">Pizzarias</a></li>
 	|
 	<li><a href="buffets.asp" class="link">Buffets </a></li>
	</ul>
 
 	<ul><li><a href="home.asp" class="link">Home</a></li>
 	|<li> <a href="quemsomos.asp" class="link">Quem Somos</a></li>
 	|<li><a href="cadastrar.asp" class="link">Cadastrar </a></li>
 	|<li><a href="comoanunciar.asp" class="link">Como Anunciar </a></li>
 	|<li><a href="marketing.asp" class="link">Marketing Espontâneo </a></li>
 	|<li><a href="contato.asp" class="link">Fale Conosco</a></li>
 	|<li><a href="ajuda.asp" class="link">Ajuda</a></li>
 	</ul>
 	
	</div>
 Copyright©www.toldosefestas.net</div>
 
</div>
</body>
<!-- InstanceEnd --></html>

olha esta paginacao

<% @ LANGUAGE="VBSCRIPT" %>
<%
varCliente = Request("cbocliente")
varNome = Request("txtnome")

cor_linha_selecionada = "gainsboro"
	
'Abrimos a Conexão com o Banco
SET objCmm = CreateObject("ADODB.Connection")
'Selecionamos todos os Produtos da Tabela
SET obRS2 = server.CreateObject("ADODB.Recordset")

obRS2.CursorLocation = 3

objCmm.open "DRIVER={PostGreSQL ANSI};SERVER=localhost; DATABASE=jr_express;UID=postgres;PWD=postgres; OPTION=3"

sql = "select * from ar where cod_cliente='" & varCliente & "' and nom_destinatario ilike '%" & varNome & "%' order by nom_destinatario asc"
 
obRS2.Open sql, objCmm

'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset
obRS2.PageSize = 25
TotalRegistros = obRS2.RecordCount

'Criamos as Validações
if obRS2.eof then
 Response.Write ("Nenhum Registro Encontrado!")
 Response.Redirect("escolha.asp")
 Response.End 
else
 'Definimos em qual pagina o visitante está
 if Request.QueryString("pagina")="" then 
 intpagina = 1
 else
 if cint(Request.QueryString("pagina"))<1 then
	intpagina = 1
 else
if cint(Request.QueryString("pagina"))>obRS2.PageCount then 
 intpagina = obRS2.PageCount
 else
 intpagina = Request.QueryString("pagina")
end if
 end if 
 end if 
 end if
	
%>

<style type="text/css">
<!--
.campo_alerta
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
border: 1px solid black;
background-color: #ffff99;
}
.texto_pagina
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: dimgray;
}

.tabela_formulario
{
width: 100%;
background-color: white;
}

.titulo_campos
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: dimgray;
background-color: whitesmoke;
}

.campos_formulario
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: dimgray;
background-color: gainsboro;
border: 1px inset;
}

.botao_enviar
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: white;
background-color: gray;
}
-->
</style>

<BODY>
<fieldset>
<legend class="textosleft">Consulta por Nome de Destinatário </legend>


<TABLE border=0 cellpadding=2 cellspacing=1 class="tabela_formulario">
 <TR class="campos_formulario">
 	<td align="center">Número da AR</td>
 	<td align="center">Destinatário</td>
	<td align="center">Código da AR</td>
	<td align="center">Código Guia</td>
	<td align="center">Bairro</td>
 </tr>
 <%
 'Iniciamos o Loop
 'obRS2.AbsolutePage = Clng("0" & intpagina)
 obRS2.AbsolutePage = Cint(intpagina)
 intrec = 0
 While intrec < obRS2.PageSize and not obRS2.eof 
 %>
 <TR class=texto_pagina onMouseOver="this.style.backgroundColor='<%=cor_linha_selecionada%>';" onMouseOut="this.style.backgroundColor='';">
 <TD style="cursor: hand" title="Mais Detalhes" onClick="self.location='resultado_nompessoa.asp?numar=<%=(obRS2("num_ar").Value)%>&cliente=<%=obRS2("cod_cliente")%>'"><%=obRS2("num_ar").Value %></TD>
 <TD><%=obRS2("nom_destinatario").Value %></TD>
 <TD><%=obRS2("cod_AR").Value %></TD>
 <TD><%=obRS2("cod_guia").Value %></TD>
 <TD><%=obRS2("dsc_bairro_destinatario").Value %></TD>
 </tr>
 <%
 obRS2.MoveNext
 intrec = intrec + 1
 if obRS2.eof then 
 response.write " " 
 end if 
 Wend 
 %>
 <tr bgcolor="#EFEFEF">
 <td colspan="9" align="center" id="Dados">

 <%
 if intpagina > 1 then
 %>
 <a href="resultado_nompessoa_pesquisa.asp?pagina=<%=intpagina - 1%>&cbocliente=<%=varCliente%>&txtnome=<%=varNome%>">Anterior</a>
 <%
 end if
 if StrComp(intpagina,obRS2.PageCount)<>0 then
 %>
 <a href="resultado_nompessoa_pesquisa.asp?pagina=<%=intpagina + 1%>&cbocliente=<%=varCliente%>&txtnome=<%=varNome%>">Próximo</a>
 <%
 end if
 obRS2.close
 Set obRS2 = Nothing
 %> </td>
 </tr>
</table>
</fieldset>
</body>

xanburzum · Novembro 24, 2009

implementa em cima do code k te passei, segue a lógica...

Reinaldo · Novembro 24, 2009

Ok vou ver se implemento pelo seu.

xanburzum · Novembro 24, 2009

segue a logica...

Arquivado

Busca com paginação

Recommended Posts

Reinaldo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Bruno Capella 7

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Reinaldo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Reinaldo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante