27 - INSERT (y consulta de otra tabla)


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:

<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<form action="pagina2.asp" method="post">
Descripcion del articulo:
<input type="text" name="descripcion" size="30"><br>
Precio:
<input type="text" name="precio" size="10"><br>
Rubros<br>
<%
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 from rubros",conexion
do while not registros.eof
  response.write("<input type=""radio"" name=""codigorubro"" value=""" & registros("codigo") & """>") 
  response.write(registros("descripcion") & "<br>")
  registros.movenext
loop
conexion.close
%>
<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
conexion.execute("insert into articulos(descripcion,precio,codigorubro)" & _
                 "values ('" & request.form("descripcion") & _
                 "'," & request.form("precio") & ",'" & request.form("codigorubro") & "')")
conexion.close
response.write("Datos cargados")
%>
</body>
</html>

Confeccionar una página que permita efectuar el alta de un artículo (descripcion, precio y rubro), disponer los rubros en controles HTML de tipo radio.

Ver solución

pagina1.asp







pagina2.asp



Retornar