Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] Paginação com PostGreSQL

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Paginação com PostGreSQL

 

<% @ 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>

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