| No entiendo muy bien como ponerlo, yo selecciono uno de los colores y me manda a otra pagina que me dice q se ha insertado en la tabla. Te pongo el codigo para ver si me puedes ayudar. El strDesc00 es el color(son las opciones de antes)
<%
Sub CreateNewOrder()
Application.lock
if Application("orderID") = "" then
Application("orderID") = 1
end if
intOrderID = Application("orderID")
Session("orderID") = intOrderID
Con.Execute("insert INTO orders " & " (orderID, status) values " & " ("&intOrderID&", 'OPEN')")
Application("orderID") = Application("orderID") + 1
Application.Unlock
End Sub
Sub AddToOrder(nOrderID, nProductID, color, ncolor01, ncolor02, ncolor03, ncolor04, ncolor05, ncolor06, ncolor07, ncolor08, ncolor09, ncolor10, ncolor11, ncolor12, nQuant)
sqlText = "INSERT INTO itemsOrdered " _
& " (orderID, productID, color, color01, color02, color03, color04, color05, color06, color07, color08, color09, color10, color11, color12, quantity) values " _
& " ("&nOrderID&", "&nProductID&", "&ncolor&", "&ncolor01&", "&ncolor02&", "&ncolor03&", "&ncolor03&", "&ncolor04&", "&ncolor05&", "&ncolor06&", "&ncolor07&", "&ncolor08&", "&ncolor09&", "&ncolor10&", "&ncolor11&", "&ncolor12&", "&nQuant&")"
Con.Execute(sqlText)
End Sub
'Main program
intProdID = Request.form("intProdID")
intColor= Request.form ("color")
intQuant = Request.form("intQuant")
Dim con,rs,sql,datos,sqlText
datos= Server.MapPath ( "tienda.mdb " )
' Creamos el objeto para la conexion y la abrimos
Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="& datos &";"
intOrderID = cstr(Session("orderID"))
if intOrderID = "" then
CreateNewOrder
end if
sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & " AND productID =" & intProdID & "AND color=" & intColor
set rsOrder = Con.Execute(sqlText)
if rsOrder.EOF then
txtInfo = "Este artículo se ha agregado a su orden."
AddToOrder intOrderID, intProdID, intQuant
else
txtInfo = "Este artículo ya está en su carta."
end if
%>
A ver si me puedes ayudar, gracias |