<% Option Explicit %> <% Dim rsPersonnes Set rsPersonnes = Server.CreateObject("ADODB.RecordSet") Ouvrir_Base_Site() rsPersonnes.Open "SELECT * FROM Personnes P, Statuts S WHERE P.per_Intervenant=1 AND P.sta_ID=S.sta_ID ORDER BY P.per_Nom, P.per_Prenom", dbSite %> Formations en droit de la propriété industrielle à Lyon : intervenants du centre Paul Roubier
INTERVENANTS
DIRECTION
CONSEIL D'ADMINISTRATION
<% If rsPersonnes.EOF Then Response.Write " " & vbCrLF Else %> <% End If %>
Aucun profil disponible
<% While Not rsPersonnes.EOF %> <%if rsPersonnes("per_ID")<>56 then%> <%end if%> <% rsPersonnes.MoveNext() Wend %>
','pop','scrollbars=yes,width=340,height=405')"> <%= rsPersonnes("sta_Diminutif") & " " & rsPersonnes("per_Prenom") & " " & rsPersonnes("per_Nom") %>
Formations - Equipe - Histoire - Infos pratiques - Contacts - Liens
<% rsPersonnes.Close() Set rsPersonnes = Nothing Fermer_Base_Site() %>