Foros del Web » Programando para Internet » ASP Clásico »

Ventana de advertencia en asp

Estas en el tema de Ventana de advertencia en asp en el foro de ASP Clásico en Foros del Web. Buenas noches. Tengo un código para eliminar un registro de mi bd, en asp, deseo tener una ventana de advertencia antes de eliminar el registro, ...
  #1 (permalink)  
Antiguo 16/08/2010, 18:32
 
Fecha de Ingreso: agosto-2010
Mensajes: 6
Antigüedad: 14 años, 3 meses
Puntos: 0
Pregunta Ventana de advertencia en asp

Buenas noches.
Tengo un código para eliminar un registro de mi bd, en asp, deseo tener una ventana de advertencia antes de eliminar el registro, dicha ventana debe aparecer cuando se selecciona el registro a eliminar, he buscado información y se puede a través de javascript, lo he echo de esta forma con una función:
.................................................. .................................................. .............................
eliminarventana.asp
/head>
<body>
<H1>ELIMINAR UN USUARIO</H1>
<%

Conex.open "conexion"

sSQL = "SELECT * FROM USUARIOS"
Set RS = Conex.Execute(sSQL)

%>

<TABLE BORDER=1 CELLSPACING=1>
<TR><TD bordercolor="#0000FF" bgcolor="#00CCFF">&nbsp;USUARIOS</TD></TD> <TD bordercolor="#0000CC" bgcolor="#00CCFF">Borrar</TD>
</TR>
<%

while (not RS.Eof)
Response.Write("<tr><td>&nbsp;" & RS("USU") & "&nbsp;</td>")
Response.Write("<td><a href='borrar.asp?USU=" & RS("USU") &"'>ELIMINAR</a></td></tr>")

RS.MoveNext
wend

%>
</table>
</body>
.................................................. .................................................. ...................................
borrar.asp
<script type="text/javascript">
function ver_confirm(){
var name=confirm("Realmente desea borrar este registro?")
if (name==true){
document.write( "has eliminado el registro" );

}
else
{

location.href = 'eliminarventana.asp'
}

}
</script>
</HEAD>
<BODY>
<script>ver_confirm()</script>
<%

Conex.open "conexion"

sSQL = "delete from USUARIOS where USU ='" & Request.QueryString("USU") & "'"
Conex.Execute(sSQL)
Conex.Close
set Conex = nothing

%>

.................................................. .........................
Intente poniendo la sentencia de sql en una función del scrpt..

Asignando un valor a una variable de asp dentro de la funcion script de la siguiente manera: <%p=true%> y ponindo un if en asp con la sentencia sql.

Pero no funciona. no se como hacer para que cuando se meta en la función se elimine el registro.

Muchas gracias por su atención.
  #2 (permalink)  
Antiguo 17/08/2010, 08:40
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 10 meses
Puntos: 98
Respuesta: Ventana de advertencia en asp

No, porque ASP se ejecuta en el servidor mientras que JavaScript corre en el cliente, para el momento que muestras tu confirm, el comando ASP ya se ejecutó, lo que necesitas hacer es poner el confirm en tu link:

Código:
<script>
function confirmar_eliminar{
   return confirm('Realmente desea eliminar el registro?');
}

</script>
<%
while (not RS.Eof)
%>
<tr><td>&nbsp;<%=RS("USU")%>&nbsp;</td>
<td><a href='borrar.asp?USU="<%=RS("USU")%>" onclick="javascript:return confirmar_eliminar();">ELIMINAR</a></td></tr>
<%
RS.MoveNext
wend

%>
Saludos
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #3 (permalink)  
Antiguo 25/09/2010, 10:56
 
Fecha de Ingreso: agosto-2010
Mensajes: 6
Antigüedad: 14 años, 3 meses
Puntos: 0
Respuesta: Ventana de advertencia en asp

hola que tal,,,,
muchas gracias por tu ayuda, y otra vez molestando, pero tengo un error
que no puedo resolver, el código que me diste lo puse en otro programa así que son tres programas; borrar1.asp, ventana.asp y borrar2.asp
marca el siguiente error:

ADODB.Recordset (0x800A0E78)
La operación no está permitida si el objeto está cerrado
.

en la linea 20 que es:

while (not RS.Eof)

