请问各们,怎么将一个数据表中一个字段的值放入数组当中呢?

[星_外_客]

数据表如下:
artid artclass theme content
1 A 标题1 内容1
2 B 标题2 内容2
3 A 标题3 内容3
4 B 标题4 内容4
5 C 标题5 标题5
现要求将,artclass 也就是文章类别提取,相同类别只取一种,比如上面,取A,B,C三类,重复的只取一个,动态的将字段 artclass 的内容存入数组并显示！

[myvicy]

sql="select distinct artclass from table"
rs.open sql,conn
do until rs.eof
responsw.write rs("artclass")
rs.movenext
loop
rs.close
set rs=nothing

[binbin50]

dim myarray[100]

sql="select distinct artclass from table"
rs.open sql,conn
for i =1 to rs.RecordCount
myarray[i] =rs("artclass")
rs.movenext
next
rs.close
set rs=nothing

for i=0 to myarray.UBoundRow
response.write myarray[i]
next