Sin lugar a dudas es el mejor metodo. Ni recargas el bucle ni la BD. Permiteme afinar un poco mas y posicionar el tag de final de tabla en su sitio correspondiente y quedará perfecto:
Código:
strSql = "SELECT Interprete_Artista "
strSql = strSql & "FROM TABLA_1 INNER JOIN TABLA_2 ON "
strSql = strSql & "(TABLA_1.INTERPRETEIDTEMA=TABLA2.IDTEMA) "
set mADO = conn.execute(strSql)
<%
If not mADO.Eof Then
%>
<table width="139" border="0">
<%
Do while Not Tabla_1.Eof %>
<tr><th>
<%Response.Write mADO.Fields ("Interprete_Artista")%>
</th> </tr>
<%
mADO.MoveNext
Loop
mADO.close
%>
</table>
<%
else
response.write("No tenemos datos")
end if
set mADO=Nothing
set Conn=Nothing
%>