Modifica script shop

[elisa21]

Ciao a tutti,
ho con piacere trovato e montato un piccolo script per la gestione di un piccolo carrello online.
Nell'amministrazione, ovvero in uno dei 2 file che gestiscono l'area admin (gestione_carrello.asp), avrei la necessità di fare una piccola aggiunta, ovvero inserire la quantità totale di ogni articolo e man a mano che gli articoli vengono ordinati tale quantità si aggiorni automaticamente.

Ho implementato il db con il campo Qt_Magazzino, e fatte le modifiche necessarie per quanto riguarda l'inserimento nel db, la modifica e la visualizzazione del numero relativo ad ogni articolo.

A livello di logica e non come posso procedere per far si che in base agli ordini ricevuti, tale quantità si aggiorni automaticamente?


vi ringrazio per l'aiuto
elisa

[Roby_72]

Conoscendo l'id del prodotto acquistato basta una semplice query di aggiornamento:

strSQL="UPDATE nometabella SET Qt_Magazzino = Qt_Magazzino - "& Qt_Ordinata &" WHERE prodotto_id = "& prodotto_id

Roby

[supergeniux]

chiaramente la riga di codice postata da roby, va inserita nella pagina usata per la conferma dell'ordine e non per la semplice aggiunta dei prodotti al carrello.

[elisa21]

Grazie dell'aiuto

Guardando il file in questione ovvero ordine.asp non riesco a 'vedere' l'id del prodotto, incollo parte del codice della pagina relativa:

