怎么写把数据库中的记录写入数组并输出!比如说商品的名称!

意思就是把一个字段的所有记录变成一个记录
插入另外一个表中一条记录中!


这样写正确不?
<%
do while not rs.eof

dim bookiid,orderid(),i
i=0
bookiid=rs("bookid")%>
<%
orderid(i)=bookiid
jianshu=jianshu+rs("bookcount")
zongji=zongji+rs("zonger")
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
 <%=orderid(i)%>

如果对的要按自己想要的格式输出怎么办?  如果不对要怎么写?