<%
' A Helper function for formatting
Function ResourceRef( ResourceName )
ResourceRef = _
"" & _
ResourceName & _
""
End Function
Sub ListDependencies( Resource )
Dim DepResourceList
Dim DepResource
Dim i
Response.Write "
"
Set DepResourceList = Resource.Dependencies
For i = 1 to DepResourceList.Count
Set DepResource = DepResourceList(i)
Response.Write "
"
Response.Write "
" & DepResource.Name & "
"
Response.Write "
"
Next
Response.Write "
"
End Sub
%>
<% = "
Resource Groups for Node " & Request("NodeName") & "
"%><%
'Open the Cluster
If IsObject( Session("Cluster") ) Then
Dim str
Dim Cluster
Set Cluster = Session("Cluster")
Dim Node
Set Node = Cluster.OpenNode( Request("NodeName") )
Dim ResourceGroups
Set ResourceGroups = Node.ResourceGroups
Dim ResourceGroup
Dim nIndex
Dim Resources
Dim Resource
For nIndex = 1 To ResourceGroups.Count
Set ResourceGroup = ResourceGroups( nIndex )
Response.Write "
"
Response.Write "
" & _
ResourceGroup.Name & _
"
"
Response.Write "
Resource Name
Dependencies
"
Set Resources = ResourceGroup.Resources
For i = 1 to Resources.Count
Set Resource = Resources(i)
Response.Write "