ADODB.Field (0x80020009)
BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.
Abaixo segue a página com o código:
<!--#INCLUDE FILE="include/noticias/adicoes/conadicoes.asp"-->
<link href="estilo/site.css" rel="stylesheet" type="text/css">
<body bgcolor="#859EAD" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% Dim sqlAdicoes, rstAdicoes
'Vamos criar o objeto Record Set, neste caso é necessário declará-lo,
'pois vamos utilizar algumas funções deste objeto
Set rstAdicoes = Server.CreateObject("ADODB.RECORDSET")
rstAdicoes.PageSize = 12 'Quantidade de registros por página. Você pode alterar sem conforme precise.
'Vamos fazer a busca na tabela contatos
sqlAdicoes = "SELECT * FROM news_Noticias WHERE Categoria = '" & ("a") & "' ORDER BY Data DESC"
rstAdicoes.Open sqlAdicoes,conadicoes,3,3
'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor
'que zero, se é maior que o número total de páginas, etc.
If rstAdicoes.EOF Then
Response.Write "Nenhum registro encontrado!"
Response.End 'Paramos o programa
Else
'Definindo em qual pagina o visitante está
If Request.QueryString("pag") = "" Then
intpagina = 1
Else
If cint(Request.QueryString("pag")) < 1 Then
intpagina = 1
Else
If cint(Request.QueryString("pag")) > rstAdicoes.PageCount Then
intpagina = rstAdicoes.PageCount
Else
intpagina = Request.QueryString("pag")
End If
End If
End If
End If
'Fim das verificações de exceções
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
rstAdicoes.AbsolutePage = intpagina
' Inicia o contador que vai controlar os registros mostrados
intrec = 0 %>
<!-- ------------------- AQUI VEM TUDO O QUE SERÁ PAGINADO ----------------------- -->
<table width="472" border="0" cellpadding="0" cellspacing="1">
<% 'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < rstAdicoes.PageSize and not rstAdicoes.EOF %>
<tr>
<td width="75" bgcolor="#698FAA"><p align="center"><strong><%=rstAdicoes("Data")%></strong></p></td>
<td width="161"><p><%=rstAdicoes("Noticia")%></p></td>
<% rstAdicoes.MoveNext %>
<td width="75" bgcolor="#698FAA"><p align="center"><strong><%=rstAdicoes("Data")%></strong></p></td>
<td width="161"><p><%=rstAdicoes("Noticia")%></p></td>
</tr>
<% rstAdicoes.MoveNext %>
</table>
<!-- ---------------------------------------------------------------------------- -->
<table width="472" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><p align="right"><strong>
<%
' Acrescenta +1 ao contador
intrec=intrec + 1
'Se for EOF (fim de arquivo), imprimir branco na tela
If rstAdicoes.EOF Then
response.write "Nada."
End If
Wend 'fim do loop
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
If intpagina > 1 Then
%>
<a href="default.asp?pag=<%=intpagina - 1%>">«« Anterior</a>
|
<%
End If
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
If strcomp(intpagina,rstAdicoes.PageCount) <> 0 then %>
<a href="default.asp?pag=<%=intpagina + 1%>">Próxima »»</a>
<% End If %>
</strong></p></td>
</tr>
</table>
<% conadicoes.Close
Set conadicoes = nothing %>
Desde já agradeço a todos que ajudarem.
