Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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"](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
Carregando comentários...