Troll medioevo gioielli editoria carrello ordine informazioni
 

 

Fate di Avalon:   

>1  >2  >3  >4  >5.

(Bambole porcellana bisquit)

 
 

 

Fate sculture (Paor):

>1 >2  >3  >4  >5  >6.

 

 

 

Troll  (Ny form):

>1  >2  >3  >4  >5.

 

Personaggi Mondo dell'Incanto

 >1  >2  >3  >4  >5  >6.

  Folletti    - Fate  -   Bambole

 

Bambole >7 >8 >9.

 

Il Signore degli Anelli

 

Bigiotteria

Gioielli

Sculture peltro

 

Libri

 

EDIZIONI SIBILLA
 
Medio Evo

 

Katane e armi orientali

 

Archi e balestre

 

Spade e armi antiche

 

Spade e spadini Fantasy

 

Excalibur

 

Merlino

 

Elmi

 

Armigeri

 

Armature

 

Parti di armature

 

Abbigliamento 

 

Tagliacarte

 

Scudi

 

Antica ROMA >1 >2

 

Spade armi  medievali

   >1   Deepeeka  

  >2   - >3   Marto

   >4   Swords 'N' Stuff

 

Gioielli

CELTIC - pendenti

RUNE - pendenti

Tattoo - pendenti,

Simboli Tribali

Cerchi nel Grano

Croci  celtiche gotiche

Simboli  Sciamanici

Totemici d'America

Ideogrammi

Zodiaco cinese
 

Oggetti Fantasy

Fate Fantasy  1

Fate Fantasy 2

Druidi Fantasy 1

Druidi Fantasy 2

Troll Fantasy 1

Troll Fantasy 2

 Musica

Musica Celtica tradizionale d'autore

Arte decorativa

Carrello Acquisti

<% ' 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%>
<% SpeseDiSpedizione=4.50 Session.LCID=1040 Set DatabaseWebStore = Server.CreateObject("ADODB.Connection") DBString ="" DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};" DBString = DBString + "Dbq=" & Server.MapPath(".") & "\_private\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: <%=FormatNumber(SpeseDiSpedizione, 2, -1, 0, -1)%>
Totale € <%=FormatNumber(Importo + SpeseDiSpedizione, 2, -1, 0, -1)%>
 
   Acquista
<%End If else%>

Per visualizzare gli articoli clicca Qui

<%End If %>

 

 

 

Acquisti on-line su www.avalonceltic.com.
Tutti i prezzi del nostro sito sono comprensivi di IVA.


 

- Modalità di Pagamento da scegliere:

  Contrassegno (alla consegna), Bonifico bancario,

Carta di credito.

.
Spese di spedizione: 4,50 €

Il consumatore può esercitare il diritto di recesso (D.Lgs n.185 del 22/05/ 1999).

Ai sensi della legge 675/96 si comunica che i dati inviati verranno utilizzati ad esclusivo uso interno

   

 Home  Condizioni di Vendita | Dove Siamo | Aggiungi ai preferiti | Tutti i diritti riservati © 1999, 2005 Avalon |  | Mail 

Avalon Shopping
Avalon - il Mondo delle fate   >>> Vendita on-line di oggettistica da collezione - gioielli celtici

Avalon /Libreria Editoriale Sibilla - Via Sant Ugo, 6 R - 16135 Genova  Tel. 010.27.23.934    -  cell. 347.76.24.107  (ore: 11:00 - 20:00)    

P.IVA 01503840991 -  CCIAA.  414855        Aut. vendita preziosi tramite Internet Estremi Lic.:Cat. 14/E - nr. 2/2005