% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DBq=d:\inetpub\wwwroot\SitesHeberges\cgi-bin\aappq/membres.mdb" & ";Driver={Microsoft Access Driver (*.mdb)};" SQL = "SELECT DISTINCT Ville FROM Membres ORDER BY Ville" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Conn , 1, 2 SQL2 = "SELECT DISTINCT Region FROM Membres ORDER BY Region" Set RS2 = Server.CreateObject("ADODB.Recordset") RS2.Open SQL2, Conn , 1, 2 %>