<% Dim k
k = 8
Dim arrData(k,9)
%>
<% For i = 1 To 6 %>
<%arrData(i,1)=i%>
<%arrData(i,2)=i+1%>
<%arrData(i,3)=i+2%>
<%arrData(i,4)=i+3%>
<%arrData(i,5)=i+4%>
<%Next%>
<%
Dim k
k = 8
ReDim arrData(k,9)
%>
<% For i = 1 To 6 %>
<%arrData(i,1)=i%>
<%arrData(i,2)=i+1%>
<%arrData(i,3)=i+2%>
<%arrData(i,4)=i+3%>
<%arrData(i,5)=i+4%>
<%Next%>