Salve a tutti!
Ho un problema che mi perseguita da diversi giorni oramai.
Premetto che non ho fatto molto spesso i carrelli ma adesso sono costretto a ferne uno lesto e buono.
Allora....
Ho già creato un carrello con un array di session ed ho il problema di registrarlo.
Ecco il codice del carrello per registrarlo nel database
connessione = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database\Prodotti.mdb")
' DEFINIZIONE DELLE COSTANTI
const cartpid = 0
const cartpname = 1
const cartpprice = 2
const cartpquantity = 3
' VISUALIZZAZIONE DEL CARRELLO DELLA SPESA
if Not isArray(Session("cart")) then
DIM localcart(4, 20)
Else
localcart = Session("cart")
End If
' AGGIUNGO L'ORDINE NELLA TBELLA ORDINI
dim rs
set rs = server.CreateObject("ADODB.recordset")
rs.Open "select * from Ordini", connessione, 1, 3
rs.addnew
rs("IDcliente") = session("idCliente")
rs("Data") = Date()
rs("Importo") = Request.Form("totale")
rs.update
rs.close
set rs = nothing
'MI PRENDO IL NUMERO DELL'ULTIMO ORDINE APPENA INSERITO
dim rs1
set rs1 = server.CreateObject("ADODB.recordset")
rs1.Open "select * from Ordini order by idordine desc", connessione, 1, 3
NumeroOrdine = rs1("idordine")
rs1.close
set rs1 = nothing
'AGGIUNGO I FORM DELLA PAGINA PRECEDENTE NELLA TABELLA
'PRODOTTIORDINATI COLLEGATA ALLA TABELLA ORDINI
dim rs2
set rs2 = server.CreateObject("ADODB.recordset")
rs2.Open "select * from prodottiOrdinati", connessione, 2, 3
rs2.addnew
For i = 0 to Ubound(localCart, 2)
a = 0
if i <> Ubound(localCart, 2) then
prodotto = request.form ("prodotto"&a )
quantita = request.form ("id"&a)
rs2("titolo") = prodotto
rs2("descrizione") = quantita
rs2.update
a = a + 1
end if
next
rs2.close
set rs2 = nothing
Response.Write("Tutto Fatto")
%>
Il problema è proprio nell'inserimento nell'ultima tabella.
i form della pagina precedente si chiamano:
prodotto0
prodotto1
prodotto2
... etc
ora come faccio ad inserirli nel ciclo in modo tale da scrivere nel db tutti i prodotti ordinati?
Dove sbaglio?
Please Help ME
Grazie in anticipo a tutti i professionisti del settore che mi risponderanno.