<% Dim rstSimple ' ADO recordset Dim recupere recupere=request.querystring("r") Set rstSimple = cnnSimple.Execute("SELECT * FROM new_contenu where S01 ='"& recupere &"' and idcontenu=2 order by date DESC ") Set rstSimple1 = cnnSimple.Execute("SELECT * FROM new_rubriques where idcat ='"& recupere &"'") Set rstSimple2 = cnnSimple.Execute("SELECT * FROM new_contenu where S01 ='"& recupere &"' and idcontenu=1 order by date DESC ") Set rstSimple3 = cnnSimple.Execute("SELECT TOP 15 * FROM new_contenu where S01<>'0' order by date desc") Set rstSimple4 = cnnSimple.Execute("SELECT photo FROM new_contenu where S01 ='"& recupere &"' and idcontenu=2 order by date DESC ") %>

<%= rstSimple1.fields("categorie").Value %>
<% Do While Not rstSimple.EOF Do While Not rstSimple4.EOF %> " width="45" height="45" align="left"> > <%= rstSimple.fields("titre").Value %> : >   <% rstSimple.MoveNext rstSimple4.MoveNext Loop loop rstSimple.Close Set rstSimple = Nothing rstSimple4.Close Set rstSimple4 = Nothing %>
LIRE AUSSI   <% Do While Not rstSimple2.EOF %> > <%= rstSimple2.fields("titre").Value %> <% rstSimple2.MoveNext Loop rstSimple2.Close Set rstSimple2 = Nothing %>   TOUTES LES ACTUALITES AU FEMININ <% Do While Not rstSimple3.EOF %> > <%= rstSimple3.fields("titre").Value %> <% rstSimple3.MoveNext Loop rstSimple3.Close Set rstSimple3 = Nothing %>