<%
if len(Session("aperta")) > 0 then
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath("\") & "\mdb-database\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
SpeseDiSpedizione=0
Data = now
if Session("AcquistoOK")="" then
AcquistoOK=false
else
AcquistoOK=Session("AcquistoOK")
end if
if not AcquistoOK then
if len(Request.form("acquista.x"))>0 then
IDCliente = Request.form("IDCliente")
SchedaClienteNome = Request.form("SchedaClienteNome")
SchedaClienteCognome = Request.form("SchedaClienteCognome")
SchedaClienteIndirizzo = Request.form("SchedaClienteIndirizzo")
SchedaClienteCodicePostale = Request.form("SchedaClienteCodicePostale")
SchedaClienteComune = Request.form("SchedaClienteComune")
SchedaClienteProvincia = Request.form("SchedaClienteProvincia")
SchedaClienteTelefono = Request.form("SchedaClienteTelefono")
SchedaClienteFax = Request.form("SchedaClienteFax")
SchedaClienteEmail = Request.form("SchedaClienteEmail")
SchedaClienteMetodoPagamento= Request.form("SchedaClienteMetodoPagamento")
INFO_EMPTYFIELDS=""
if SchedaClienteMetodoPagamento="" then INFO_EMPTYFIELDS="Seleziona una modalit&agrave; di pagamento"
if SchedaClienteProvincia="" then INFO_EMPTYFIELDS="Inserisci la provincia"
if SchedaClienteCodicePostale="" then INFO_EMPTYFIELDS="Inserisci il C.A.P."
if SchedaClienteComune="" then INFO_EMPTYFIELDS="Inserisci il comune"
if SchedaClienteIndirizzo="" then INFO_EMPTYFIELDS="Inserisci l'indirizzo"
if SchedaClienteCognome="" then INFO_EMPTYFIELDS="Inserisci il cognome"
if SchedaClienteNome="" then INFO_EMPTYFIELDS="Inserisci il nome"
Session("IDCliente") = IDCliente
Session("SchedaClienteNome") = SchedaClienteNome
Session("SchedaClienteCognome") = SchedaClienteCognome
Session("SchedaClienteIndirizzo")=SchedaClienteInd irizzo
Session("SchedaClienteCodicePostale")=SchedaClient eCodicePostale
Session("SchedaClienteComune")=SchedaClienteComune
Session("SchedaClienteProvincia")=SchedaClientePro vincia
Session("SchedaClienteTelefono")=SchedaClienteTele fono
Session("SchedaClienteFax")=SchedaClienteFax
Session("SchedaClienteEmail")=SchedaClienteEmail
Session("SchedaClienteMetodoPagamento")=SchedaClie nteMetodoPagamento
Session("INFO_EMPTYFIELDS") = INFO_EMPTYFIELDS
if INFO_EMPTYFIELDS = "" then
QuantiArticoliInScontrino = Session("QuantiArticoliInScontrino")
ScontrinoInScontrino = Session("ScontrinoInScontrino")
ScontrinoIDArticolo = Session("ScontrinoIDArticolo")
ScontrinoCodiceArticolo = Session("ScontrinoCodiceArticolo")
ScontrinoDenominazioneArticolo = Session("ScontrinoDenominazioneArticolo")
ScontrinoQuantitativoArticolo = Session("ScontrinoQuantitativoArticolo")
ScontrinoConfezioneArticolo = Session("ScontrinoConfezioneArticolo")
ScontrinoPrezzoArticolo = Session("ScontrinoPrezzoArticolo")
SpeseDiSpedizione = Session("SpeseDiSpedizione")
SchedaClienteMetodoPagamento = Session("SchedaClienteMetodoPagamento")
ID = session("ID")
ID=ID+1
session("ID") = ID
IDOrdine = Session.SessionID & "." & cstr(ID)
Session("IDOrdine") = IDOrdine
%>

qui trovo i tag html relativi alla conferma dell'ordine poi ho:

<%
end if

elseif len(Request.form("conferma.x"))>0 then
IDCliente = Session("IDCliente")
SchedaClienteNome = Session("SchedaClienteNome")
SchedaClienteCognome = Session("SchedaClienteCognome")
SchedaClienteIndirizzo = Session("SchedaClienteIndirizzo")
SchedaClienteCodicePostale = Session("SchedaClienteCodicePostale")
SchedaClienteComune = Session("SchedaClienteComune")
SchedaClienteProvincia = Session("SchedaClienteProvincia")
SchedaClienteTelefono = Session("SchedaClienteTelefono")
SchedaClienteFax = Session("SchedaClienteFax")
SchedaClienteEmail = Session("SchedaClienteEmail")
SchedaClienteMetodoPagamento = Session("SchedaClienteMetodoPagamento")
INFO_EMPTYFIELDS = Session("INFO_EMPTYFIELDS")
QuantiArticoliInScontrino = Session("QuantiArticoliInScontrino")
ScontrinoInScontrino = Session("ScontrinoInScontrino")
ScontrinoIDArticolo = Session("ScontrinoIDArticolo")
ScontrinoCodiceArticolo = Session("ScontrinoCodiceArticolo")
ScontrinoDenominazioneArticolo = Session("ScontrinoDenominazioneArticolo")
ScontrinoQuantitativoArticolo = Session("ScontrinoQuantitativoArticolo")
ScontrinoConfezioneArticolo = Session("ScontrinoConfezioneArticolo")
ScontrinoPrezzoArticolo = Session("ScontrinoPrezzoArticolo")
SpeseDiSpedizione = Session("SpeseDiSpedizione")
'calcola l'id
ID = session("ID")
ID=ID+1
session("ID") = ID
IDCliente = Session.SessionID & "." & cstr(ID)

'inserimento
sql=""
sql = sql + "INSERT INTO clienti "
sql = sql + "(id,nome, cognome, indirizzo, cap, città, provincia, telefono, fax, email) VALUES "
sql = sql + "('" & IDCliente & "', "
sql = sql + "'" & SchedaClienteNome & "', "
sql = sql + "'" & SchedaClienteCognome & "', "
sql = sql + "'" & SchedaClienteIndirizzo & "', "
sql = sql + "'" & SchedaClienteCodicePostale & "', "
sql = sql + "'" & SchedaClienteComune & "', "
sql = sql + "'" & SchedaClienteProvincia & "', "
sql = sql + "'" & SchedaClienteTelefono & "', "
sql = sql + "'" & SchedaClienteFax & "', "
sql = sql + "'" & SchedaClienteEmail & "') "
DatabaseWebstore.execute sql
IDOrdine = Session("IDOrdine")
Importo=0
for i = 1 to QuantiArticoliInScontrino
Importo = Importo + (ScontrinoQuantitativoArticolo(i)*ScontrinoPrezzoA rticolo(i))
next
sql=""
sql = sql + "INSERT INTO ordini "
sql = sql + "(id, idcliente, data, importo, spesedispedizione, mododipagamento) VALUES "
sql = sql + "('" & IDOrdine & "', "
sql = sql + "'" & IDCliente & "', "
sql = sql + "'" & Data & "', "
sql = sql + "" & replace(cstr(Importo), ",", ".") & ", "
sql = sql + "" & replace(cstr(SpeseDiSpedizione), ",", ".") & ", "
sql = sql + "'" & SchedaClienteMetodoPagamento & "')"
DatabaseWebstore.execute sql
ID = session("ID")
'scrive i dati di scontrino
for i = 1 to QuantiArticoliInScontrino
ID=ID+1
IDVoceDiScontrino = Session.SessionID & "." & cstr(ID)
session("ID") = ID
'
sql=""
sql = sql + "INSERT INTO scontrini "
sql = sql + "(id, idordine, CodiceArticolo, DenominazioneArticolo, PrezzoArticolo, QuantitativoArticolo) VALUES "
sql = sql + "('" & IDVoceDiScontrino & "', "
sql = sql + "'" & IDOrdine & "', "
sql = sql + "'" & ScontrinoCodiceArticolo(i) & "', "
sql = sql + "'" & ScontrinoDenominazioneArticolo(i) & "', "
sql = sql + "" & replace(cstr(ScontrinoPrezzoArticolo(i)), ",", ".") & ", "
sql = sql + "" & ScontrinoQuantitativoArticolo(i) & ")"
DatabaseWebstore.execute sql
next

'termine acquisto
AcquistoOK=true
Session("AcquistoOK")=AcquistoOK
Session("aperta")=""
DatabaseWebstore.close
set DatabaseWebstore = nothing
else
IDCliente = Session("IDCliente")
SchedaClienteNome = Session("SchedaClienteNome")
SchedaClienteCognome = Session("SchedaClienteCognome")
SchedaClienteIndirizzo = Session("SchedaClienteIndirizzo")
SchedaClienteCodicePostale = Session("SchedaClienteCodicePostale")
SchedaClienteComune = Session("SchedaClienteComune")
SchedaClienteProvincia = Session("SchedaClienteProvincia")
SchedaClienteTelefono = Session("SchedaClienteTelefono")
SchedaClienteFax = Session("SchedaClienteFax")
SchedaClienteEmail = Session("SchedaClienteEmail")
SchedaClienteMetodoPagamento = Session("SchedaClienteMetodoPagamento")
INFO_EMPTYFIELDS = Session("INFO_EMPTYFIELDS")
end if
end if
if not AcquistoOK and (len(Request.form("acquista.x"))=0 or INFO_EMPTYFIELDS <> "") then
If INFO_EMPTYFIELDS<>"" Then%>
<font color="red"><%=INFO_EMPTYFIELDS%></font>

<%End If
%>

tag del form iniziale per l'inserimento dei dati del cliente e infine:

QuantiArticoliInScontrino = Session("QuantiArticoliInScontrino")
ScontrinoInScontrino = Session("ScontrinoInScontrino")
ScontrinoIDArticolo = Session("ScontrinoIDArticolo")
ScontrinoCodiceArticolo = Session("ScontrinoCodiceArticolo")
ScontrinoDenominazioneArticolo = Session("ScontrinoDenominazioneArticolo")
ScontrinoQuantitativoArticolo = Session("ScontrinoQuantitativoArticolo")
ScontrinoConfezioneArticolo = Session("ScontrinoConfezioneArticolo")
ScontrinoPrezzoArticolo = Session("ScontrinoPrezzoArticolo")
SpeseDiSpedizione = Session("SpeseDiSpedizione")
SchedaClienteMetodoPagamento = Session("SchedaClienteMetodoPagamento")
ID = session("ID")
ID=ID+1
session("ID") = ID
IDOrdine = Session.SessionID & "." & cstr(ID)
Session("IDOrdine") = IDOrdine
%>

concludendo con il riepilogo ordine con i dati relativi all'ordine stesso.

Quale id devo prendere? Vi ringrazio per l'aiuto
elisa