vb数组赋值问题

Question

以下代码标色的地方报错，请帮忙解决谢谢！
<%
dim subname1(),subname2(),subname3(),namecount1,namecount2,namecount3

Set rs2temp1=Conn_Fab1_Oa.Execute("Select t.itportalnetsname From itportalnetdetil t where t.itportalnetcheck='1' and t.itportalnetsectlevel='一般' and t.itportalnetfabtype='FAB1'  order by t.itportalnetsectlevel,t.itportalnetsname")
Set rs2temp2=Conn_Fab1_Oa.Execute("Select t.itportalnetsname From itportalnetdetil t where t.itportalnetcheck='1' and t.itportalnetsectlevel='一般' and t.itportalnetfabtype='FAB2'  order by t.itportalnetsectlevel,t.itportalnetsname")
Set rs2temp3=Conn_Fab1_Oa.Execute("Select t.itportalnetsname From itportalnetdetil t where t.itportalnetcheck='1' and t.itportalnetsectlevel='一般' and t.itportalnetfabtype='FAB3'  order by t.itportalnetsectlevel,t.itportalnetsname") namecount1=0
namecount2=0
namecount3=0

'set subname1 = new Array()
'set subname2 = new Array() 
'set subname3 = new Array()

    do while not rs2temp1.eof
    subname1[namecount1] = rs2temp1("itportalnetsname")
        namecount1 = namecount1 + 1
        rs2temp1.movenext
    loop
do while not rs2temp2.eof
    subname2[namecount2] = rs2temp2("itportalnetsname")
        namecount2 = namecount2 + 1
        rs2temp2.movenext
    loop
do while not rs2temp3.eof
    subname3[namecount3] = rs2temp3("itportalnetsname")
        namecount3 = namecount3 + 1
        rs2temp3.movenext
    loop
 
%> 

Answer 1

数组需要定义大小啊，即便是动态也要用redim改变一下吧

Answer 2

dim rs2temp1 New ADODB.RecordsetSet rs2temp1=Conn_Fab1_Oa.Execute("Select t.itportalnetsname From itportalnetdetil t where t.itportalnetcheck='1' and t.itportalnetsectlevel='一般' and t.itportalnetfabtype='FAB1'  order by t.itportalnetsectlevel,t.itportalnetsname") if rs2temp1.recordcount <> 0 then
   redim subname1(rs2temp1.recordcount)
   
    for i=1 to rs2temp1.recordcount
        subname1(i) = rs2temp1("itportalnetsname") 
        i=i+1 
        rs2temp1.movenext 
    next 
end if 
    
大致代码就是这样。