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

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