<% langue = Request.querystring("lang") if langue="uk" then Session("Langue")="uk" Session("sellang")=1 end if if langue="fr" then Session("Langue")="fr" Session("sellang")=1 end if %> <% Dim sql Dim coul,reg,mille,prix,flacon if langsel="fr" then sql="SELECT * from Couleur ORDER BY Titre_Coul" else sql="SELECT * from Couleur ORDER BY Titre_Couluk" end if Set coul = Server.CreateObject("ADODB.Recordset") coul.Open sql, Conn, 3, 3 sql="SELECT Millesime from Produits ORDER BY Millesime DESC" Set mille = Server.CreateObject("ADODB.Recordset") mille.Open sql, Conn, 3, 3 sql="SELECT PU_2 from Produits ORDER BY PU_2 DESC" Set prix = Server.CreateObject("ADODB.Recordset") prix.Open sql, Conn, 3, 3 sql="SELECT * from SSregion WHERE Selection_Ssreg=1 ORDER BY Libelle_ssreg" Set reg = Server.CreateObject("ADODB.Recordset") reg.Open sql, Conn, 3, 3 %> :: ABCDVIN :: Garanties


 
GARANTIES

Même si tous nos vins sont stockés dans des conditions idéales, il reste impossible de garantir une qualité irréprochable des millésimes de plus de huit ans. Nous pouvons sur demande et gratuitement, fournir un cliché de la bouteille.

Toute l'équipe d'abcdvin vous remercie pour votre confiance et fidélité.