<% Dim rstSimple ' ADO recordset Dim chemin Dim repertoire dim fichier Dim affichecode Dim Affichenom affichecode=request.querystring("m") Set rstSimple = cnnSimple.Execute("SELECT * FROM cuisine where id ="& affichecode &"") %> CUISINE MAROCAINE

<%= rstSimple.fields("titre").Value %> INGREDIENTS <%= rstSimple.fields("ingredients").Value %>
PREPARATION <%= rstSimple.fields("recette").Value %>
- Retrouvez les autres recettes

<% rstSimple.Close Set rstSimple = Nothing cnnSimple.Close Set cnnSimple = Nothing %>