Salve,
con questo codice gestisco il mio carrello
nel senso che do la possibilità di inserire la quantità da acquistare in una casella di testo la cui value è "newQ" che poi corrisponde anche alla cart_quantity; come potete vedere faccio dei controlli sul formato inserito nella casella di testo (deve essere numerico e non negativo) e non può essere > di 25.
Per potere eliminare i prodotti bisogna inserire 0 nella casella di testo.
Io vorrei inserire anche un comando (tipo un imput con l'immagine di un cestino) da affiancare alla riga del prodotto che mi permetta di cancellarlo dal carrello (quindi impostare a zero la quantità).
Vorrei usere un comando attraverso Javascript che imposti il valore a 0 nella casella di testo e poi faccia il Refresh della pagina
Come posso fare?
Grazie!.
<%
' Estrazione ID del prodotto
productID = TRIM( Request( "pid" ) )
' Aggiunta articoli nel carrello
IF productID <> "" THEN
sqlString = "SELECT cart_id FROM cart " &_
"WHERE cart_userID=" & userID & " " &_
"AND cart_productID=" & productID
SET RS = Con.Execute( sqlString )
IF RS.EOF THEN
sqlString = "INSERT INTO cart ( " &_
"cart_userID, " &_
"cart_productID, " &_
"cart_quantity " &_
") VALUES ( " &_
userID & ", " &_
productID & ", 1 )"
ELSE
sqlString = "UPDATE cart SET " &_
"cart_quantity=cart_quantity+1 " &_
"WHERE cart_id=" & RS( "cart_id" )
END IF
RS.Close
SET RS = Nothing
Con.Execute sqlString
END IF
' Aggiornamento quantità carrello della spesa
IF Request( "updateQ" ) <> "" THEN
SET RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic
sqlString = "SELECT cart_id, cart_quantity FROM cart " &_
"WHERE cart_userID=" & userID
RS.Open sqlString
WHILE NOT RS.EOF
newQ = TRIM( Request( "pq" & RS( "cart_id" ) ) )
'controllo quantità valida
IF newQ = "" OR newQ = "0" THEN
RS.Delete
ELSE
IF isNumeric( newQ ) THEN
RS( "cart_quantity" ) = newQ
ELSE
newQ = 1
END IF
IF newQ <= 25 THEN
RS( "cart_quantity" ) = newQ
ELSE
RS( "cart_quantity" ) = 25
END IF
END IF
RS.MoveNext
WEND
RS.Close
SET RS = Nothing
END IF
%>
Rispondi quotando
