<%@ LANGUAGE="VBSCRIPT" %>
Document Title
<%
Sub ListProperties( Resource )
Dim Properties
Dim Property
Dim i
Set Properties = Resource.CommonProperties
For i = 1 to Properties.Count
Set Property = Properties(i)
Response.Write ""
Response.Write "| " & Property.Name & " | "
Response.Write "" & Property.Value & " | "
Response.Write "
"
Next
End Sub
%>
<%
'Open the Cluster
If IsObject( Session("Cluster") ) Then
Dim Cluster
Set Cluster = Session("Cluster")
Dim Resource
Set Resource = Cluster.OpenResource( Request("ResourceName") )
Response.Write "" & Resource.Name & " Properties
"
Response.Write ""
Response.Write "Common Properties"
Response.Write "| Name | Value |
|---|
"
ListProperties Resource
Response.Write "
"
Response.Write "
"
End If
%>