Simulador (Cuando presiona el botón "ejecutar el programa"
se graban todos los cuadros de texto y se ejecuta el primero de la lista
mostrando en una página el resultado)
Problema:
<html>
<head>
<title>problema</title>
</head>
<body>
<form action="pagina1.asp" method="post">
Ingrese el nombre del artículo a borrar:
<input type="text" name="nombre"><br>
<input type="submit" value="Buscar"><br>
</form>
</body>
</html>
<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim conexion
set conexion = Server.CreateObject("ADODB.Connection")
conexion.ConnectionString = "Provider=SQLOLEDB.1;" & _
"Data Source=.;" & _
"Integrated Security=SSPI;" & _
"Persist Security Info=False;" & _
"Initial Catalog=wi630629_aspya"
conexion.Open
dim registros
set registros = Server.CreateObject("ADODB.RecordSet")
registros.open "select codigo,descripcion,precio from articulos where descripcion='" _
& request.form("nombre") & "'" ,conexion
if not registros.eof then
conexion.execute("delete from articulos where descripcion='" & request.form("nombre") & "'")
response.write("Los datos del artículo borrado son:<br>")
response.write("Código:" & registros("codigo"))
response.write("<br>")
response.write("Descripción:" & registros("descripcion"))
response.write("<br>")
response.write("Precio:" & registros("precio"))
response.write("<br>")
else
response.write("No existe un artículo con dicho nombre")
end if
conexion.close
%>
</body>
</html>