Come posso evitare che se il rs è vuoto mi scrive "nessun dato" invece di adarni l'werrore


Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

LINK

<%
regione=request("regione")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = cn
objConn.Open
sql="select * from centenarie where regione LIKE '"& request("regione") & "' ORDER BY nome ASC"
set objRec=server.CreateObject("ADODB.recordset")
objRec.Open sql, objConn,3,3
recordsperpage=20
objRec.pagesize=recordsperpage
Pages=request.querystring("pagina")
if (len (Pages)>0 and isnumeric(Pages)) then
Pages=clng(Pages)
else
Pages=1
end if
%>