<%
Dim intActionID

Const MDACTION_TYPE_ALL  = 0
Const MDACTION_TYPE_URL  = 1
Const MDACTION_TYPE_HTML  = 2
Const MDACTION_TYPE_STATEMENT  = 4
Const MDACTION_TYPE_DATASET  = 8
Const MDACTION_TYPE_ROWSET  = 10
Const MDACTION_TYPE_COMMANDLINE  = 20
Const MDACTION_TYPE_PROPRIETARY  = 40

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)

BEGIN CALLOUT A
  Set rst = cat.ActiveConnection.OpenSchema(adSchemaActions, _
    Array("", "", "Enrollment", "", MDACTION_TYPE_URL, strMemberName, _
    MDACTION_COORDINATE_MEMBER))
END CALLOUT A

BEGIN CALLOUT B
  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'">
END CALLOUT B
<%
Do While Not rst.EOF
%>
BEGIN CALLOUT C
  <table id="URLAction_<% =intActionID %>_item" class=clsActionMenu>
  <tr><td class=ActionMenuItem
onClick="InvokeURLAction '<% =rst("CONTENT") %>','URLAction_<% =intActionID %>_item'">
  <% =rst("ACTION_NAME") %></td></tr>
  </table>
END CALLOUT C
<%
    rst.MoveNext
  Loop
  End If
End Sub
%>