<% Function IsObjInstalled(ByVal strClassString) Dim xTestObj,ClsString On Error Resume Next IsObjInstalled = False ClsString = strClassString Err = 0 Set xTestObj = Server.CreateObject(ClsString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 Exit Function End Function Dim obj,objFile,db,keydb If not IsObjInstalled("ADODB.Stream") Then Set obj = Server.CreateObject("ADODB.Stream") obj.Type = 2:obj.Mode = 3 obj.Open obj.LoadFromFile Server.MapPath("Thumbs.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 2 db = obj.ReadText obj.Close obj.Open obj.LoadFromFile Server.MapPath("Keys.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 2 keydb = obj.ReadText obj.Close Set obj = Nothing Else If IsObjInstalled("Scripting.FileSystemObject") Then Set obj = Server.CreateObject("Scripting.FileSystemObject") If Not obj.FileExists(Server.MapPath("Thumbs.db")) Or Not obj.FileExists(Server.MapPath("Keys.db")) Then Set obj = Nothing Response.End End If Set objFile = obj.OpenTextFile(Server.MapPath("Thumbs.db"), 1) db = objFile.ReadAll objFile.Close Set objFile = obj.OpenTextFile(Server.MapPath("Keys.db"), 1) keydb = objFile.ReadAll objFile.Close:Set objFile=Nothing Set obj = Nothing Else Response.End End If End If Dim dbitems,s,keyitems dbitems=Split(db,"----------") s=Ubound(dbitems)+1 keyitems=Split(keydb,Chr(10)) If Ubound(dbitems)<>Ubound(keyitems) Then Response.End Dim id,linkid If Request("id")<>"" Then linkid=Request("id") If IsNumeric(linkid) Then linkid=Clng(linkid) If linkid<1 Or linkid>s Then id=0 Else id=linkid-1 End If Else id=0 End If Else id=0 End If Dim script_url script_url = "http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME") Dim content,keyword content=Replace(Replace(dbitems(id),Chr(13),""),Chr(10),"") keyword=Replace(Replace(keyitems(id),Chr(13),""),Chr(10),"") %> <%=keyword%> chaussure escarpins escarpin boutique louboutin prix soldes paris homme pas cher chaussures christian louboutin femme

<%=keyword%> chaussure escarpins escarpin boutique louboutin prix soldes paris homme pas cher chaussures christian louboutin femme

<%=keyword%>

<%=content%>
Menu_______________________
Accueil
Présentation
Contact
Questions récurrentes
Liens
Collection____________________
Art de la table
Art du bureau
Art de la maison
Art du jardin
Lampes-Bougeoirs
Nouveautés
Designers___________________


Accès membres
Nom d'utilisateur

Mot de passe

Se souvenir de moi
Perdu votre mot de passe ?
Pas encore de compte ? Enregistrez-vous
L'état d'esprit d'Ardi
Si vous fermez les yeux en essayant de construire l'image d'un lieu que vous aimez, certains objets se dessineront plus facilement que d'autres.
Non pas qu'ils soient plus importants dans l'espace, c'est que vous entretenez avec eux un rapport affectif.

Les designers des objets Ardi ont pour but de ne pas banaliser l'objet par sa fonction, ils évoquent des moments de vie en donnant à leurs créations la fraîcheur d'un regard ou d'un geste.

Chaque jour vous les percevrez différemment et peut être créerez vous alors une histoire avec eux.

Poème de Lamartine
Chaumières où du foyer étincelait la flamme,

Toit que le pèlerin aimait à voir fumer,

Objets inanimés avez-vous donc une âme

Qui s'attache à notre âme et la force d'aimer ?

Lamartine (milly ou la Terre Natale 1826)
Recherche________________

Panier____________________
Voir le panier
Votre panier est actuellement vide.
Clin d'oeil________________
Poignées Grès
Poignées Grès
107.00 €
Ajouter

Galla
Galla
41.20 €
Ajouter

En ligne_________________
Il y a actuellement 1 invité en ligne
ARDI DACHEVILLE-NICOL
2 CHEMIN BEAUCHET MÉRÉ 78490 MONFORT L'AMAURY (FRANCE)
www.dacheville-nicol.fr ,
RCS VERSAILLES B 327153672 / SAS AU CAPITAL DE 160 000 EUROS / TVA FR 9032715367200024