|
<HTML> <HEAD> <TITLE>Borrar1.asp</TITLE> </HEAD> <BODY> <div align="center"> <h1>Borrar un registro</h1> <br> <% 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" %> <FORM METHOD="POST" ACTION="borrar2.asp"> Nombre<br> <% 'Creamos la sentencia SQL y la ejecutamos sSQL="Select nombre From clientes Order By nombre" set RS = conn.execute(sSQL) %> <select name="nombre"> <% 'Generamos el menu desplegable Do While not RS.eof%> <option><%=RS("nombre")%> <%RS.movenext Loop %> </select> <br> <INPUT TYPE="SUBMIT" value="Borrar"> </FORM> </div> </BODY> </HTML> |
|
<HTML> <HEAD> <TITLE>Borrar2.asp</TITLE> </HEAD> <BODY> <% 'Recogemos los valores del formulario nombre=Request.Form("nombre") 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" 'Ahora creamos la sentencia SQL sSQL="Delete From Clientes Where nombre='" & nombre & "'" 'Ejecutamos la orden set RS = Conn.Execute(sSQL) %> <h1><div align="center">Registro Borrado</div></h1> <div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div> <% 'Cerramos el sistema de conexion Conn.Close %> </BODY> </HTML> |
| Por: Ninive | 26/7/02
|