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

ADMINISTRER LES CATEGORIES

<% if IdCateRef="" then %>
Modifier ou supprimer
   
Ajouter
 




<%else Dim CateMod RSCategorie.Find "IdCateRef=" & IdCateRef %>

Catégorie " size="46" maxlength="50">
   
  "> ,'<%=RSCategorie("CateRef")%>')">

 

<%end if%>