ya bus que en google dice que necesito abrir mi objeto rs.opend pero me marca otro error diferente también encontre que puede ser por el SET NOCOUNT ON pero me marca otro error diferente, también dice que puede ser por mi conexión a mi bd pero en otros programas me funciona bien. te dejo el código del tercer programa:

Código:
<HEAD>
  <TITLE>ventana</TITLE>
 </HEAD>
  <BODY>
   <%
     Dim Conex,sSQL,RS 
     Set Conex = Server.CreateObject("ADODB.Connection")
     Set RS= Server.CreateObject("ADODB.Recordset")
     Conex.open "conexion"   
   %>
   <script>
     function confirmar_eliminar(){
       return confirm('Realmente desea eliminar el registro?');
       }
     </script>
    <%
    while (not RS.Eof)
    %>
        <tr><td>&nbsp;<%=RS("USU")%>&nbsp;</td>
        <td><a href='borrar2.asp?USU="<%=RS("USU")%>" onclick="javascript:return confirmar_eliminar();">ELIMINAR</a></td></tr>
       <%
        RS.MoveNext
     wend
     %>
  </body>
</html>
ojala puedas ayudarme, muchas gracias por tu atención.
  #4 (permalink)  
Antiguo 28/09/2010, 08:36
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 9 meses
Puntos: 146
Respuesta: Ventana de advertencia en asp

pues por que no estas abriendo el objeto RS en ningún lado

Debes hacerle una prueba de escritorio a tu código
  #5 (permalink)  
Antiguo 28/09/2010, 16:10
Avatar de RucarMaN  
Fecha de Ingreso: julio-2003
Ubicación: Caripito Edo Monagas
Mensajes: 169
Antigüedad: 21 años, 4 meses
Puntos: 1
Respuesta: Ventana de advertencia en asp

Código Javascript:
Ver original
  1. function borrar(){
  2. //-------------
  3. if (confirm("Seguro de Borrar este Registro?"))
  4. {
  5. return true;
  6. }
  7. else
  8. {
  9. return false;
  10. }
  11. }
Código HTML:
Ver original
  1. <a title="Borrar..." href="SQLcliente.asp?accion=borrar&IdCliente=<% = rs("IdCliente") %>" onclick="return borrar()">
  2.         <img border="0" src="imagenes/eliminar.gif" width="16" height="16"></a>
__________________
Con la ayuda de todos seremos mejores...

http://www.pemoweb.com
  #6 (permalink)  
Antiguo 29/09/2010, 12:06
 
Fecha de Ingreso: agosto-2010
Mensajes: 6
Antigüedad: 14 años, 3 meses
Puntos: 0
Respuesta: Ventana de advertencia en asp

Hola que tal, gracias por su respuesta RucarMaN, puse el código que me dio igual pero me marca error, espero me ayude.

primero me marco el siguiente error:

Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'rs'
/prueba/ventana.asp, línea 20


esta es la linea 20:
Código HTML:
<a title="Borrar..." href="borrar2.asp?accion=borrar&usu=<% = RS("usu") %>" onclick="return borrar()"> 

despues coloque la siguiente linea de código:

Código HTML:
 Dim Conex,sSQL,RS 
      
      Set Conex = Server.CreateObject("ADODB.Connection")
      Set RS= Server.CreateObject("ADODB.Recordset")
      Conex.open "Driver=Firebird/InterBase(r) driver;Uid=sysdba;Pwd=masterkey;DbName=127.0.0.1:C:\PRUEBA\RADIO.FDB;"
      rs.open
y me marca el siguiente error:


Tipo de error:
ADODB.Recordset (0x800A0E7D)
No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es válida en este contexto.
/prueba/ventana.asp, línea 12

que sigue siendo la misma linea:

Código HTML:
<a title="Borrar..." href="borrar2.asp?accion=borrar&usu=<% = RS("usu") %>" onclick="return borrar()"> 
disculpen tanta molestia.
  #7 (permalink)  
Antiguo 29/09/2010, 15:13
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 9 meses
Puntos: 146
Respuesta: Ventana de advertencia en asp

Para ese error (no recuerdo si es espacio entre el = y el % es significativo o no) necesitaríamos ver si estas colocando ese código antes o después de definir el recordSet

