这个数组怎么就取不出来！？！？？！

<%
dim ok(35)
for a=1 to 23
if len(a)=1 then a="0" & a
ok(a)=a
MN=MN & " " & ok(a)
next
s=split(mn)


    Dim lsNums()
    redim lsNums(6)
   
    Randomize
    k = 0
    Do While k < 6
        aaa = Int(Rnd * ubound(split(mn))) + 1
         If s(aaa) <> "tttttttt" Then
            k = k + 1
           
            lsNums(k) =s(aaa)
             s(aaa) = "tttttttt"
            response.Write(lsNums(k)&"<br>")
         End If         
    Loop
for k=1 to 6
  response.write isnums(k) & "<BR>"
   next
%>

代码是先生成一个数组，然后随机取6个不相同的数，但为什么就只能显示，而不能把数组保存下来？！？就是说上述代码是有错的，把最后的for...next去掉就可以正常！！！！如何保存isnums中的值呀？