<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if session("NomUser")= "" then Response.write("Vous n'êtes pas identifié, veuillez vous identifier ici") Response.End else Dim RSIdentite Set RSIdentite = Server.CreateObject("ADODB.Recordset") RSIdentite.ActiveConnection = MM_ArniquaDB1_STRING RSIdentite.Source = "SELECT IdEmploye, Employes FROM TblEmploye WHERE IdEmploye ="& CStr(session("IdUser")) & ";" RSIdentite.CursorType = 2 RSIdentite.CursorLocation = 3 RSIdentite.LockType = 2 RSIdentite.Open() RSIdentite_numRows = 0 If RSIdentite("Employes") = false then Response.Write("Vous n'avez pas le droit d'administrer les collaborateurs
") Response.Write("Veuillez vous référer à l'administrateur du site ") Response.write("retour") Response.End End if end if %> <% Dim RS Dim RS_numRows Dim IdCV 'Récupération de l'Id du Cv du client concernt IdCV = request.form("IdCV") Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_ArniquaDB1_STRING RS.Source = "SELECT * FROM TblEmploye INNER JOIN TblCV ON TblCV.IdEmploye = TblEmploye.IdEmploye ORDER BY TblEmploye.Poste" RS.CursorType = 3 RS.CursorLocation = 2 RS.LockType = 3 RS.Open() RS_numRows = 0 %>

Accueil > Administration > Administrer les collaborateurs

<% 'Initialise la boucle qui parcourt les utilisateurs do while RS.EOF =false%>

" width="100" height="163" border="1">	<%=RS("Nom")%> <%=RS("Prenom")%>
	<%=RS("Poste")%>
	Ajouter un collaborateur
	">Modifier les données personnelles
	">Modifier le CV
	','<%=rs("Nom")%>', '<%=rs("Prenom")%>')">Supprimer de la liste

<%RS.movenext%> <%loop%>
<% RS.Close() Set RS = Nothing %>