<% Set rstSimple6 = cnnSimple.Execute("SELECT * from rencontres where sexe='h' ") Set rstSimple7 = cnnSimple.Execute("SELECT * from rencontres where sexe='f' ") %>

LES ANNONCES MARIAGES
LES HOMMES <% Do While Not rstSimple6.EOF %> "> <%= rstSimple6.fields("pseudo").Value %> <%= rstSimple6.fields("ville").Value %> <% rstSimple6.MoveNext Loop %>	LES FEMMES <% Do While Not rstSimple7.EOF %> <% Set fs = Server.CreateObject ( "Scripting.FileSystemObject" ) fichier = rstSimple7.fields("id") & ".jpg" repertoire = "rencontres/" chemin = Server.MapPath(repertoire & fichier)%> <% If fs.FileExists (chemin) then %> .jpg" width="50" height="50" border="0" align="left"> <% Else Response.Write " " End if %> "> <%= rstSimple7.fields("pseudo").Value %> <%= rstSimple7.fields("ville").Value %> <% rstSimple7.MoveNext Loop %>

<% rstSimple6.Close Set rstSimple6 = Nothing rstSimple7.Close Set rstSimple7 = Nothing %>