<% SpeseDiSpedizione="10,50" 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%>
<% Dim Importo Importo = 0 %> <%Dim i%> <%For i = 1 To QuantiArticoliInScontrino%> <%Importo = Importo + (ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i))%> <%Next%>
  Codice Descrizione Importo € Q.tà Totale €

" VALUE="ok" CHECKED> <%=ScontrinoCodiceArticolo(i)%> <%=ScontrinoDenominazioneArticolo(i)%> <%=FormatNumber(ScontrinoPrezzoArticolo(i), 2, -1, 0, -1)%> " VALUE="<%=ScontrinoQuantitativoArticolo(i)%>" SIZE=2 MAXLENGTH=3> <%=FormatNumber((ScontrinoPrezzoArticolo(i) * ScontrinoQuantitativoArticolo(i)), 2, -1, 0, -1)%>

Spese di spedizione          <%=SpeseDiSpedizione%>

Totale € <%=FormatNumber(Importo + SpeseDiSpedizione, 2, -1, 0, -1)%>
 
   Acquista
<%End If else%>

La sessione scaduta. Torna all'Home Page

<%End If %>
 
 

 

Torna al catalogo