none
Erro no resultado da consulta - paginação RRS feed

  • Pergunta

  • Ólá Gente,

     

    A paginação de dados dessa consulta funciona quase que perfeitamente, o problema só corre quando a consulta dá como resultado mais de 01 página, qdo clico em próximo dá erro, HTTP 500 - Erro interno do servidor... Suspeito que seja alguma coisa referente a última parte do meu código... Quem poder ajudar a desvendar esse mistério, eu agradeço muito!!!

     

    Augusto

     

    Code Snippet

     

    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
    obRS2.CursorType = 0
    obRS2.LockType = 1

    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 = 4
    TotalRegistros = obRS2.RecordCount

    'Criamos as Validações
    if obRS2.eof then
      Response.Write ("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

     

    --------------------------------------

     

    <body>
    <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>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:<%=intpagina%></td>
      </tr>
      <tr>
        <td></td>
        <td>&nbsp;</td>
        <td></td>
      </tr>
    </table>
    <table border="0" align="center" class="TProdutos">
     <tr>
      <td align="center" id="Titulo">Gerência</td>
      <td align="center" id="Titulo">Origem</td>
      <td align="center" id="Titulo">Contrato</td>
      <td align="center" id="Titulo">Advogado</td>
      <td align="center" id="Titulo">Objeto</td>
      <td align="center" id="Titulo">Jurisdição</td>
      <td align="center" id="Titulo">Data Inicial</td>
      <td align="center" id="Titulo">Data Final</td>
      <td align="center" id="Titulo">Status</td>
     </tr>
     <%
      'Iniciamos o Loop
      obRS2.AbsolutePage = intpagina
      intrec = 0
      While intrec < obRS2.PageSize and not obRS2.eof
     %>
     <tr>
      <td align="center" id="Dados"><%=obRS2("ger_den")%></td>
      <td align="center" id="Dados"><%=obRS2("vchAdv_OriCon")%></td>
      <td align="center" id="Dados"><%=obRS2("numAdv_contrato")%></td>
      <td align="center" id="Dados"><%=obRS2("At_NOME")%></td>
      <td align="center" id="Dados"><%=obRS2("vchAdv_Obj")%></td>
      <td align="center" id="Dados"><%=obRS2("vchAdv_Jurisdicao")%></td>
      <td align="center" id="Dados"><%=obRS2("vchAdv_DatIni")%></td>
      <td align="center" id="Dados"><%=obRS2("vchAdv_DatFim")%></td> 
      <td align="center" id="Dados"><%=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="Dados"></td>
      <td align="center" id="Dados">
      <%
      '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>

     

     

     

    quinta-feira, 16 de agosto de 2007 15:15