我把以下的6个表中的biaoti取出循环，a表显示正常，b,c,d,e,f只显示一条记录，请问怎么改正？
<%
set rs=server.CreateObject("adodb.recordset")
sql="select a.biaoti,b.biaoti,c.biaoti,d.biaoti,e.biaoti,f.biaoti from a,b,c,d,e,f"
rs.open sql,conn,1,2
%>

<%
rs.pagesize=MaxPerPage
rs.movefirst
i=0
while not rs.eof and i<MaxPerPage
%>
<% response.write rs("a.biaoti") & "<br>" %>
<%
rs.Movenext
i = i+1
wend
%>


<%
rs.pagesize=MaxPerPage
rs.movefirst
i=0
while not rs.eof and i<MaxPerPage
%>
<% response.write rs("b.biaoti") & "<br>" %>
<%
rs.Movenext
i = i+1
wend
%>