He probado lo siguiente, pero tengo muchas dudas,
con esto aun no conseguiria que se modificase el stock de los productos, pero avanzaria bastante.
Creo la tabla inventario, con los siguientes campos:
idstock (clave principal) campo autonumerico
idproducto (es la clave principal de otra tabla llamada productos)
idpedidos (es la clave principal de otra tabla llamada pedidos)
stock (campo numerico)
alerta (campo numerico)
Creo la pagina prestock.asp
<!-- #include file="db.asp" -->
<%
‘Esto es un comentario, este es el contenido de db.asp
dim db
dim strConn
strConn = "comercio"
Set db = Server.CreateObject("ADODB.Connection")
db.open strConn
%>
<center>
<form method="POST" action="stock.asp">
<table>
<tr>
<td>stock </td>
<td><input size=20 name="stock" value="<%= stock %>" maxlength=100></td>
</tr>
<tr>
<td>Email </td>
<td><input size=20 name="alerta" value="<%= alerta %>" maxlength=100></td></tr>
</table>
<input type="submit" value="Enviar">
</form>
</center>
Creo la pagina stock.asp
<center>
<form method="POST" action="altas.asp">
<table>
<tr>
<td>Nombre </td>
<td><input type=text name="nombre" size=40></td>
</tr>
<tr>
<td>Email </td>
<td><input type=text name= "mail" size=40></td>
</tr>
<tr>
<td>Pais </td>
<td><input type=text name= "pais" size=40></td>
</tr>
</table>
<input type="submit" value="Enviar">
</form>
</center>
<%
db.close
set db=nothing
%>
Creo la pagina stock.asp
<%
'**** stock.asp ****
<!-- #include file="db.asp" -->
<%
‘Esto es un comentario, este es el contenido de db.asp
dim db
dim strConn
strConn = "comercio"
Set db = Server.CreateObject("ADODB.Connection")
db.open strConn
%>
' Recogemos los valores del formulario
dim varstock, varalerta
varnstock = Request.Form("stock")
varalerta = Request.Form("alerta")
'Creamos un recordset
txtsql = "Select * from inventario"
set rs = db.execute (txtsql)
'esta instruccion es la que va a hacer el insert de nuestros valores en la BD
insertar = "INSERT into inventario (idproducto,idpedido,stock, alerta) values ('"& varstock &"','"& varalerta &"')"
db.execute (insertar)
¿¿¿¿¿ Como pondria en la instrucción anterior para que cogiese el valor de idproducto de la tabla producto, y el valor idpedido de la tabla pedidos????????
¿¿¿¿¿ Como pondria hacer que no necesariamente el campo idpedido tenga que tener algun contenido, ya que cuando introduzco un producto en el inventario quiero fijar el stock y la alerta, y en un primer momento no hay o no tiene porque haber ningun pedido de es producto????????
'Terminamos e imprimimos un mensaje
Response.Write "<body><p><b>Alta exitosa!!!</b></p>"
Response.Write "<p>Los datos que se grabaron son : </p>"
Response.Write "<b>idproducto: </b> "& idproducto & "<br>"
Response.Write "<b>idpedidol: </b> "& idpedido & "<br>"
Response.Write "<b>stock: </b> "& stock & "<br>"
Response.Write "<b>alerta: </b> "& alerta & "<br>"
'liberamos la memoria cerrando la conexion y el recordset
<%
db.close
set db=nothing
%>
<%
'**** Creo la pagina controlstock.asp****
<!-- #include file="db.asp" -->
<%
‘Esto es un comentario, este es el contenido de db.asp
dim db
dim strConn
strConn = "comercio"
Set db = Server.CreateObject("ADODB.Connection")
db.open strConn
%>
'Ejecuta un sentencia SQL de consulta
txtsql = "Select * from inventario"
Set rs = con.Execute(txtsql)
%>
<body>
<h2>Resultado de la consulta</h2>
<p>Aqui tenemos a todos nuestros contactos.</p>
<center>
<table border=1>
<tr>
<th>idproducto</th>
<th>idpedido</th>
<th>stock</th>
<th>alerta</th>
</tr>
<% 'iniciamos un ciclo para el vaciado de los registros
Do while not rs.EOF
%>
<tr>
<td>
<%= rs("idproducto")%>
</td>
<td>
<%= rs("idpedido")%>
</td>
<td>
<%= rs("stock")%>
</td><td>
<%= rs("alerta")%>
</td>
</tr>
<%
'nos movemos al siguiente registro
rs.MoveNext
'y regresamos a nuestro ciclo
Loop
'al terminarlo de vaciar datos liberamos memoria
<%
db.close
set db=nothing
%>
</table>
</center>
</body>
</html>
//////////////////Gracias por vuestra ayuda///////////////////////////