<% datasrc = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("../Database/Artisandata.mdb") Set con = Server.CreateObject ("ADODB.Connection") con.open datasrc sql="select cl.Codice, cl.Rag_Sociale, cm.Comune from Clienti cl, Comuni cm where cl.C_Citta = cm.Codice And cl.Tipo = 'G' Order by cl.Rag_Sociale, cm.Comune;" Set RS=con.execute(sql) %>
VINS ET PRODUITS DU TERROIR FINS
Les meilleurs producteurs vous invitent à déguster la Toscane
<% Flag = False%> <% Do while NOT RS.EOF %> <% Flag = Not Flag %> <% If Flag Then%> <%Else%> <% End If RS.MoveNext Loop RS.Close con.close %>
"><%=rs("Rag_Sociale")%> <%=rs("Comune")%>
"><%=rs("Rag_Sociale")%> <%=rs("Comune")%>

 
 
LES MEILLEURS
FIRENZE
DE LA GASTRONOMIE
ET DU VIN
DE NOTRE REGION
IMAGE
LA TOSCANE
FIRENZE
RETOUR
© 2001-2004 Artisandata - All rights reserved.
RETOUR ACCUEIL