12/06/2002, 08:49
|
| | | Fecha de Ingreso: abril-2002
Mensajes: 64
Antigüedad: 23 años Puntos: 0 | |
| borrar un registro ?
Pues que no consigo que me funcione el segundo asp, que hago mal?
primero elijo el restro a borrar con el siguiente asp
que me funciona ok..
<HTML>
<HEAD>
<TITLE>Borrar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>ELIGE </h1>
<br>
<%
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/foro.mdb")
sql = "SELECT * FROM discusion WHERE IdCabeza=0 ORDER BY Fecha DESC"
RS.Open sql, oConn,3,1
nombre = RS("nombre")
%>
<FORM METHOD="POST" ACTION="borrar2.asp">
SELECCIONA MENSAJE<br>
<select name="nombre">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("nombre")%>
<%RS.movenext
Loop
%>
<br>
<INPUT TYPE="SUBMIT" value="Borrar">
</FORM>
</div>
</BODY>
</HTML>
y como veis , lo mando a borrar2.asp
<HTML>
<HEAD>
<TITLE>Borrar2.asp</TITLE>
</HEAD>
<BODY>
<%
recuperamos
nombre=Request.Form("nombre")
conectamos con la base
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/foro.mdb")
'Ahora creamos la sentencia SQL
sSQL="Delete From Discuion Where nombre='" & nombre & "'"
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
%>
<h1><div align="center">Registro Borrado</div></h1>
<div align="center"><a href="vermensaje.asp">Visualizar el contenido de la base</a></div>
<%
'Cerramos el sistema de conexion
Conn.Close
%>
</BODY>
</HTML>
pero este no me funciona...
que hago mal?
un saludo gracias ;) |