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
%>
Comment bénéficier d’une vision unifiée de vos messageries, protéger vos données sensibles, vous conformer aisément aux contraintes réglementaires et réduire votre empreinte carbone ? Testez la solution de reporting complet de l’utilisation de Microsoft 365 et Exchange en mode Cloud ou on-premise.
