<%@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 références
") 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 IdReference Dim Canton IdReference= request.querystring("IdReference") Canton = request.querystring("Canton") Set RS = Server.CreateObject("ADODB.Recordset") RS.ActiveConnection = MM_ArniquaDB1_STRING RS.Source = "SELECT [TblReferences].[Lien], [TblReferences].[IdReference], [TblCateRef].[CateRef], [TblReferences].[IdCateRef], [TblReferences].[Reference], [TblReferences].[Description], [TblReferences].[Lien], [TblCanton].[Canton], [TblReferences].[IdCanton] FROM TblCanton INNER JOIN (TblCateRef INNER JOIN TblReferences ON [TblCateRef].[IdCateRef]=[TblReferences].[IdCateRef]) ON [TblCanton].[IdCanton]=[TblReferences].[IdCanton] ORDER BY [TblReferences].[IdCateRef], [TblReferences].[Reference]" RS.CursorType = 2 RS.CursorLocation = 3 RS.LockType = 2 RS.Open() RS.Find "IdReference = "& IdReference RS_numRows = 0 Set RSCanton = Server.CreateObject("ADODB.Recordset") RSCanton.ActiveConnection = MM_ArniquaDB1_STRING RSCanton.Source= "SELECT * FROM TblCanton" RSCanton.CursorType = 2 RSCanton.CursorLocation = 3 RSCanton.LockType = 2 RSCanton.Open() RSCanton_numRows = 0 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 %>

Accueil > Administration > Administrer les références > Modifier une référence

MODIFIER LA REFERENCE


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

	">

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