%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Buffer=True %>
Carrello elettronico
<%
Dim Scelta, ContaAcquisto, ContaVisione, Attrezzo, K
Attrezzo = Request.Form("Text1")
Scelta = Request.Form("optScelta")
Select Case Scelta
Case "Acquista"
ContaAcquisto = Request.Cookies("RighiCarrelloAcquisti")
ContaAcquisto = ContaAcquisto + 1
Response.Cookies("RighiCarrelloAcquisti") = ContaAcquisto
Response.Cookies("CarrelloAcquisti")("Rigo " & ContaAcquisto) = Attrezzo
Response.Write "Il carrello acquisti contiene i seguenti attrezzi
"
For K = 1 To ContaAcquisto
Response.Write Request.Cookies("CarrelloAcquisti")("Rigo " & K) & "
"
Next
Case "Visiona"
ContaVisione = Request.Cookies("RighiCarrelloVisione")
ContaVisione = ContaVisione + 1
Response.Cookies("RighiCarrelloVisione") = ContaVisione
Response.Cookies("CarrelloVisione")("Rigo " & ContaVisione) = Attrezzo
Response.Write "Il carrello visione contiene i seguenti attrezzi
"
For K = 1 To ContaVisione
Response.Write Request.Cookies("CarrelloVisione")("Rigo " & K) & "
"
Next
Case "Svuota"
Response.Cookies("RighiCarrelloAcquisti") = 0
Response.Cookies("RighiCarrelloVisione") = 0
Response.Cookies("CarrelloAcquisti") = 0
Response.Cookies("CarrelloVisione") = 0
Response.Write "Carrelli svuotati"
End Select
%>