<%strCnn = "driver={SQL Server};server=localhost;uid=sa;pwd=;database=Labri" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open strCnn Req = "Select Nom, Annuaire.bureau as Bureau From Annuaire, Bureaux where Annuaire.Bureau=Bureaux.Bureau order by bureau for xml auto,xmldata" Set R = Conn.Execute(Req) 'Response.Write(R(0)) %>