<%@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 %> Références <% 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_numRows = 0 %>

Accueil > Administration > Administrer les références

ADMINISTRER LES REFERENCES

[ Ajouter une référence ] [ Modifier les catégories ]

<% dim oldCateRef do while RS.EOF =false if rs("IdCateRef") <> oldCateREf then response.write("

") 'afficher le nom de la nouvelle categorie %>

<%=Rs("CateRef")%>

<% oldCateRef = rs("IdCateRef") end if%> <%end if%>

[ &canton=<%=RS("Canton")%>">Modifier ]

[ ,'<%=rs("Reference")%>')">Supprimer ]

<% if RS("Lien") = "" then%> <%=RS("Reference")%> <%else%> "><%=RS("Reference")%>

<%=RS("Canton")%>

<%=RS("Description")%>

<% Rs.movenext loop%> <% RS.Close() Set RS = Nothing %>