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
%>
Les managers IT ont besoin d’une stratégie claire et de solutions concrètes pour préparer leur infrastructure cloud à l'adoption de l'IA, tout en optimisant les coûts, renforçant la sécurité et développant les compétences internes. Découvrez tous les conseils dans ce guide Insight.
Confiance et curiosité : les clés pour entrer (et grandir) en tant que femme dans la tech
Portails développeurs internes : accélérer l’innovation sans alourdir les budgets
Pourquoi Shopify Plus s’impose dans la transformation du e-commerce B2B
Quand l’innovation échappe à ses créateurs: Comment éviter l’effet Frankenstein à l’ère de l’IA
Alliée ou menace ? Comment l’IA redessine le paysage cyber
