Procédure DisplayURLAction et constantes associées
<%
Dim intActionID
Const MDACTION_TYPE_ALL = à˜
Const MDACTION_TYPE_URL = 1
Const MDACTION_TYPE_HTML = 2
Const MDACTION_TYPE_STATEMENT = 4
Const MDACTION_TYPE_DATASET = 8
Const MDACTION_TYPE_ROWSET = 1à˜
Const MDACTION_TYPE_COMMANDLINE = 2à˜
Const MDACTION_TYPE_PROPRIETARY = 4à˜
Const MDACTION_COORDINATE_CUBE = 1
Const MDACTION_COORDINATE_DIMENSION = 2
Const MDACTION_COORDINATE_LEVEL = 3
Const MDACTION_COORDINATE_MEMBER = 4
Const MDACTION_COORDINATE_SET = 5
Const MDACTION_COORDINATE_CELL = 6
Const adSchemaActions = 41
Sub DisplayURLAction(strMemberName)
Set rst = cat.ActiveConnection.OpenSchema(adSchemaActions, _
Array(“”, “”, “Enrollment”, “”, MDACTION_TYPE_URL, strMemberName, _
MDACTION_COORDINATE_MEMBER))
If Not (rst.EOF And rst.BOF) Then
intActionID = intActionID + 1 %>
<IMG id=”URLAction_<% =intActionID %>” src=”images/Action.gif”
style=”cursor:hand” onClick=”ShowActions ‘URLAction_<% =intActionID %>_item’”>
<%
Do While Not rst.EOF
%>
<table id=”URLAction_<% =intActionID %>_item” class=clsActionMenu>
<tr><td class=ActionMenuItem onClick=”InvokeURLAction ‘<% =rst(“CONTENT”) %>’,
‘URLAction_<% =intActionID %>_item’”><% =rst(“ACTION_NAME”) %></td></tr>
</table>
<%
rst.MoveNext
Loop
End If
End Sub
%>
Face aux failles de résilience des tenants M365 (configurations, privilèges, sauvegarde). Découvrez 5 piliers pour durcir, segmenter et surveiller vos environnements afin de limiter l’impact des attaques. Prioriser vos chantiers cyber et améliorer la résilience de vos tenants Microsoft 365.
Moderniser le développement logiciel : de la fragmentation à l’intégration
Analyse Patch Tuesday Mars 2026
Une nouvelle ère de la modernisation du mainframe
Communes, entreprises ? Non, face au RGAA 5, l’IA seule ne rendra pas vos sites accessibles
DevX Summit EMEA : les développeurs au cœur de la révolution de l’IA
