MsgBox para notificar que datos no se encuentran en BD

[Cosertel]

Iniciado por lexmaniak

Bueno si es ASP clasico podrias hacer lo siguiente:
A = Clng (Request.Form("Cedula"))
MiSQL= "SELECT Cedula,Nombre,Apellido,Direccion,Telefono1,Telefon o2,Email,Fecha FROM Cliente WHERE Cedula = (" & A & ") "
con.Execute(MiSQL)

Si con dicha condicion al agregar A del formulario no te trae valores la consulta

Haces lo siguiente:

<%
If rs.EOF then
%>
<script type="text/javascript">
var respuesta;
alert("No existen registros con los parametros establecidos"); //o el mensaje que tu quieras

respuesta = confirm("Desea regresar al inicio");

if(respuesta ==true){
//pag a la que te quieras regresar
}

<%
end if
%>

Espero te ayude la info saludos

Lo intenté, pero me refleja el siguiente error:

Tipo de error:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'rs'
/HTML & ASP/Consulta.asp, línea 15

y se refiere a:

If rs.EOF then

Presentaré el código el código de funcionamiento para aclarar:

<%
Dim con, Tabla
Set con = Server.CreateObject("ADODB.Connection")
with con
.Provider="Microsoft.Jet.OleDB.4.0"
.Open Server.MapPath("Historial.mdb")
End with

A = Clng (Request.Form("Cedula"))
MiSQL= "SELECT Cedula,Nombre,Apellido,Direccion,Telefono1,Telefon o2,Email,Fecha FROM Cliente WHERE Cedula = (" & A & ") "
con.Execute(MiSQL)
If rs.EOF then
%>
<script type="text/javascript">
var respuesta;
alert("No Exisen Registros con los Parámetros Establecidos");
respuesta = confirm("¿Desea Regresar al Inicio?");
if(respuesta ==true){
(ConsultaHistorial.html)
}
</script>
<%
end if

Probé con cambiar los "con" por "rs", pero nada.