Fórum Contato
  
   O portal do desenvolvedor ASP Quinta-feira - 5 de Agosto de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Erro na paginação, não tá passando para a próxima página Atualizado em 14/08/2007 ás 09:50:00

Postado em 14/08/2007 ás 09:50:00

Olá,


De um trabalho mas consegui montar a página de paginação de registros trabalhando com ASP e SQL SERVER, porém estou com uma pendência, e solicito a vocês que poderam me ajudar, me deêm um luz (rs)... Ocorre um erro quando tento passar de uma página para outra... O código está abaixo:


<% @ LANGUAGE="VBSCRIPT" %>
<%
Session.LCID = 1046
%>
<%
Dim varAdvogado, varGereg, varDireg, varAgencia, varOrigem, sql


varAdvogado = Request("Adv") '("sel_numrel")
varDireg    = Request("dirger") '("sel_numrel")
varGereg    = Request("gereg") '("sel_gereg")
varAgencia = Request("agencia")'("sel_agenc")
varOrigem = Request("origem") '("sel_advg")


if varOrigem = "0" or varOrigem = "" then
 varOrigem = ""
end if


'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 Application("strConn")


sql = " exec sp_RelatorioContratos_SIMPLIFICADO " & varAdvogado & " ," & varDireg & "," & varGereg & ",'" & varOrigem & "'," & varAgencia  


obRS2.Open sql, objCmm


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


'Criamos as Validações
if obRS2.eof then
  Mensagem = "Nenhum Registro Encontrado!"
  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
%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Relatório Completo</title>
<style>
.texto_pagina
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: dimgray;
}


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


.titulos_registros
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: white;
background-color: gray;
}


.exibe_registros
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
width: 100%;
color: dimgray;
background-color: whitesmoke;
}


.tabela_paginacao
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
width: 100%;
color: gray;
border-top: 1px solid gainsboro;
background-color: gainsboro;
}


.links_paginacao
{
color: dimgray;
text-decoration: none;
}


.links_paginacao:hover
{
color: gray;
text-decoration: underline;
}


</style>
</head>
<body class=texto_pagina>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="texto_pagina">
  <tr>
    <td width="66%"><img src="images/logo_basa.GIF" alt="" width="212" height="50"></td>
    <td width="13%">&nbsp;</td>
    <td width="21%">&nbsp;</td>
  </tr>
  <tr>
    <td class="texto_pagina">Portal Jur&iacute;dico v1.0 </td>
    <td>&nbsp;</td>
    <td>Data de Emissão:<%=date%></td>
  </tr>
  <tr>
    <td>Relat&oacute;rio de Contratos Terceirizados </td>
    <td>&nbsp;</td>
    <td>P&aacute;gina:&nbsp;&nbsp;<%=intpagina%></td>
  </tr>
  <tr>
    <td></td>
    <td>&nbsp;</td>
    <td>Total de Registros:&nbsp;&nbsp;<%=TotalRegistros%></td>
  </tr>
</table>
<br>
<table width="100%" border="0" align="center" class="tabela_paginacao">
 <tr class="titulos_registros">
  <td align="center" >Gerência</td>
  <td align="center" >Origem</td>
  <td align="center" >Contrato</td>
  <td align="center" >Advogado</td>
  <td align="center" >Objeto</td>
  <td align="center" >Jurisdição</td>
  <td align="center" >Data Inicial</td>
  <td align="center" >Data Final</td>
  <td align="center" >Status</td>
 </tr>
 <%
  'Iniciamos o Loop
  obRS2.AbsolutePage = intpagina
  intrec = 0
  While intrec < obRS2.PageSize and not obRS2.eof
 %>
 <tr class="tabela_registros" align="left">
  <td ><%=obRS2("ger_den")%></td>
  <td ><%=obRS2("vchAdv_OriCon")%></td>
  <td ><%=obRS2("numAdv_contrato")%></td>
  <td ><%=obRS2("At_NOME")%></td>
  <td ><%=obRS2("vchAdv_Obj")%></td>
  <td ><%=obRS2("vchAdv_Jurisdicao")%></td>
  <td ><%=obRS2("vchAdv_DatIni")%></td>
  <td ><%=obRS2("vchAdv_DatFim")%></td> 
  <td ><%=obRS2("statusctr")%></td>
 </tr>
 <%
  obRS2.MoveNext
  intrec = intrec + 1
  if obRS2.eof then
    response.write " "
  end if 
  Wend
 %>
 <tr>
  <td colspan="3" align="left" id="exibe_registros"></td>
  <td align="center" id="exibe_registros">
  <%
  'Criamos as Validações para a navegação "Anterior" e "Próximo"
  if intpagina>1 then
  %>
  <a href="Mostra_Relatorio.asp?pagina=<%=intpagina - 1%>">Anterior</a>
  <%
  end if
  if StrComp(intpagina,obRS2.PageCount)<>0 then 
  %>
  <a href="Mostra_Relatorio.asp?pagina=<%=intpagina + 1%>">Próximo</a>
  <%
  end if
  obRS2.close
  Set obRS2 = Nothing
  %>
  </td>
 </tr>
</table>
</body>
</html>



 


SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados