Ciao mi da questo errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.
Questo è il codice
<%
Sub CreateNewOrder()
Application.lock
if Application("idordine") = "" then
Application("idordine") = 1
end if
intOrderID = Application("idordine")
Session("idordine") = intOrderID
ObjConn.Execute("INSERT INTO ORDINI " _
& " (idordine, status) values " _
& " ("&intOrderID&", 'APERTO')")
Application("idordine") = Application("idordine") + 1
Application.Unlock
End Sub
Sub AddToOrder(intorderid, idprodotto, idopzione, taglia, quantita)
sqlText = "INSERT INTO carttab " _
& " (idordine, idprodotto, idopzione, taglia, quantita) values " _
& " ("&intorderid&", "&idprodotto&", "&idopzione&", "&taglia&", "&quantita&")"
ObjConn.Execute(sqlText)
End Sub
'Main program
idprodotto = request.Form("idprodotto")
idopzione = request.Form("idopzione")
taglia = request.Form("taglia")
quantita = request.Form("quantita")
intOrderID = cstr(Session("idordine"))
if intOrderID = "" then
CreateNewOrder
end if
sqlText = "SELECT * FROM carttab WHERE idordine =" & intorderid & "AND idprodotto =" & idprodotto
set rsOrder = Objconn.Execute(sqlText)
if rsOrder.EOF then
txtInfo = "Prodotto aggiunto al carrello"
AddToOrder intOrderID, idprodotto, idopzione, taglia , quantita
else
txtInfo = "Questo oggetto è nel carrello"
end if
objconn.close
set objconn = nothing
response.Write(txtinfo)
__________________________________________________ ________________
Se tolgo quello che ho evidenziato (la variabile taglia) va tutto bene
Non ho capito cosa può essere, forse perchè non è numerico??

Rispondi quotando
