-----------------------counter.ASP---------------------

8 then

counter=99999999

countlen=8

end if

for i=0 to 7-countlen

for j=0 to 7

for n=0 to 7

a(j*64+n+nn*8)=data1(0,j,n)

next

next

nn=nn+1

next

for i=1 to countlen

temp=mid(counter,i,1)

for j=0 to 7

for n=0 to 7

a(j*64+n+nn*8)=data1(temp,j,n)

next

next

nn=nn+1

next

%>