2 consultas una en cada columna

[suntus]

hola

tengo q hacer dos consultas
set rs=Server.CreateObject("adodb.Recordset")

y

set rs2=Server.CreateObject("adodb.Recordset")

necesito pintar los datos del rs en una colummna y los de rs2 en otra al lado

si lo hago asi sale bien pero los registros de la columna 2 empiezan a la altura de donde terminan los registros del 1

<%
Do while not rs.eof
%>
<tr>
<td>=rs("mi registro")</td>

<%
rs.MoveNext
loop
rs.Close
set rs = Nothing
%>

<%
Do while not rs2.eof
%>

<td>=rs2("mi registro")</td>

<%
rs2.MoveNext
loop
rs2.Close
set rs2 = Nothing
%>
<tr/>

como sugieren que lo haga ..

gracias