Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/08/2005, 06:37
Essftg
 
Fecha de Ingreso: septiembre-2004
Mensajes: 76
Antigüedad: 20 años, 7 meses
Puntos: 0
insertar mas de dos campos en una tabla

* Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta 'orderID =10AND productID =421AND color=VERDEAND txttalla00='.

<%

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, nQuant)
sqlText = "INSERT INTO itemsOrdered " _
& " (orderID, productID, color, txtalla00, quantity) values " _
& " ("&nOrderID&", "&nProductID&", "&ncolor&", "&txtalla00&","&nQuant&")"
Con.Execute(sqlText)

End Sub

'Main program
intProdID = Request.form("intProdID")
intColor = Request.form("color")
intTxttalla00= Request.form("txttalla00")
intQuant = Request.form("intQuant")

Dim con,rs,sql,datos,sqlText,rsOrder

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
sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & "AND productID =" & intProdID & "AND color=" & intcolor & "AND txttalla00=" & inttxttalla00
set rsOrder = Con.Execute(sqlText)


if rsOrder.EOF then
txtInfo = "Este artículo se ha agregado a su orden."
AddToOrder intOrderID, intProdID, intColor, intTxttalla, intQuant
else
txtInfo = "Este artículo ya está en su carta."
end if


%>