% ' ********************************************************************* declare les variables Dim rs ' ********************************************************************** construit l'insrtuction sql strSQL = "SELECT * FROM partenaires ORDER BY societe ASC" ' '*************************************************************************** selectionne l' enregistrement Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, oConn, 1, 2 ,1 %>
Pour nous contacter,

710 chemin de Valsère
13510 Eguilles, France
tél : + 33 (0) 677 962 710
e-mail : contact@vinimundi.com
Réalisation :
ENDERNET-CONSULTING
Textes : Michel Coste
Crédit
Photo : S. COTTEREAU / D3 Studio, Gilles Peffert,
Vénus de Jim Dine au
Château Smith Haut Lafitte / CPR HTTT
Copyright © Vinimundi 2002 - 2007
![]() ![]() ![]() ![]() ![]() ![]() |
|
|
|
|
Accueil | Les circuits | L'équipe | Guide de dégustation | Livre d'or | Contact |
