Como borrar registro en asp clásico

Soy nuevo en todo esto de la programación y quisiera borrar registros de una bd de access y lo hago por medio de tres paginasen asp clásico. En la 1ª busco los datos por mes y año en la 2ª me aparecen los datos con dos botones eliminar y cancelar y en la 3ª me aparece el comentario que el registro ha sido eliminado con un botón aceptar para regresar a la pagina principal. El problema que tengo es que pulsando el botón eliminar o cancelar el registro se borra. El botón cancelar me regresa a la pagina principal pero cuando voy a comprobar si el registro continua existiendo no aparece y a sido borrado.

Lo que quisiera es que al pulsar el botón cancelar, cancelara la eliminación del registro y me volviera a la pagina principal. Por si puede servir de algo os dejo la pagina para que me indiquéis donde puede estar el error ya que le he dado mil vueltas y estoy un poco desesperado.

%@LANGUAGE="VBSCRIPT"%>

<HTML>

<HEAD>

<title>Eliminar datos </title>

<TABLE ALIGN=CENTER WIDTH=55% BGCOLOR=#F1F1F1 CELLPADDING="0" CELLSPACING="0" BORDER=3>

<TR ALIGN=CENTER>

<TD>

<FONT COLOR=BLACK SIZE=+5 FACE="VERDANA"> ELIMINAR DATOS </FONT>

</TD>

</TR>

</TABLE><P>

</HEAD><HR>

<CENTER> <BODY BGCOLOR=#FFFFFF><P>

<% Dim conex,sqltext,rs,a,m

a=Request.Form("ano")

m=Request.Form("mes")

set conex=Server.CreateObject("adodb.connection")

conex.open "provider=microsoft.jet.oledb.4.0;data source="&Server.mappath ("./bd/contabilidad.mdb") %>

<TABLE ALIGN=CENTER CELLSPACING="6" CELLPADDING="2" BORDER=0>

<TR>

<TD>

<FONT COLOR=BLUE SIZE=+3 FACE="VERDANA"> <U>DATOS OBTENIDOS </U> </FONT>

</TD>

</TR>

</TABLE><BR>

<% set rs=Server.CreateObject("adodb.recordset")

sqltext="select * from contabilidad where mes='"&m&"' and ano='"&a&"';"

set rs=conex.execute(sqltext)

if not rs.eof then %>

<TABLE BORDER=1 >

<TR ALIGN=CENTER BGCOLOR="#BBEEEE">

<TD>A&Ntilde;O </TD>

<TD>MES </TD>

<TD>CONCEPTO </TD>

<TD>IMPORTE </TD>

</TR>

<TR ALIGN=CENTER>

<TD><%Response.Write rs("ano")%> </TD>

<TD><%Response.Write rs("mes")%> </TD>

<TD><%Response.Write rs("concepto")%> </TD>

<TD><%Response.Write formatnumber(rs("importe"),2)%> </TD>

</TR>

</TABLE>

<% do While not rs.eof

rs.movenext

loop %>

<% sqltext= "delete from contabilidad where mes='"&m&"' and ano='"&a&"';"

set rs=conex.execute(sqltext) %>

<TABLE WIDTH=20% BORDER=0><BR>

<TR ALIGN=CENTER>

<TD>

<BUTTON TYPE="SUBMIT" STYLE="WIDTH:130PX;HEIGHT:38PX;FONT-SIZE:11PT;BACKGROUND:#C0C0C0;BORDER-RADIUS:8PX;" ONCLICK="location.href='BORRAR7.ASP'" > <IMG SRC="PAPELERA1.PNG" ALIGN="ABSMIDDLE"/> ELIMINAR </BUTTON>

</TD>

<TD>

<BUTTON TYPE="RESET" STYLE="WIDTH:130PX;HEIGHT:38PX;FONT-SIZE:11PT;BACKGROUND:#C0C0C0;BORDER-RADIUS:8PX;" ONCLICK= "location.href='CONTABILIDAD.HTML'"> <IMG SRC="CANCEL2.PNG" ALIGN="ABSMIDDLE"/> CANCELAR </BUTTON>

</TD>

</TR>

</TABLE>

<% else %>

<FONT COLOR=BLACK SIZE=+2 FACE="VERDANA">DATOS INCORRECTOS

