if not rs.eof then

Dim A(3,6)
Dim i,j,k
Dim Str
For i=1 To 6
A(1,i)="editor/"&rs("pic")
A(2,i)=rs("title")
A(3,i)="shownews.asp?id="&rs("id")
Str=Str&A(1,i)&"|"
Strtext=Strtext&A(2,i)&"|"
Strlink=Strlink&A(3,i)&"|"
if not rs.eof then rs.movenext
Next
Str=Mid(Str,1,Len(Str)-1)
Strtext=Mid(Str,2,Len(Str)-1)
Strlink=Mid(Str,3,Len(Str)-1)
end if

定义这样一个数组我想输出数据库中的3个字段的前6个内容
但为什么输出的是3组一样的内容呢都是第一个字段的内容
谁能帮我看看 该怎么写

BZ 帮帮我该怎么改啊？？
我现在脑袋大了

知道了！！
Str=Mid(Str,1,Len(Str)-1)
Strtext=Mid(Strtext,2,Len(Strtext)-1)
Strlink=Mid(Strlink,3,Len(Strlink)-1)
写成一样的了 str
真晕啊我！