<%@ LANGUAGE = VBScript %> <% ' Declare a simple fixed size array Dim aFixed(4) ' Declare a dynamic (resizable) array Dim aColors() ' Assign values to fixed size array aFixed(0) = "Fixed" aFixed(1) = "Size" aFixed(2) = "Array" aFixed(3) = "Session ID: " & Session.SessionID ' Allocate storage for the array Redim aColors(14) ' Store values representing a simple color table ' to each of the elements aColors(0) = "RED" ' [#FF0000] aColors(1) = "GREEN" ' [#008000] aColors(2) = "BLUE" ' [#0000FF] aColors(3) = "AQUA" ' [#00FFFF] aColors(4) = "YELLOW" ' [#FFFF00] aColors(5) = "FUCHSIA" ' [#FF00FF] aColors(6) = "GRAY" ' [#808080] aColors(7) = "LIME" ' [#00FF00] aColors(8) = "MAROON" ' [#800000] aColors(9) = "NAVY" ' [#000080] aColors(10) = "OLIVE" ' [#808000] aColors(11) = "PURPLE" ' [#800080] aColors(12) = "SILVER" ' [#C0C0C0] aColors(13) = "TEAL" ' [#008080] %> Array Sample

---

A Resizable Array	A Fixed Size (4 element) Array
<% ' Calculate Array Size nColors = UBound(aColors) ' Print out contents of resizable array into ' table column For i = 0 To nColors - 1 Response.Write("" & aColors(i) &" ") Next %>	<% ' Calculate Array Size nColors = UBound(aFixed) ' Print out contents of fixed array into table ' column For i = 0 To nColors -1 Response.Write(aFixed(i) & " ") Next %>