</FONT>

<TABLE ALIGN=CENTER CELLSPACING="10" CELLPADDING="25" BORDER=0>

<TR>

<TD>

<BUTTON TYPE="RESET" ID="IMPRIME" STYLE="WIDTH:125PX;HEIGHT:36PX;FONT-SIZE:10PT;BACKGROUND:#C0C0C0;BORDER-RADIUS:8PX;"ONCLICK="location.href='ELIMINAR7.ASP'"> <IMG SRC="ATRAS.PNG" ALIGN="ABSMIDDLE"/> ATRÁS </BUTTON>

</TD>

</TR>

</TABLE>

<% end if

set rs=nothing

set conex=nothing %>

</FORM>

</BODY>

</CENTER>

</HTML>

1 respuesta

Respuesta
1

No estas borrando nada

<BUTTON TYPE="SUBMIT" STYLE="WIDTH:130PX;HEIGHT:38PX;FONT-SIZE:11PT;BACKGROUND:#C0C0C0;BORDER-RADIUS:8PX;" ONCLICK="location.href='BORRAR7.ASP'" > <IMG SRC="PAPELERA1.PNG" ALIGN="ABSMIDDLE"/> ELIMINAR </BUTTON>
</TD>

En esta parte no envías el id de registro a borrar, envías esto a esta pagina BORRAR7.ASP

como resives tu variable ?? la recibes?? procesas la petición delete from nombretabla where nombreCampo=variablerecivda

¿Lo haces?

¿O estas trabajando sobre la misma pagina?

¿Trabajas en la pagina?

¿Usas las mismas declaraciónes de variables?

Solo recargas la pagina pero no envías variables

Pues el registro desaparece tanto pulsando el btn eliminar como el de cancelar.

En tu opinión que debería de hacer?

¿Hay la facilidad de que adjuntes tus archivos?

Te adjunto las dos paginas que quedan.

Esta es la primera donde saco los datos del mes y año

%@language="vbscript"%

<html>

<head>

<title>contabilidad hogar </title>

<table align=center width=55% bgcolor=#f1f1f1 cellpadding="0" cellspacing="0" border=3> <tr align=center>

<td>

<font color=black size=+5 face="verdana"> eliminar datos

</font>

</td>

</tr>

</table><p>

</head><hr>

<body><p>

<% dim conex,sqltext,rs

set conex=server.createobject("adodb.connection")

conex.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath ("./bd/contabilidad.mdb") %>

<table align=center cellspacing="6" cellpadding="2" border=0>

<tr>

<td>

<font color=blue size=+3 face="verdana"> <u>datos registrados </u>

</font>

</td>

</tr>

</table>

<br>

<form method="post" action="comprobar6.asp">

<table align=center cellspacing="6" cellpadding="2" border=0> <tr align=center>

<td>a&ntilde;o </td>

<td>mes </td>

</tr>

<tr align=center>

<td>

<% sqltext= "select ano from contabilidad group by ano;"

set rs=conex.execute(sqltext)%>

<select name="ano" style="border-radius:3px;">

<% do while not rs.eof%>

<option>

<% =rs("ano")%>

</option>

<% rs.movenext loop %>

</select>

</td>

<td>

<% sqltext= "select mes from contabilidad group by mes;"

set rs=conex.execute(sqltext)%>

<select name="mes" style="border-radius:3px;">

<% do while not rs.eof%>

<option>

<% =rs("mes")%>

</option>

<% rs.movenext loop %>

</select>

</td>

</tr>

</table>

<table align=center cellspacing="20" cellpadding="2" border=0>

<tr>

<td>

<button type="submit" style="width:125px;height:36px;font-size:10pt;background:#c0c0c0;border-radius:8px; ">

<img src="ok.png" align="absmiddle"/> aceptar

</button>

</td>

<td>

<button type="reset" style="width:125px;height:36px;font-size:10pt;background:#c0c0c0;border-radius:8px;"onclick="location.href='contabilidad.html'">

<img src="cancel2.png" align="absmiddle"/> deshacer

</button>

</td>

</tr>

</table>

</form>

</body>

</html>

La segunda pagina es la que había mandado y la tercera es esta otra que simplemente acepta la eliminación

