<%@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
%>
Références
<%
Set RSCategorie = Server.CreateObject("ADODB.Recordset")
RSCategorie.ActiveConnection = MM_ArniquaDB1_STRING
RSCategorie.Source= "SELECT * FROM TblCateLien ORDER BY IdCatelien ASC"
RSCategorie.CursorType = 2
RSCategorie.CursorLocation = 3
RSCategorie.LockType = 2
RSCategorie.Open()
RSCategorie_numRows = 0
Dim IdCateLien
IdCateLien = Request.QueryString("IdCateLien")
%>