|
<%
dim path
path = Replace(Request("path"), "'", "")
if path ="Shop" then
%>
Home » Shop » Carrello
<%else if path ="Ordine" then%>
Home » Shop » Ordine » Carrello
<%else if path ="Elenco articoli" then%>
Home » Shop » Elenco articoli » Carrello
<%else if path ="Scheda articolo" then%>
Home » Shop » Scheda articolo » Carrello
<%else if path ="Aiuto" then%>
Home » Shop » Aiuto » Carrello
<%End if%><%End if%><%End if%><%End if%><%End if%>
Shop
1.Scelta articoli » 2.Inserimento dati » 3.Conferma dell'ordine
Carrello Acquisti
Questo č il carrello virtuale contenente gli articoli che
intendi acquistare. E' possibile modificarne la quantità
e spuntare gli articoli che
non si intendono più acquistare ricalcolando l'importo totale cliccando su calcola.
Per aggiungere articoli al carrello e ricalcolare cosė l'importo
totale, ritorna al catalogo.
<%
SpeseDiSpedizione="0"
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
if len(Session("aperta")) > 0 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")
NOITEMSINSHOPPINGBASKET = Session("NOITEMSINSHOPPINGBASKET")
INFO_NOITEMSINSHOPPINGBASKET = Session("INFO_NOITEMSINSHOPPINGBASKET")
%>
<%
Dim idarticolo
'#################
Dim DBString
'#################
idarticolo = Request.QueryString("idarticolo")
If Len(idarticolo) > 0 Then
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Codice, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Confezione, "
sqlquery = sqlquery & "Prezzo "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "[Catalogo, Articoli] "
sqlquery = sqlquery & "where "
sqlquery = sqlquery & "ID = " & idarticolo
Dim RecordsetArticolo
Set RecordsetArticolo = DatabaseWebStore.Execute(sqlquery)
Dim ID
Dim Codice
Dim Denominazione
Dim Confezione
Dim Prezzo
If Not RecordsetArticolo.EOF Then
ID = RecordsetArticolo("ID")
Codice = RecordsetArticolo("Codice")
Denominazione = RecordsetArticolo("Denominazione")
Confezione = RecordsetArticolo("Confezione")
Prezzo = RecordsetArticolo("Prezzo")
End If
RecordsetArticolo.Close
Set RecordsetArticolo = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
Dim inscontrino
inscontrino = False
For i = 1 To QuantiArticoliInScontrino
If ScontrinoIDArticolo(i) = ID Then
ScontrinoQuantitativoArticolo(i) = ScontrinoQuantitativoArticolo(i) + 1
inscontrino = True
End If
Next
If inscontrino Then
Else
QuantiArticoliInScontrino = QuantiArticoliInScontrino + 1
ReDim Preserve ScontrinoInScontrino(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoIDArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoCodiceArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoDenominazioneArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoConfezioneArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoQuantitativoArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoPrezzoArticolo(QuantiArticoliInScontrino)
ScontrinoInScontrino(QuantiArticoliInScontrino) = True
ScontrinoIDArticolo(QuantiArticoliInScontrino) = ID
ScontrinoCodiceArticolo(QuantiArticoliInScontrino) = Codice
ScontrinoDenominazioneArticolo(QuantiArticoliInScontrino) = Denominazione
ScontrinoQuantitativoArticolo(QuantiArticoliInScontrino) = 1
ScontrinoConfezioneArticolo(QuantiArticoliInScontrino) = Confezione
ScontrinoPrezzoArticolo(QuantiArticoliInScontrino) = Prezzo
End If
NOITEMSINSHOPPINGBASKET = False
Session("QuantiArticoliInScontrino") = QuantiArticoliInScontrino
Session("ScontrinoInScontrino") = ScontrinoInScontrino
Session("ScontrinoIDArticolo") = ScontrinoIDArticolo
Session("ScontrinoCodiceArticolo") = ScontrinoCodiceArticolo
Session("ScontrinoDenominazioneArticolo") = ScontrinoDenominazioneArticolo
Session("ScontrinoQuantitativoArticolo") = ScontrinoQuantitativoArticolo
Session("ScontrinoPrezzoArticolo") = ScontrinoPrezzoArticolo
Session("ScontrinoConfezioneArticolo") = ScontrinoConfezioneArticolo
Session("SpeseDiSpedizione") = SpeseDiSpedizione
Session("NOITEMSINSHOPPINGBASKET") = NOITEMSINSHOPPINGBASKET
End If%>
<%
Dim Requirement
Requirement = Request.Form("ricalcola.x")
If Len(Requirement) > 0 Then
If Requirement = "Annulla" Then
QuantiArticoliInScontrino = 0
NOITEMSINSHOPPINGBASKET = True
Else
Dim QuantiArticoliInNuovoScontrino
Dim Quantitativo
For i = 1 To QuantiArticoliInScontrino
If Request.Form("checked" & CStr(i)) = "ok" Then
ScontrinoInScontrino(i) = True
Else
ScontrinoInScontrino(i) = False
End If
If ScontrinoInScontrino(i) Then
Quantitativo = Trim(Request.Form("quantitativo" & CStr(i)))
If IsNumeric(Quantitativo) Then
ScontrinoQuantitativoArticolo(i) = Abs(CLng(Quantitativo))
Else
ScontrinoQuantitativoArticolo(i) = 1
End If
QuantiArticoliInNuovoScontrino = QuantiArticoliInNuovoScontrino + 1
ScontrinoInScontrino(QuantiArticoliInNuovoScontrino) = ScontrinoInScontrino(i)
ScontrinoIDArticolo(QuantiArticoliInNuovoScontrino) = ScontrinoIDArticolo(i)
ScontrinoCodiceArticolo(QuantiArticoliInNuovoScontrino) = ScontrinoCodiceArticolo(i)
ScontrinoDenominazioneArticolo(QuantiArticoliInNuovoScontrino) = ScontrinoDenominazioneArticolo(i)
ScontrinoConfezioneArticolo(QuantiArticoliInNuovoScontrino) = ScontrinoConfezioneArticolo(i)
ScontrinoQuantitativoArticolo(QuantiArticoliInNuovoScontrino) = ScontrinoQuantitativoArticolo(i)
ScontrinoPrezzoArticolo(QuantiArticoliInNuovoScontrino) = ScontrinoPrezzoArticolo(i)
End If
Next
QuantiArticoliInScontrino = QuantiArticoliInNuovoScontrino
If QuantiArticoliInScontrino > 0 Then
ReDim Preserve ScontrinoInScontrino(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoIDArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoCodiceArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoDenominazioneArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoConfezioneArticolo(QuantiArticoliInNuovoScontrino)
ReDim Preserve ScontrinoQuantitativoArticolo(QuantiArticoliInScontrino)
ReDim Preserve ScontrinoPrezzoArticolo(QuantiArticoliInScontrino)
End If
If QuantiArticoliInScontrino = 0 Then
NOITEMSINSHOPPINGBASKET = True
End If
Session("QuantiArticoliInScontrino") = QuantiArticoliInScontrino
Session("ScontrinoInScontrino") = ScontrinoInScontrino
Session("ScontrinoIDArticolo") = ScontrinoIDArticolo
Session("ScontrinoCodiceArticolo") = ScontrinoCodiceArticolo
Session("ScontrinoDenominazioneArticolo") = ScontrinoDenominazioneArticolo
Session("ScontrinoConfezioneArticolo") = ScontrinoConfezioneArticolo
Session("ScontrinoQuantitativoArticolo") = ScontrinoQuantitativoArticolo
Session("ScontrinoPrezzoArticolo") = ScontrinoPrezzoArticolo
Session("NOITEMSINSHOPPINGBASKET") = NOITEMSINSHOPPINGBASKET
End If
End If
%>
<%If NOITEMSINSHOPPINGBASKET = True Then%>
<%=INFO_NOITEMSINSHOPPINGBASKET%>
<%End If%>
<%If NOITEMSINSHOPPINGBASKET = True Then%>
<%Else%>
Aggiungi altri articoli al carrello.
<%End If
else%>
La sessione è scaduta. Torna al catalogo
<%End If
%> |
