Cambia este pedazo:
<table width="410" height="189" border="1"><tr>
<% while ((Repeat2__numRows-- != 0) && (!Recordset1.EOF)) { %>
<td><%=(Recordset1.Fields.Item("Nombre").Value)% ></td>
<%
Repeat2__index++;
Recordset1.MoveNext();
}
%></tr>
</table>
Eso si, te los pondrá en cada celda pero en línea, para ponerlos en columnas es diferente.