<%
dim fixedarray(2) 'Fixed size array
fixedarray(0) = "Grand Canyon"
fixedarray(1) = "Zion"
fixedarray(2) = "Mesa Verde"
for each item in fixedarray
Response.Write(item & " N. P.
")
next
%>
<%
dim dynarray() 'dynamic array
redim dynarray(1)
dynarray(0) = "Germany"
dynarray(1) = "France"
redim preserve dynarray(3)
dynarray(2) = "Austria"
dynarray(3) = "Hungary"
for each item in dynarray
Response.Write(item & "
")
next
%>