Como eliminar mensaje error: El valor de BOF o EOF es True, o el actual registro se e

[musu143]

Hola, tengo una pagina de busqueda y otra de resultados. Quiero que al pinchar una FACULTAD en una pagina, me muestre algunos datos que corresponden con esa facultad pero hay FAcultades que no contienen datos, entonces, cuando ocurre esto me sale el siguiente error:

El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.

/Becas/Admitidos por Universidad(candidatos y suplentes)/detalle.asp, línea 324

Lo que quiero es que cuando no contenga datos, me aparezca un mensaje en pantalla como por ejemplo: 'esta pagina no contiene datos'.
¿Como podria hacer esto?
El codigo es el siguiente:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/Conexion1.asp" -->
<%
Dim Pap2__MMColParam
Pap2__MMColParam = "1"
If (Request.QueryString("FACULTAD")<> "") Then
Pap2__MMColParam = Request.QueryString("FACULTAD")

End If
%>
<%
Dim Pap2
Dim Pap2_numRows

Set Pap2 = Server.CreateObject("ADODB.Recordset")
Pap2.ActiveConnection = MM_Conexion1_STRING
Pap2.Source = "SELECT Facultades.[NOMBRE JCYL], Profesores_1.COORDINADOR AS COORDINADORECTS, Universidades.UNIVERSIDAD, Países.PAIS, Facultades.FACULTAD, [PAP-Erasmus].[NUM PLAZAS], [PAP-Erasmus].[NUM CREDITOS] FROM Profesores AS Profesores_1 INNER JOIN (Profesores INNER JOIN ((Países INNER JOIN Universidades ON Países.[CODIGO PAIS] = Universidades.[CODIGO PAIS]) INNER JOIN (Facultades INNER JOIN [PAP-Erasmus] ON Facultades.[CODIGO FACULTAD] = [PAP-Erasmus].[CODIGO FACULTAD]) ON (Universidades.[CODIGO UNI PARCIAL] = [PAP-Erasmus].[CODIGO UNI PARCIAL]) AND (Países.[CODIGO PAIS] = [PAP-Erasmus].[CODIGO PAIS])) ON Profesores.[CODIGO COORDINADOR] = [PAP-Erasmus].[CODIGO COORDINADOR ECTS]) ON Profesores_1.[CODIGO COORDINADOR] = [PAP-Erasmus].[CODIGO COORDINADOR ACADEMICO] WHERE FACULTAD = '" + Replace(Pap2__MMColParam, "'", "''") + "' ORDER BY Pais;"
Pap2.CursorType = 0
Pap2.CursorLocation = 2
Pap2.LockType = 3
Pap2.Open()

Pap2_numRows = 0
%>