<%
Const BDB = "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\domains\rafi\esabatad1999\bda.mdb;pwd=cpic"
Set db = Server.CreateObject("ADODB.Connection")
db.Open BDB
Set rstemp = Server.CreateObject("ADODB.Recordset")
q = "SELECT Max([DesignKey]) AS key,[CompanyCountry] FROM Outgoing GROUP BY CompanyCountry ORDER BY CompanyCountry"
Set rstemp = db.Execute(q)
%>
Recherche par le pays de provenance de l'annonce.