<%@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, Acces FROM TblEmploye WHERE IdEmploye ="&session("IdUser") RSIdentite.CursorType = 2 RSIdentite.CursorLocation = 3 RSIdentite.LockType = 2 RSIdentite.Open() RSIdentite_numRows = 0 If RSIdentite("Acces") = false then Response.Write("
Vous n'avez pas le droit d'administrer les acces à l'administration
") Response.Write("Veuillez vous référer à l'administrateur du site ") Response.write("retour
") Response.End End if end if %> Références
Accueil > Administration > Administrer les accès privés
<% Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_ArniquaDB1_STRING RS.Source= "SELECT * FROM TblIdentite" RS.CursorType = 2 RS.CursorLocation = 3 RS.LockType = 2 RS.Open() RS_numRows = 0 Dim IdIdentite IdIdentite = Request("IdIdentite") %>

ADMINISTRER LES ACCES PRIVES
<% if IdIdentite="" then %>
Choisir l'accès à modifier ou à supprimer:
         
    ou    
Remplir les données du nouvel accès et valider pour l'ajouter :
  Login :
  Password :
  Peut changer de
mot de passe :
   
  Titre de URL1 :
URL1 :
Titre de URL2 :
URL2 :
Titre de URL3 :
URL3 :
Titre de URL4 :
URL4 :
   
 

<%else 'Dim IdIdentite RS.Find "IdIdentite=" & IdIdentite %>

 

Modifier l'acces à la section sécurisée :
  Login : " size="30" maxlength="50">
Password : " size="30" maxlength="50">
Peut changer de
mot de passe : 		name="chgpwd" type="checkbox" id="chgpwd" value="oui">
Titre de URL1 : " size="30" maxlength="50">
URL1 : " size="30" maxlength="50">
Titre de URL2 : " size="30" maxlength="50">
URL2 : " size="30" maxlength="50">
Titre de URL3 : " size="30" maxlength="50">
URL3 : " size="30" maxlength="50">
Titre de URL4 : " size="30" maxlength="50">
URL4 : " size="30" maxlength="50">
 
  "> ','<%=RS("Login")%>')">
<%end if%>