Borrado de registros
Y finalmente, para cerrar el ciclo, nos queda el borrado de registros. El borrado de registros el uno de los procesos m�s sencillos.
Para indicar que elemento vamos a borrar hemos usado un enlace a la p�gina borra.asp pas�ndole el ID_Prueba de cada registro, de esta manera la p�gina borra.asp sabe que elemento de la tabla ha de borrar.
ejem07e.asp
<!-- Manual de ASP de WebEstilo.com -->
<html>
<head>
<title>Ejemplo de ASP</title>
</head>
<body>
<H1>Ejemplo de uso de bases de datos con ASP y ADO</H1>
<%
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\webestilo\db\datos.mdb"))
strSQL = "SELECT * FROM prueba"
Set objRS = oConn.Execute(strSQL)
%>
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
<TR><TD> Nombre</TD> <TD> Apellidos </TD> <TD>Borrar</TD></TR>
<%
while (not objRS.Eof)
Response.Write("<tr><td> " & objRS("Nombre") & "</td><td> " & objRS("Apellidos") & " </td><td><a href=""borra.asp?id=" & objRS("id_prueba") &""">borrar</a></td></tr>")
objRS.MoveNext
wend
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</table>
</body>
</html>
borra.asp
<%
Dim oConn,strSQL
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\webestilo\db\datos.mdb"))
strSQL = "delete from prueba where id_prueba = " & Request.QueryString("id")
oConn.Execute(strSQL)
oConn.Close
set oConn = nothing
Response.Redirect("ejem07e.asp")
%>
La p�gina borra.asp se conecta a la base de datos y borra el registro indicado en la variable id que ha sido pasado desde la p�gina ejem07e.asp. Una vez el registro se ha borrado se vuelve a cargar la p�gina ejem07e.asp
Inserci�n de registros