MsgBox para notificar que datos no se encuentran en BD

Cosertel · #1 (**permalink**) 13/10/2009, 15:29

Que tal?

Mi primer post.

El motivo, es que deseo que al momento de procesar los datos y ser comparados con la base de datos, si no coinciden o no hay ninguno, muestre una pequeña ventana de error al cliente.

Para ubicarlos:

Mi formulario solo hará consulta (envío y recuperación de datos), nada de ingreso
Ingreso datos en formulario.html
carga .asp

"
A = Clng (Request.Form("Cedula"))
MiSQL= "SELECT Cedula,Nombre,Apellido,Direccion,Telefono1,Telefon o2,Email,Fecha FROM Cliente WHERE Cedula = (" & A & ") "
con.Execute(MiSQL)

"
Mi idea es la siguiente:

"Si [A] (que son los datos ingresados en el formulario) no es igual a [Cedula] (el campo donde va a hacer la búsqueda) entonces

mostrar ventana= Los datos ingresados no se encuentran en nuestra base de datos.
al dar aceptar volver a la página de formulario.htm
cerrar SI"

Se que es con javascript y colocando response.write, pero el código exacto nosé.

PD: El ASP es funcional, solo quiero añadirle esta precaución ante errores del cliente.

Myakire · #2 (**permalink**) 13/10/2009, 17:32

Es un poco más complicado de lo que pareciera ... por que la pequeña ventana debe estar controlada por javascript, no por ASP, entonces lo ideal sería que hicieras la búsqueda por Ajax para que el usuario no vea el refresco de la página y luego botar un alert o un popup.

Otra alterativa sería que en lugar de alert o un popup mandes llamar un lightWindows con el mensaje de error.

Ya es cosa de echarle imaginación.

Saludos

PD. Bienvenido al foro

mc_quake · #3 (**permalink**) 13/10/2009, 18:15

Estima do Cosertel yo hice algo asi espero que te sirva

esto va sobre el html cuando se cumpla o no la condicion que determines

Código ASP:

