数组问题

[skyboy0720]

Dim strSQL,name,num
ReDim result()
int i=0
set rs=server.createobject("adodb.recordset")
name=Request.Form("name")
strSQL="SELECT * FROM [t1]"
rs.Open strSQL,conn,1,1
do while not rs.EOF
result(i)=rs("name")
rs.MoveNext
i=i+1
loop
for j=0 to UBound(result)
Response.Write result(j)
next

我想把返回的记录集，放到数组显示，程序不对，哪些地方要怎么修改？！
谢谢

[hjllover]

在确保conn链接正确的情况下使用如下代码：
Dim strSQL,name,num
Dim result()
i=0
set rs=server.createobject("adodb.recordset")
name=Request.Form("name")
strSQL="SELECT * FROM [t1]"
rs.Open strSQL,conn,1,1
do while not rs.EOF
redim preserve result(i)
result(i)=rs("name")
rs.MoveNext
i=i+1
loop
for j=0 to UBound(result)
Response.Write result(j)
next

[skyboy0720]

谢谢，但是如果我想要返回两个，三个。。。字段的记录，怎么办呢？？

[hjllover]

那就要看你的具体需求了。

[skyboy0720]

就是再加个id字段，我是这样写的
Dim strSQL,rs
Dim result()
i=0
set rs=server.createobject("adodb.recordset")
strSQL="SELECT * FROM [t1]"
rs.Open strSQL,conn,1,1
do while not rs.EOF
ReDim preserve result(i,j)
j=0
result(i,j)=rs("id")
j=j+1
result(i,j)=rs("name")
rs.MoveNext
i=i+1
loop

result(0,0) id1 result(0,1) name1
.......................................

但是我不知道怎么显示这个二维数组!