Hur många dim har arrayen?

Kanske inte helt efter konstens alla rgler, men det är iaf funkis.

<%
Option Explicit

Dim v1(1)
Dim v2(12, 31)
Dim v3(3, 43, 2)
Dim v4(1, 2, 5, 3, 70)

Response.Write getDimension(v1) & "<br>"
Response.Write getDimension(v2) & "<br>"
Response.Write getDimension(v3) & "<br>"
response.Write getDimension(v4) & "<br>"

Function getDimension(ByVal vArray)
   On Error Resume Next
   Dim iCount, vValue

   Do
      iCount = (iCount + 1)
      vValue = Ubound(vArray, iCount)
   Loop Until (Err.Number > 0)

   getDimension = (iCount - 1)
   Err.Clear
End Function
%>

Tackar, det funkade utmärkt... :)

------------------
Kom hem till mig...