ERRO NA EXIBICAO DE CAMPOS VAZIOS
tenho o seguinte código:
quando o bd está fazio ele exibe a seguinte msg:
Script error detected at line 42.
Source line: objrs.absolutepage = cint(intpage)
Description: BOF ou EOF são verdadeiros, ou o registro atual foi excluÃdo. A operação solicitada pelo aplicativo requer um registro atual.
Sou iniciante em ASP... como eu faria para ele verificar nesse código ai a existencia de dados e nao retornar esse erro quando estiver vazio ?
<%@ LANGUAGE=[Ô]VBSCRIPT[Ô] CODEPAGE=[Ô]1252[Ô]%>
<%Option Explicit%>
<!--#include file=[Ô]conexao.asp[Ô]-->
<!-- Programação e vizualização dos cadastros -->
<%
Dim objRs, x, intpage, codigo
codigo = request.querystring([Ô]foto[Ô])
intpage = request.QueryString([Ô]txtpage[Ô])
Set objRS = Server.CreateObject([Ô]Adodb.recordset[Ô])
call Abreconexao
objrs.pagesize = 1
objRs.open [Ô]Select * From fotos where id=[Ô] + codigo + [Ô][Ô] , Objconn, 3, 3
if intpage = [Ô][Ô] then
intpage = 1
end if
objrs.absolutepage = cint(intpage)
x = 1
while NOT objRs.EOF and x <= objrs.pagesize
%>
<html>
<head>
<title>PORTAL DE URUÇUà - A noticÃa do tamanho da verdade</title>
<meta http-equiv=[Ô]Content-Type[Ô] content=[Ô]text/html; charset=iso-8859-1[Ô]>
<meta name=[Ô]generator[Ô] content=[Ô]Namo WebEditor v5.0[Ô]>
</head>
<body bgcolor=[Ô]#F0F0F0[Ô] text=[Ô]#0066FF[Ô] leftmargin=[Ô]0[Ô] topmargin=[Ô]0[Ô] marginwidth=[Ô]0[Ô] marginheight=[Ô]0[Ô]>
<div align=[Ô]center[Ô]>
<p style=[Ô]line-height:100%; margin-top:0; margin-bottom:0;[Ô]><img src=[Ô]fotos/<%=objrs([Ô]foto[Ô])%>[Ô] width=[Ô]580[Ô] height=[Ô]435[Ô]></div>
<p style=[Ô]line-height:100%; margin-top:0; margin-bottom:0;[Ô] align=[Ô]center[Ô]><%
x = x + 1
ObjRs.movenext
wend
%>
<%
objrs.close
set ObjRs= Nothing
call fechaconexao
%>
</p>
</body>
</html>quando o bd está fazio ele exibe a seguinte msg:
Script error detected at line 42.
Source line: objrs.absolutepage = cint(intpage)
Description: BOF ou EOF são verdadeiros, ou o registro atual foi excluÃdo. A operação solicitada pelo aplicativo requer um registro atual.
Sou iniciante em ASP... como eu faria para ele verificar nesse código ai a existencia de dados e nao retornar esse erro quando estiver vazio ?
Basta vc colocar:
if objRs.recordcount > 0 then
objrs.absolutepage = cint(intpage)
end if
Abs,
Mem
if objRs.recordcount > 0 then
objrs.absolutepage = cint(intpage)
end if
Abs,
Mem
Tópico encerrado , respostas não são mais permitidas