<% Set rsNomVentes = Server.CreateObject("ADODB.Recordset") sqlNomVentes = "SELECT * FROM ventes_club ORDER BY DateButoire" openrs rsNomVentes, sqlNomVentes While not rsNomVentes.eof Response.Write("" & rsNomVentes("DescMenu") & "") rsNomVentes.movenext If not rsNomVentes.eof then Response.Write(" - ") end if wend rsNomVentes.close Set rsNomVentes = nothing %>