Ver originalNOTIFY = NOTIFY & "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
        NOTIFY = NOTIFY & "<form name=""form1"" method=""post"" action="""">"
        NOTIFY = NOTIFY & "  <tr>"
        NOTIFY = NOTIFY & "    <td height=""35"" valign=""middle"" bgcolor=""#FFFF99"" style=""color:#FF0000; font-size:16px; font-weight:bold; padding-left:10px;"">Notificacion de InmoWeb</td>"
        NOTIFY = NOTIFY & "    <td height=""35"" align=""right"" valign=""middle"" bgcolor=""#FFFF99"" style=""color:#FF0000; font-size:16px; font-weight:bold; padding-right:10px;;""><input type=""image"" name=""imageField"" src=""../../inmoweb/_imag/_sitio/close.gif"" style=""background-color:transparent;""></td>"
        NOTIFY = NOTIFY & "  </tr>"
        NOTIFY = NOTIFY & "  <tr>"
        NOTIFY = NOTIFY & "    <td colspan=""2"" bgcolor=""#FFFF99"" style=""padding-left:30px; color:#000000;""><b>Han ocurrido algunos errores en el ingreso de la información solicitada</b></td>"
        NOTIFY = NOTIFY & "  </tr>"
        NOTIFY = NOTIFY & "  <tr>"
        NOTIFY = NOTIFY & "    <td colspan=""2"" bgcolor=""#FFFF99"" style=""padding-left:50px; color:#FF0000;""><br>"& Errores &"<br></td>"
        NOTIFY = NOTIFY & "  </tr>"
        NOTIFY = NOTIFY & "<input name=""ocultar"" type=""hidden"" value=""1"">  "
        NOTIFY = NOTIFY & "</form>"
        NOTIFY = NOTIFY & "</table>"

luego en el Head

Código HTML:

Ver original<style type="text/css">
  
      body {
        onload
      }
 
    </style>
<link rel="stylesheet" href="../_includes/mediabox/mediabox.css" type="text/css" media="screen" />

luego dentro del body

Código html + asp:

Ver original<% If errores <> "" and ocultar = 0 Then %>
<script language="javascript">
void(0)
document.getElementById('light').style.display='block';document.getElementById('fade').style.display='block'
</script>
<% End If %>

codigo archivo mediabox.css

Código css:

Ver original* {
        margin: 0;
        padding: 0;
    }
    
    body {
        font-family: Georgia, "Times New Roman", Times, serif;
        font-size: 2em;
        background: #900;
        color: #fff;
    }
    
    a {
        color: #F00;
    }
    
    /* base semi-transparente */
    .overlay{
        display: none;
        position: absolute;
        top: 0;
        left: 0;
        width: 100%;
        height: 100%;
        background: #000;
        z-index:1001;
        opacity:.75;
        -moz-opacity: 0.75;
        filter: alpha(opacity=75);
    }
    
    /* estilo para lo q este dentro de la ventana modal */
    .modal {
        display: none;
        position: absolute;
        top: 25%;
        left: 25%;
        width: 50%;
        height: 50%;
        padding: 16px;
        background: #fff;
        color: #333;
        z-index:1002;
        overflow: auto;
    }

espero te sirva ami me va muy bien asi se evita de mandar a otra pagina a mostrar errores y cosas por el estilo probado en varios navegadores sin problemas

Cosertel · #4 (**permalink**) 13/10/2009, 19:30

Cita:

Iniciado por Myakire

Es un poco más complicado de lo que pareciera ... por que la pequeña ventana debe estar controlada por javascript, no por ASP, entonces lo ideal sería que hicieras la búsqueda por Ajax para que el usuario no vea el refresco de la página y luego botar un alert o un popup.

Otra alterativa sería que en lugar de alert o un popup mandes llamar un lightWindows con el mensaje de error.

Ya es cosa de echarle imaginación.

Saludos

No estoy familiarizado con "AJAX" ni "lightWindows", estoy empezando en el desarrollo web. La BD es access.

Cita:

Iniciado por Myakire

PD. Bienvenido al foro

Gracias por la bienvenida

lexmaniak · #5 (**permalink**) 14/10/2009, 08:43

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

Cosertel · #6 (**permalink**) 14/10/2009, 10:59

Cita:

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:

Cita:

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:

Cita:

<%
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.

Adler · #7 (**permalink**) 14/10/2009, 11:55

Hola

No has creado el objeto recordset.
No estoy seguro que se pueda integrar javascript en el ASP tal que así. La mejor opción sería aplicar lo que te comentó Myakire

Suerte

Cosertel · #8 (**permalink**) 14/10/2009, 14:56

Cita:

Iniciado por Adler

Hola

No has creado el objeto recordset.
No estoy seguro que se pueda integrar javascript en el ASP tal que así. La mejor opción sería aplicar lo que te comentó Myakire

Suerte

La cuestión es que es ASP Clásico.

Gracias de todas formas

Donde iría ubicado el recorset? Tendría que cambiar gran parte del código?

Myakire · #9 (**permalink**) 14/10/2009, 17:31

La cuestión es que aunque tu página sea ASP, PHP, JSP, .NET o lo que quieras, la ventana de alerta que deseas debe ser controlada por el cliente, por el browser, es decir, por javascript. Yo te sugería que usaras Ajax (que se implementa con javascript) para que el usuario no experimente ese feo efecto de ver que la página se recarga y luego aparezca con un alert inmediatamente.

¿haz probado el código que mc_quake te proporcionó completo?

Sobre el error que Adler te comenta es que deberías de modificar tu código a esto:

Cita:

...
MiSQL= "SELECT Cedula,Nombre,Apellido,Direccion,Telefono1,Telefon o2,Email,Fecha FROM Cliente WHERE Cedula = (" & A & ") "
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open MiSQL, con
If rs.EOF then
...

Saludos

Cosertel · #10 (**permalink**) 14/10/2009, 20:35

Cita:

Iniciado por Myakire

La cuestión es que aunque tu página sea ASP, PHP, JSP, .NET o lo que quieras, la ventana de alerta que deseas debe ser controlada por el cliente, por el browser, es decir, por javascript. Yo te sugería que usaras Ajax (que se implementa con javascript) para que el usuario no experimente ese feo efecto de ver que la página se recarga y luego aparezca con un alert inmediatamente.

¿haz probado el código que mc_quake te proporcionó completo?

Sobre el error que Adler te comenta es que deberías de modificar tu código a esto:

Saludos

Distinguido, pude resolver y ahora aparece lo que quería
Gracias por responder las preguntas de este novato.
me falta nada más el redireccionamiento a la página de ingreso de datos en el script.
Gracias nuevamente.

El error aparecía; se recuerda al principio del código, que se declaran 2 variables, con y Tabla, resulta que Tabla sustituye (para este caso) el rs (Recordset), y el set Tabla = Server.CreateObject("ADODBRecordset") se había creado más adelante;
lo que hice fue colocar el script después de la sentencia Tabla.Open. Así funciona el script.

Y, nuevamente, gracias.