saludos
  #8 (permalink)  
Antiguo 29/09/2010, 15:39
 
Fecha de Ingreso: agosto-2010
Mensajes: 6
Antigüedad: 14 años, 3 meses
Puntos: 0
Respuesta: Ventana de advertencia en asp

ya quite el espacio pero me marca el mismo error en la misma linea

Cita:
<a title="Borrar..." href="borrar2.asp?accion=borrar&usu=<%=RS("usu")%> "onclick="return borrar()">
esta linea de código va después de definir mi recordSet, el cual va al principio de mi programa.
  #9 (permalink)  
Antiguo 29/09/2010, 16:20
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 10 meses
Puntos: 98
Respuesta: Ventana de advertencia en asp

No le estas pasando la conexion activa a tu rs, tampoco la sentencia SQL:

Código:
      Set Conex = Server.CreateObject("ADODB.Connection")
      Set RS= Server.CreateObject("ADODB.Recordset")
      Conex.open "Driver=Firebird/InterBase(r) driver;Uid=sysdba;Pwd=masterkey;DbName=127.0.0.1:C:\PRUEBA\RADIO.FDB;"
      rs.open sSQL, Conex, 3, 3 
Saludos
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #10 (permalink)  
Antiguo 29/09/2010, 17:18
 
Fecha de Ingreso: agosto-2010
Mensajes: 6
Antigüedad: 14 años, 3 meses
Puntos: 0
Respuesta: Ventana de advertencia en asp

ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
  #11 (permalink)  
Antiguo 29/09/2010, 18:23
Avatar de u_goldman
Moderador
 
Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 22 años, 10 meses
Puntos: 98
Respuesta: Ventana de advertencia en asp

Trata quitando los dos ultimos parametros:

rs.open sSQL, Conex

Tambien, tu sentencia SQL no esta vacia verdad?

Como recomendacion: Tienes que poner mas codigo y explicar mejor.


Saludos
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway
  #12 (permalink)  
Antiguo 30/09/2010, 11:00
Avatar de RucarMaN  
Fecha de Ingreso: julio-2003
Ubicación: Caripito Edo Monagas
Mensajes: 169
Antigüedad: 21 años, 4 meses
Puntos: 1
Respuesta: Ventana de advertencia en asp

tu estas realizando la sentencia sql?

Cita:
Iniciado por omitraz Ver Mensaje
hola que tal, gracias por su respuesta rucarman, puse el código que me dio igual pero me marca error, espero me ayude.

Primero me marco el siguiente error:

error de microsoft vbscript en tiempo de ejecución (0x800a000d)
no coinciden los tipos: 'rs'
/prueba/ventana.asp, línea 20


esta es la linea 20:
Código HTML:
<a title="borrar..." href="borrar2.asp?accion=borrar&usu=<% = rs("usu") %>" onclick="return borrar()"> 

despues coloque la siguiente linea de código:

Código HTML:
 dim conex,ssql,rs 
      
      set conex = server.createobject("adodb.connection")
      set rs= server.createobject("adodb.recordset")
      conex.open "driver=firebird/interbase(r) driver;uid=sysdba;pwd=masterkey;dbname=127.0.0.1:c:\prueba\radio.fdb;"
      rs.open
y me marca el siguiente error:


Tipo de error:
Adodb.recordset (0x800a0e7d)
no se puede utilizar la conexión para realizar esta operación. Está cerrada o no es válida en este contexto.
/prueba/ventana.asp, línea 12

que sigue siendo la misma linea:

Código HTML:
<a title="borrar..." href="borrar2.asp?accion=borrar&usu=<% = rs("usu") %>" onclick="return borrar()"> 
disculpen tanta molestia.
__________________
Con la ayuda de todos seremos mejores...

http://www.pemoweb.com
  #13 (permalink)  
Antiguo 30/09/2010, 15:09
 
Fecha de Ingreso: agosto-2010
Mensajes: 6
Antigüedad: 14 años, 3 meses
Puntos: 0
Respuesta: Ventana de advertencia en asp

muchas gracias, al poner todo, mi conexión mi sentencia sql
a quedado, no marca error y elimina el registro.

de verdad mil gracias por ser ten pacientes.

Etiquetas: advertencia, asp, ventanas
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 12:52.