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">
Descripcion del articulo:
<input type="text" name="descripcion1" size="30">
Precio:
<input type="text" name="precio1" size="10"><br>
Descripcion del articulo:
<input type="text" name="descripcion2" size="30">
Precio:
<input type="text" name="precio2" size="10"><br>
Descripcion del articulo:
<input type="text" name="descripcion3" size="30">
Precio:
<input type="text" name="precio3" size="10"><br>
<input type="submit" value="Confirmar"><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;" & _
"Initial Catalog=wi630629_aspya"
conexion.Open
if len(request.form("descripcion1"))>0 and len(request.form("precio1")>0) then
conexion.execute("insert into articulos(descripcion,precio)" & _
"values ('" & request.form("descripcion1") & _
"'," & request.form("precio1") & ")")
end if
if len(request.form("descripcion2"))>0 and len(request.form("precio2")>0) then
conexion.execute("insert into articulos(descripcion,precio)" & _
"values ('" & request.form("descripcion2") & _
"'," & request.form("precio2") & ")")
end if
if len(request.form("descripcion3"))>0 and len(request.form("precio3")>0) then
conexion.execute("insert into articulos(descripcion,precio)" & _
"values ('" & request.form("descripcion3") & _
"'," & request.form("precio3") & ")")
end if
response.write("Datos registrados")
conexion.close
%>
</body>
</html>