Prueba con esto:
<table>
<%
While ((NOT rs.BOF) AND (NOT rs.EOF))
Response.Write("<tr>")
Response.Write("<td>" & rs("Dato") & "</td>")
rs.MoveNext
Response.Write("<td>" & rs("Dato") & "</td>")
rs.MoveNext
Response.Write("<td>" & rs("Dato") & "</td>")
rs.MoveNext
Response.Write("</tr>")
Wend
%>
</table>
O bien:
<%
While ((NOT rs.BOF) AND (NOT rs.EOF))
varCol1 = varCol1 & rs("Dato") & "<br>"
rs.MoveNext
varCol2 = varCol2 & rs("Dato") & "<br>"
rs.MoveNext
varCol3 = varCol3 & rs("Dato") & "<br>"
rs.MoveNext
Wend
%>
<table>
<tr>
<td><%=varCol1%></td>
<td><%=varCol2%></td>
<td><%=varCol3%></td>
</tr>
</table>
Espero te sirva!!!!
Bye