<%@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, Liens FROM TblEmploye WHERE IdEmploye ="&session("IdUser") RSIdentite.CursorType = 2 RSIdentite.CursorLocation = 3 RSIdentite.LockType = 2 RSIdentite.Open() RSIdentite_numRows = 0 If RSIdentite("Liens") = false then Response.Write("Vous n'avez pas le droit d'administrer les liens
") Response.Write("Veuillez vous référer à l'administrateur du site ") Response.write("retour") Response.End End if end if %> Modifier la Référence <% Dim IdLien IdLien= request.querystring("IdLien") Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_ArniquaDB1_STRING RS.Source = "SELECT TblLiens.*, TblCateLien.* FROM TblCateLien INNER JOIN TblLiens ON TblCateLien.IdCateLien = TblLiens.IdCateLien" RS.CursorType = 2 RS.CursorLocation = 3 RS.LockType = 2 RS.Open() RS.Find "IdLien = "& IdLien RS_numRows = 0 Set RSCategorie = Server.CreateObject("ADODB.Recordset") RSCategorie.ActiveConnection = MM_ArniquaDB1_STRING RSCategorie.Source= "SELECT * FROM TblCateLien" RSCategorie.CursorType = 2 RSCategorie.CursorLocation = 3 RSCategorie.LockType = 2 RSCategorie.Open() RSCategorie_numRows = 0 %>

Accueil > Administration > Administrer les liens > Modifier un lien

MODIFIER LE LIEN

<% Rs.Close RsCategorie.close set Rs=nothing Set RsCategorie = nothing %>


Nom	" size="45">
Description	" size="55">
Lien	" size="55">
Categorie

	">