Depois que apaguei a galeria tenho este erro.

[criacaoi7 0]

Pessoal em todas as minhas páginas da minha galeria de fotos tenho este erro:

 

Detalhe... o erro começou depois que apaguei uma galeria que existia e hoje não tem nenhuma.

 

Como resolver este erro:

 

 

ADODB.Recordset erro '800a0bcd'

 

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

 

/galeriadefotos/config/listargalerias.asp, line 76

 

 

Na linha 76 eu tenho:

 

RS.MoveFirst

 

Veja código completo:

 

<%
PagAtual = Request.QueryString("PagAtual")
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\galeriafotos.mdb"
Conn.Open DSNtest
Set RS= Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Galeria ORDER BY ID desc"
RS.Open SQL, conn, 3
Const NumPorPage = 15
Dim PagAtual
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If
RS.CacheSize = NumPorPage
RS.MoveFirst
RS.PageSize = NumPorPage 
Dim TotalPages   
TotalPages = RS.PageCount
RS.AbsolutePage = PagAtual
Count = 0 
i = 0 
DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%>

[Mário Monteiro 179]

antes de imprimir conteudo ou mover entre os registros precisa testar se a consulta retornou algum resgistro

[criacaoi7 0]

Como eu faço isso?

[Mário Monteiro 179]

Em vez de

 

RS.MoveFirst

Faça

 

IF NOT RS.EOF THEN
   RS.MoveFirst
END IF

[criacaoi7 0]

Mário alterei.

 

O erro continua, mas mudou de linha, agora é a 82

RS.CacheSize = NumPorPage
IF NOT RS.EOF THEN
   RS.MoveFirst
END IF
RS.PageSize = NumPorPage 
Dim TotalPages   
TotalPages = RS.PageCount
RS.AbsolutePage = PagAtual '<<<<<<<
Count = 0 
i = 0 
DO WHILE NOT RS.EOF And Count < RS.PageSize  'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%>

[Mário Monteiro 179]

mesmo motivo poe esta linah dentro do if

 

Na verdade era melhor voce testar se veio algo

 

IF RS.EOF THEN
   Response.write("Nenhum registro encontrado")
ELSE
   Aqui voce poe todo o codigo da paginação
END IF