%@language="vbscript"%

<html>

<head>

<title>contabilidad </title>

<center>

<font color=blue size=+5 face="verdana"> <b>eliminación registro</b>

</font>

</head><hr><br>

<body bgcolor="#ffffff">

<% set conex=server.createobject("adodb.connection") conex.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath ("./bd/contabilidad.mdb") %>

<font color=black size=+2 face="verdana">registro eliminado

</font><br><br>

<table align=center cellspacing="20" cellpadding="2" border=0>

<tr>

<td>

<button type="submit" style="width:125px;height:36px;font-size:10pt;background:#c0c0c0;border-radius:8px;" onclick= "location.href='contabilidad.html'" >

<img src="ok.png" align="absmiddle"/> aceptar

</button>

</td>

</tr>

</table>

<% conex.close %>

</body>

</center>

</html>

Puede que los conceptos no estén bien pero lo que me gustaría es esta idea.

De antemano muchas gracias por la ayuda, aunque no se si se podrá hacer como yo quiero.

Quiero el adjunto pero bueno.

No entiendo que es lo que quieres.

Saludos

Que me envíes tus archivos en un .rar ami correo, con el din de revisarlo a mas detalle.

También con tu base de datos.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Borrar registro en asp

Soy nuevo en la programación de asp y mi problema es el siguiente. Tengo una pagina en la que saco los registros por año y mes para poder eliminarlos y otra pagina en la que veo los resultados con un botón eliminar y cancelar. Si pulso el botón...
1 respuesta

Buscar con botón facturas en asp clásico

Me gustaría que me ayudaran a resolver el problema de como conseguir visualizar una factura por medio de un botón. Los datos genéricos de la factura los saco en una tabla con el importe, la fecha, el nº de factura, etc y al principio de cada fila con...
1 respuesta

Como puedo eliminar varios registros a la ves con un boton

Que onda aquí de nuevo mi pregunta es como puedo eliminar varios registros a la ves con un botón que me elimine varios registros en mi base de datos ese botón quiero que este en la misma pagina y cuando le de eliminar ahi mismo me redericcione porque...
1 respuesta

¿Cómo puedo implementar con javascript un mensaje de confirmación para eliminar unos datos?

He aquí mi tormento: Estoy haciendo un sitio en asp usando vbscript, pero tengo una página que se llama borrar_empresa.asp, lo que yo quiero es que al seleccionar una empresa POR y apretar un botón, me salga un mensaje que me diga algo más o menos...
3 respuestas

Problema Eliminación de datos Entre Tablas

Me surge un problema que ya no se como voy a resolverlo... En una BD para criadero de animales tengo dos tablas una con todos los datos de los criadores y en particular dos campos NombreCriador y NºCriador (TablaCriadores) y otra con los animales...
1 respuesta

Quisiera que cuando elimino un registro no aparezca el mensaje de confirmación de Microsoft access

Quisiera que cuando elimo un registro no me apreciera el mensaje de access (esta a punto de eliminar ...), la idea es que me realice una pregunta personal. Como lo hago.
1 respuesta

Manejo de Registros - Form multiregistros

Estoy haciendo una aplicación Access (formularios Access- código VB). Necesito hacer un form multiregistros que, permita insertar y eliminar registros. Pero que de la opción al usuario de deshacer dichos inserts o deletes. ¿Es posible? ¿Me conviene...
1 respuesta

Página de confirmación de formularios

Estoy creando un formulario que para mi es un poco complejo pero que a lo mejor es sencillo para alguien con más experiencia: Lo que quiero exactamente es dividir un formulario en varias partes, o sea que cuando se rellene una parte (ej: datos...
1 respuesta

Eliminar registro de un subformulario

Tengo un formulario A cuyo origen es una tabla A y que incluye un subformulario B que apunta a una tabla B. Cuando el subformulario B recibe el enfoque genera un nuevo registro en esa tabla B. Tengo el típico botón de "Cancelar" para que cuando se...
1 respuesta

Ajax no refresca

Me voy a extender un poco para una mejor comprensión: Tengo una JSP "A" donde tiene varios input y botones. Dígito la clave del registro y hago click en el botón buscar. Con eso paso a una función en javascripts y que permite enviar la clave del...
1 respuesta