How can I get a count of the number of dimensions in an array?

There is no native VBScript method for getting the number of dimensions in a VBScript safe array. However, Jscript has such a function to help it integrate with VBScript:

<script language="JScript" runat="server">
function CountDims(arrVBArray) {
return arrVBArray.dimensions();
}
</script>

Uses with this integration function:

<%
Dim arrTest(4, 9)

' Returns 2:
Response.Write CountDims(arrTest)
%>