循环显示两行三列的记录集

str="<table>"
dim i : i=0
while not rs.eof and i<2
str=str & "<tr>"
j=0
while not rs.eof and j<3
str="<td>" & rs("xx") & "</td>"
rs.movenext
wend
str=str & "</tr>"
wend
str=str & "</table>"