ASP/VBScript ReDim

<%
Dim i
i = 10 '*** i คือค่าที่ได้ขณะที่โปรแกรมทำงานอยู่ ***'
ReDim arrVar(i)   '*** ตัวแปรนี้จะมีสมาชิก 11 ตัวคือ 0-10)
%>

<%
	Option Explicit
	Dim i
	Dim n,m
	n = 3
	m = 4
	ReDim arrVar(n+m)
	For i = 0 To n+m
		arrVar(i) = i + 10
	Next
	'*** Write Array ***
	For i = 0 To UBound(arrVar)
		Response.write(arrVar(i)&"<br>")
	Next
%>