Fairies, elves and dolls of Avalon

Authentic masterpieces of manufacture

Avalon  was, for our ancestors celti, a mythical island where the secret of the whole existence were found.

Avalon was considered a kingdom that contained the keys of access to all the knowledges and a clear internal vision. The shop of Avalon proposes all of this, naturally in a key ideal.

When it speaks of fairies, elves, witches, the thought of many races to the medieval period. In effects, the world fairies sees its native in so remote times not to be able to date with precision.
Fairies, elves, elves... I am as guardian angels, protectresses and collectors of every desire of ours, transforming him/it, always if it is in tuning with the nature, in realization,  le fairies of Avalon are always dressed with flowers.
To have in the house of it one or two means to attract to us the good fate,  the fairy helps us to find the love or to protect him/it

  <% ' 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 = "cart empty." INFO_TOOMANYITEMSINSHOPPINGBASKET = "The cart contains too many articles..." 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 = "Compile all the in demand information!" 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(".") & "\_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 %>