<% Dim recupere recupere=request.querystring("r") Set rstSimple7 = cnnSimple.Execute("SELECT * FROM video where id ="& recupere &"") %>
<% Do While Not rstSimple7.EOF %>
LA MAROCAINE VIDEO
<%= rstSimple7.fields("chanteur").Value %> : <%= rstSimple7.fields("titre").Value %>
<%= rstSimple7.fields("Embede").Value %>
<% rstSimple7.MoveNext Loop %>
<% rstSimple7.Close Set rstSimple7 = Nothing %>