<% Requete = "SELECT " & _ " BM.Nom AS NomPersonne, " & _ " BM.Prenom AS PrenomPersonne, " & _ " BM.IdVille, " & _ " BM.Telephone, " & _ " BM.Courriel, " & _ " T.Nom As NomTache, " & _ " TM.Annees AS AnneeExp " & _ " FROM T_Sel_Membre BM " & _ " INNER JOIN T_TacheMembre TM " & _ " ON BM.IdMembre = TM.IdMembre " & _ " INNER JOIN T_Tache T " & _ " ON T.IdTache = TM.IdTache " & _ " WHERE (BM.Suppr = 0) AND (BM.Statut = 'Actif') AND (TM.Suppr = 0)" LeNom = Session("Nom") If (LeNom <> "") Then Requete = Requete & " AND (T.Nom LIKE '%" & LeNom & "%')" End If If (Session("ET") <> "") Then If (Session("IdRegion") <> "-1") Then Requete = Requete & " AND (BM.IdRegion = " & Session("IdRegion") & ")" End If End If Requete = Requete & " ORDER BY BM.Nom ASC, BM.Prenom ASC" ' Ouvrir la table Set RS_Personnes = Server.CreateObject("ADODB.RecordSet") RS_Personnes.Open Requete, objConn, 1, 3, 1 If (Not RS_Personnes.EOF) Then %>
Tâche recherchée : <%=RS_Personnes("NomTache")%>

Il y a <%=RS_Personnes.RecordCount%> personne(s).
<% Do While (Not RS_Personnes.EOF) %>
"><%=RS_Personnes("NomPersonne")%>, <%=RS_Personnes("PrenomPersonne")%>, <%=RS_Personnes("PrenomPersonne")%>, <%=Combo("Show", "IdVille", "T_Sel_Ville", "IdVille", "VilleDesc", RS_Personnes("IdVille"), False)%>
<%=RS_Personnes("Telephone")%>
<%=RS_Personnes("AnneeExp")%> années d'expériences
<% RS_Personnes.MoveNext Loop Else %> Il n'y a pas de personnes dans la base de données. <% End If RS_Personnes.Close Set RS_Personnes = Nothing %> <% ' Vérifier s'il y a erreur If Err.Number <> 0 Then Response.Write GetMessage("ERR_UNK", "Personne") End If %>