<% ' Declare our variables... always good practice! Dim rstSimple1 ' ADO recordset Set rstSimple1 = cnnSimple.Execute("SELECT * FROM codefamille where mcf=2") %> <% Do While Not rstSimple1.EOF %> <% rstSimple1.MoveNext Loop %>

EXTRAIT DU NOUVEAU CODE DE LA FAMILLE

> Art  <%= rstSimple1.fields("article").Value %> : <%= rstSimple1.fields("titre_chapitre").Value %>

<% ' Close our recordset and connection and dispose of the objects rstSimple1.Close Set rstSimple1 = Nothing cnnSimple.Close Set cnnSimple = Nothing ' That's all folks! %>