Ir para conteúdo

POWERED BY:

Arquivado

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

acfelipesilva

Paginação com problemas ASP + SQL server 2000

Por , em ASP Clássico

Recommended Posts

acfelipesilva    0

acfelipesilva
Postado

Olá gente,

 

To fazendo a paginação com o código abaixo, e agora ta dando o erro abaixo, porém se vcs verificarem eu estou abrindo o record set mais mesmo assim continua o erro, pq isso ocorre? Alguém pode me ajudar?

 

Grato,

 

ASP
<% @ LANGUAGE="VBSCRIPT" %>

<% Session.LCID = 1046 %>

<%

on error resume next

Response.Expires=0

Response.Buffer = TRUE

Response.Clear

 

'Cor da linha selecionada na tabela de registros

cor_linha_selecionada = "gainsboro"

 

Dim sql, var_tipo

 

'@ORIGEM NUMERIC = NULL

var_tipo = CInt(request("cbosituacao"))

 

'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 STP_CNSALI_3 " & var_tipo

 

obRS2.Open sql, objCmm

 

'Definimos o Numero de Paginas com a propriedade "PageSize" do objeto Recordset

obRS2.PageSize = 15

TotalRegistros = obRS2.RecordCount

 

response.Write TotalRegistros

 

'Criamos as Validações

if obRS2.eof then

  Response.Write ("Nenhum Registro Encontrado!")

  Response.Redirect("../erro_registro.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

%>

<!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</title>

<link href="../Css/css_alterado.css" rel="stylesheet" type="text/css" />

<style type="text/css">

<!--

.texto_pagina

{

font-family: Tahoma, Verdana, Arial;

font-size: 11px;

color: black;

}

 

.tabela_registros

{

width: 100%;

background-color: gray;

}

 

.titulos_registros

{

font-family: Tahoma, Verdana, Arial;

font-size: 11px;

color: black;

background-color: #CCCC33;

}

 

.exibe_registros

{

font-family: Tahoma, Verdana, Arial;

font-size: 11px;

width: 100%;

color: black;

}

 

.tabela_paginacao

{

font-family: Tahoma, Verdana, Arial;

font-size: 11px;

width: 100%;

color: gainsboro;

border-top: 1px solid gray;

background-color: gray;

}

 

.links_paginacao

{

color: white;

text-decoration: none;

}

 

.links_paginacao:hover

{

color: silver;

text-decoration: underline;

}

-->

</style>

<link href="../Css/impressao.css" rel="stylesheet" type="text/css" media="print">

</head>

<BODY bgcolor="#EFEFEF">

<fieldset>

<legend class="textosleft">Consultar Alíquotas</legend>

<br>

<TABLE border=0 cellpadding=2 cellspacing=1 class="borda" width="100%">

  <TR bgcolor="gainsboro" class="textosleft">

          <td>Tributo - Sigla</td>

          <td>Estado</td>

        <td>Município</td>

        <td>Percentual</td>

        <td>Valor Inicial</td>

        <td>Valor Máximo</td>

        <td>Dedução</td>

        <td>Dedução por Dep.</td>

        <td>Data Fim</td>

 </tr>

 <%

  'Iniciamos o Loop

  obRS2.AbsolutePage = intpagina

  intrec = 0

  While intrec < obRS2.PageSize and not obRS2.eof

 %>

 <TR class=exibe_registros onMouseOver="this.style.backgroundColor='<%=cor_linha_selecionada%>';" onMouseOut="this.style.backgroundColor='';">

  <TD align="center"><%=obRS2("tributo").Value & " - " & obRS2("sigla").Value %></TD>

  <TD align="center"><%=obRS2("estado").Value %></TD>

  <TD align="center"><%=obRS2("municipio").Value %></TD>

  <TD align="center"><%=obRS2("ali_per").Value %></TD>

  <TD align="center"><%=obRS2("ali_vlrini").Value %></TD>

  <TD align="center"><%=obRS2("ali_vlrmax").Value %></TD>

  <TD align="center"><%=obRS2("ali_vlrded").Value %></TD>

  <TD align="center"><%=obRS2("ali_vlrdeddep").Value %></TD>

  <TD align="center"><%=obRS2("Exclusão").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>

  <%

  'Criamos as Validações para a navegação "Anterior" e "Próximo"

  if intpagina > 1 then

  %>

  <a href="cad_aliquota.asp?pagina=<%=intpagina - 1%>&Adv=<%=var_tipo%>">Anterior</a>

  <%

  end if  

  if StrComp(intpagina,obRS2.PageCount)<>0 then

  %>

  <a href="cad_aliquota.asp?pagina=<%=intpagina + 1%>&Adv=<%=var_tipo%>">Próximo</a>

  <%

  end if

  obRS2.close

  Set obRS2 = Nothing

  %>  

  </td>

  </tr>

  <tr bgcolor="#EFEFEF">

  <td colspan="9" align="center"><br>

  <input name="btnvolta" type="submit" class="bthover" id="btnvolta" value="VOLTAR"onClick="history.go(-1)"></td>

  </tr>

</table>

</fieldset>

</body>

</html>

 

Erro

 

ADODB.Recordset (0x800A0E78)
Operação não permitida quando o objeto está fechado.
/sispagter/Consultas_Gerais/cad_aliquota.asp, line 34

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

retire o on error resume next do inicio do codigo e veja qual erro vai aparecer. Poste tambem somente o trecho da linha que der erro

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