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

[Myakire]

Usa dos <tables>, cada una dentro del <td> respectivo.

[Myakire]

Sería algo mas o menos así:

<table><tr><td>
<table><%
<%While Not rs1.EOF%>
<tr><td><%=rs1("Campo")%></td></tr>
<%rs1.MoveNext
Wend%>
</table>
</td><td>
<%While Not rs2.EOF%>
<tr><td><%=rs2("Campo")%></td></tr>
<%rs2.MoveNext
Wend%>
</table></td></tr></table>

Saludos

[suntus]

de esa manera aparecen todos los registros en fila

lo que quiero es q aparezcan los del rs1 a la izquieda y los de rs2 a la derecha

gracias por la ayuda

[Myakire]

Bueno, solo faltó definir la segunda tabla de la segunda columna, jeje, error de dedo.

Código:

<table  border=1><tr><td valign=top>
<table  border=1><%
  Set oConn = Server.CreateObject("ADODB.Connection")
  oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("prueba.mdb")

  Set oRS1 = Server.createobject("ADODB.Recordset")
  Set oRS2 = Server.createobject("ADODB.Recordset")
  oRS1.Open "select * from columnas",oConn,3,3	
  oRS2.Open "select * from nombres",oConn,3,3	
While Not ors1.EOF%>
<tr><td><%=ors1(1)%></td></tr>
<%ors1.MoveNext
Wend%>
</table>
</td><td  valign=top><table border=1>
<%While Not ors2.EOF%>
<tr><td><%=ors2(1)%></td></tr>
<%ors2.MoveNext
Wend%>
</table></td></tr></table>
<%
  oRs1.Close
  oRs2.Close
	oConn.Close
%>

Saludos