<%@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 Dim image Dim envoyer Dim reponse 'récupérations des donnnées dans le querystring image = request.QueryString("image") envoyer = request.QueryString("envoyer") reponse = request.QueryString("reponse") IdEmploye = request("IdEmploye") Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_ArniquaDB1_STRING RS.Source = "SELECT * FROM TblEmploye" RS.CursorType = 0 RS.CursorLocation = 2 RS.LockType = 1 RS.Open() RS_numRows = 0 %> Collaborateurs d'Arniqua, Conseil & Gestion <% 'si ok alolrs on redéfini les valeurs des variables et on envoie à la bdd if reponse="juste" then password = request("kptrd") chgpwd = request("chgpwd") login = request("nom") Set RSId = Server.CreateObject("ADODB.Recordset") RSId.ActiveConnection = MM_ArniquaDB1_STRING RSId.Source = "SELECT * FROM TblIdentite" RSId.CursorType = 2 RSId.CursorLocation = 3 RSId.LockType = 2 RSId.Open() RSId_numRows = 0 RSId.Addnew RSId("IdEmploye") = IdEmploye RSId("Password") = password if request.form("Chgpwd")= "oui" then RSId("Chgpwd") = true else RSId("Chgpwd") = false end if RSId("login") = login RSId("password") = password RSId.Update RSId.Close Set RSId = nothing 'et on renvoie l'utilisateur vers la page d'ajout de cv %>
Accueil > Administration > Administrer les collaborateurs
<% 'sinon pas de renvoi else %> <% end if %> <% 'sinon on alerte l'utlisateur else if envoyer="non" then %> Un problème a été signalé lors de l'enregistrement de l'image

<% end if %> <% if reponse = "" then %> <% end if %> <% end if %>

AJOUTER UN COLLABORATEUR
Envoyer d'abord la photo et ensuite compléter les caractéristiques
<% 'si ok, message de réussite if envoyer="oui" then %> La photo du nouveau collaborateur a été enregistrée 
Image :
 
  <% 'si erreur on affiche à l'écran le no de l'erreur if reponse="erreur" then Response.Write "Erreur N°"& " " &Err.number Response.Write "Il y a eu une erreur dans l'envoi du formulaire" Response.Write "
" Response.Write "Veuillez contacter votre administrateur" %> <% 'sinon message de validation else if reponse="juste" then %> Le nouveau collaborateur a été créé
Vous allez être redirigé vers la page du CV 
<% end if end if %>
<% 'si on n'a pas encore le nom de l'image, donc pas encore envoyée alors on affiche le tableau if image <> "" then %>
  Nom :
Mot de passe :
Prénom :
Fonction :
Email :
Téléphone :
 
Peut modifier la section :  
 
  Emplois :
  Collaborateurs :
  Liens :
  Références :
  Cours :
 
Peut changer de mot de passe
 
 
<% end if %>