<% ' Il codice ASP generato dal componente di FrontPage è un prodotto software ed è pertanto ' protetto dalle leggi e dai trattati internazionali sul copyright, oltre che da altre leggi ' e trattati sulla proprietà intellettuale. Tale prodotto software è di proprietà della Fulltrading S.p.A.' E' concesso in licenza e non venduto all'utilizzatore finale.' Sono vietate la copia anche parziale o la manomissione del codice asp generato dal componente' nonchè la manomissione o l'eliminazione delle presenti informazioni di copyright.' ' BaggyBot Free v. 1.1.11%><% If Len(Session("aperta")) > 0 Then Else Session("aperta") = "ok" Session.LCID = 1040 Dim QuantiArticoliInScontrino Dim ScontrinoInScontrino() Dim ScontrinoIDArticolo() Dim ScontrinoCodiceArticolo() Dim ScontrinoDenominazioneArticolo() Dim ScontrinoConfezioneArticolo() Dim ScontrinoQuantitativoArticolo() Dim ScontrinoPrezzoArticolo() Dim NOITEMSINSHOPPINGBASKET Dim TOOMANYITEMSINSHOPPINGBASKET Dim INFO_NOITEMSINSHOPPINGBASKET Dim INFO_TOOMANYITEMSINSHOPPINGBASKET QuantiArticoliInScontrino = 0 NOITEMSINSHOPPINGBASKET = True TOOMANYITEMSINSHOPPINGBASKET = False INFO_NOITEMSINSHOPPINGBASKET = "Il tuo carrello è vuoto." INFO_TOOMANYITEMSINSHOPPINGBASKET = "Il carrello contiene troppi articoli..." Session("QuantiArticoliInScontrino") = QuantiArticoliInScontrino Session("ScontrinoInScontrino") = ScontrinoInScontrino Session("ScontrinoIDArticolo") = ScontrinoIDArticolo Session("ScontrinoCodiceArticolo") = ScontrinoCodiceArticolo Session("ScontrinoDenominazioneArticolo") = ScontrinoDenominazioneArticolo Session("ScontrinoQuantitativoArticolo") = ScontrinoQuantitativoArticolo Session("ScontrinoConfezioneArticolo") = ScontrinoConfezioneArticolo Session("ScontrinoPrezzoArticolo") = ScontrinoPrezzoArticolo Session("NOITEMSINSHOPPINGBASKET") = NOITEMSINSHOPPINGBASKET Session("TOOMANYITEMSINSHOPPINGBASKET") = TOOMANYITEMSINSHOPPINGBASKET Session("INFO_NOITEMSINSHOPPINGBASKET") = INFO_NOITEMSINSHOPPINGBASKET Session("INFO_TOOMANYITEMSINSHOPPINGBASKET") = INFO_TOOMANYITEMSINSHOPPINGBASKET Dim IDUtente Dim SchedaClienteNome Dim SchedaClienteCognome Dim SchedaClienteIndirizzo Dim SchedaClienteCodicePostale Dim SchedaClienteComune Dim SchedaClienteProvincia Dim SchedaClienteTelefono Dim SchedaClienteFax Dim SchedaClienteEmail Dim EMPTYFIELDS Dim INFO_EMPTYFIELDS EMPTYFIELDS = False INFO_EDEMPTYFIELDS = "Compila tutte le informazioni richieste!" Session("IDUtente") = IDUtente Session("SchedaClienteNome") = SchedaClienteNome Session("SchedaClienteCognome") = SchedaClienteCognome Session("SchedaClienteIndirizzo") = SchedaClienteIndirizzo Session("SchedaClienteCodicePostale") = SchedaClienteCodicePostale Session("SchedaClienteComune") = SchedaClienteComune Session("SchedaClienteProvincia") = SchedaClienteProvincia Session("SchedaClienteTelefono") = SchedaClienteTelefono Session("SchedaClienteFax") = SchedaClienteFax Session("SchedaClienteEmail") = SchedaClienteEmail Session("EMPTYFIELDS") = EMPTYFIELDS Session("INFO_EMPTYFIELDS") = INFO_EMPTYFIELDS Dim IDOrdine Dim OrdineData Dim OrdineImporto Dim OrdineSpeseDiSpedizione Session("IDOrdine") = IDOrdine Session("OrdineData") = OrdineData Session("OrdineImporto") = OrdineImporto Session("OrdineSpeseDiSpedizione") = OrdineSpeseDiSpedizione Session("AcquistoOK") = "" End If %>

<% Session.LCID=1040 Set DatabaseWebStore = Server.CreateObject("ADODB.Connection") DBString ="" DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};" DBString = DBString + "Dbq=" & Server.MapPath(".") & "\public\_private\webstore.mdb;" DBString = DBString + "Uid=Admin;" DBString = DBString + "Pwd=;" DatabaseWebStore.Open DBString Dim RecordsetLineeDiCatalogo Dim sqlquery sqlquery = "select " sqlquery = sqlquery & "ID, " sqlquery = sqlquery & "Denominazione, " sqlquery = sqlquery & "Informazioni, " sqlquery = sqlquery & "NumeroArticoli " sqlquery = sqlquery & "from " sqlquery = sqlquery & "qryLinee" Set RecordsetLineeDiCatalogo = DatabaseWebStore.Execute(sqlquery) Dim ID Dim Denominazione Dim Informazioni %> <%if err=0 then While Not RecordsetLineeDiCatalogo.EOF ID = RecordsetLineeDiCatalogo("ID") Denominazione = RecordsetLineeDiCatalogo("Denominazione") Informazioni = RecordsetLineeDiCatalogo("Informazioni") NumeroArticoli = RecordsetLineeDiCatalogo("NumeroArticoli") %> <% RecordsetLineeDiCatalogo.MoveNext Wend end if %> <% RecordsetLineeDiCatalogo.Close Set RecordsetLineeDiCatalogo = Nothing DatabaseWebStore.Close Set DatabaseWebStore = Nothing %>