ASP - Checkbox y dos tablas que los llenan y checkean

Hola, mi problema es el siguiente:
Tengo una tabla de formatos y una tabla de zonas-formatos...
Tengo una lista de checkbox con todos los formatos existentes, es decir
con todos los formatos de la tabla formatos.
Y en la tabla zona-formatos tengo la relacion de que formatos puede tener
x zona.
Quiero que dependiendo de la zona que esté mostrando en la página, me
muestre toda la lista de los formatos existentes y que estén como checked
aquellos formatos pertenecientes a esa zona según la tabla zona-formatos.

Segúnyo, el código que tengo es correcto... pero mi aplicacion se tarda
enormidad de tiempo en hacer esto, yo creo que ha de ser por tantos do
while porque ya intenté quitando el Do while not RSZonaFormatos.EOF (es
decir solo mostrando la lista de formatos existentes sin ninguno como
checked) y hasta alli no se tarda pero si le incluiyo este ciclo si se
tarda... espero haberme explicado... ayuda por favor!!!!!.... no se que
otra opcion tengo para hacer esto!!!

<%
Query = "LstPortadaZonaFormato " & ZonaId
set RSZonaFormatos = Conn.Execute(Query)

Query = "LstPortadaFormato"
set RSFormatos = Conn.Execute(Query)
Do while not RSFormatos.Eof
RSZonaFormatos.MoveFirst
Do while not RSZonaFormatos.EOF
If RSFormatos("FormatoId")=RSZonaFormatos("FormatoId") Then%>
<TR>
<TD></TD>
<TD colspan=2><input name="Formato" type="checkbox"
value="<%=RSFormatos("FormatoId")%>"
CHECKED><%=RSFormatos("Descripcion")%></TD>
</TR>
<%Else%>
<TR>
<TD></TD>
<TD colspan=2><input name="Formato" type="checkbox"
value="<%=RSFormatos("FormatoId")%>"><FONT
CLASS="herr"><%=RSFormatos("Descripcion")%></font></TD>
</TR>
<%End if%>
RSZonaFormatos.MoveNext
<%Loop
RSFormatos.MoveNext
Loop%>