<%
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)"
Requete = Requete & " ORDER BY T.Nom ASC, BM.Nom"
' Ouvrir la table
Set RS_Personnes = Server.CreateObject("ADODB.RecordSet")
RS_Personnes.Open Requete, objConn, 1, 3, 1
If (Not RS_Personnes.EOF) Then %>
<%
Do While (Not RS_Personnes.EOF) %>
<%=RS_Personnes("NomTache")%>
"><%=RS_Personnes("NomPersonne")%>, <%=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
%>