<%@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 ="&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 IdEmploye 'Récupération de l'ID du collaborateur dont on modifie le CV IdEmploye = request.querystring("IdEmploye") Set RSEmploye = Server.CreateObject("ADODB.Recordset") RSEmploye.ActiveConnection = MM_ArniquaDB1_STRING RSEmploye.Source = "SELECT * FROM TblEmploye" RSEmploye.CursorType = 2 RSEmploye.CursorLocation = 3 RSEmploye.LockType = 2 RSEmploye.Open() RSEmploye_numRows = 0 RSEmploye.Find "IdEmploye = "&IdEmploye Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_ArniquaDB1_STRING RS.Source = "SELECT * FROM TblCV" RS.CursorType = 2 RS.CursorLocation = 3 RS.LockType = 3 RS.Open() 'Recherche dans le RS du collaborateur dont on modifie le CV RS.Find "IdEmploye = "& IdEmploye RS_numRows = 0 %> Administration des Curriculum Vitae
Accueil > Administration > Administrer les collaborateurs > Modifier le curriculum

MODIFIER LES CV
" width="100" height="171" border="0">  <%=RSEmploye("Nom")%> <%=RSEmploye("Prenom")%>  
  <%=RSEmploye("Poste")%>  
  <%=RSEmploye("mail")%>    
     
     

FORMATION, DIPLOMES
 
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">

EXPERIENCES PROFESSIONNELLES
 
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">

ANNEXE :
 
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
 

AUTRE:
 
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
"> " size="100">
 
">
<% RS.Close() Set RS = Nothing RSEmploye.Close() Set RSEmploye = Nothing %>