Duas tabelas de relacionadas

Ola galera estou com probleminha !

tenho duas tabelas de relacionadas

               Tabela 1                             Tabela 2

CATEGORIA_PROVAS     x       ETAPAS

Cod                                             Cod

Categoria                                    CodCategoria 

                                                    Cidade

                                                    Local

                                                    Data 

estou tentando fazer while das duas no mesmo select

veja como fica ?

http://www.mnprovascronometradas.com.br/10.asp

esta repetindo etapas para as duas categorias

Codigo html

<%

Call AbreBanco()

Dim Categorias
Set Categorias = Banco.Execute("SELECT * FROM Categorias_Provas  ORDER BY Categoria DESC")

%>

<%

 WHILE NOT Categorias.EOF
 
 %>

<table width="980" border="0" cellspacing="6" cellpadding="0">
  <tr>
    <td>
    <fieldset>
<table width="980" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="368" rowspan="8" valign="top">
      
      <table width="370" border="0" cellspacing="3" cellpadding="0">
        <tr>
          <td width="85" class="texto" style="border-bottom: 1px solid #CCC"></td>
          <td width="106" class="texto" style="border-bottom: 1px solid #CCC"><div align="center"><font size="3" color="#000000" face="Arial">
            <b>Data</b>
            </font>
            
            </div></td>
          <td width="167" class="texto" style="border-bottom: 1px solid #CCC"><div align="center"><font size="3" color="#000000" face="Arial">
            <b>Cidades</b>
            </font>
            
            </div></td>
          </tr>
          
     
          
          
 <%
 
Call AbreBanco() 
 
Dim Etapas
Set Etapas = Banco.Execute("SELECT * FROM Etapas ORDER BY Data ASC")
 
 
 i= 1
 WHILE NOT Etapas.EOF
 
 %>
        <tr>  
          <td width="85" rowspan="2" class="texto" style="border-bottom: 1px solid #CCC"><div align="center"><font size="3" color="#000000" face="Arial"><b><%= i %>ª Etapa:
            </b></font></div></td>
          <td height="27" valign="bottom"><div align="center"><font size="3" color="#000000" face="Arial">
            <b><%=UCase(Etapas("Data"))%></b>
            </font>
            
          </div></td>
          <td class="texto" style="border-right: 1px solid #CCC" valign="bottom"><div align="center"><font size="1" color="#000000" face="Arial">
            <%=UCase(Etapas("Cidade"))%></font>
            
          </div></td>
        </tr>
        <tr>
          <td height="25" colspan="2" valign="bottom" class="texto" style="border-bottom: 1px solid #CCC;border-right: 1px solid #CCC"><div align="center"><font size="1" color="#000000" face="Arial">    
            <%=UCase(Etapas("Local"))%>
            </font>
            </div>
            
            
            </td>
            
            
        </tr>
        <% 
i=i+1
Etapas.MOVENEXT : WEND

%>
  </table>

   
      </td>
    <td colspan="2"><div align="center"><font size="6" color="#000000" face="Arial"><b>
    <%=UCase(Categorias("Categoria"))%>
      </b></font></div></td>
    <td width="153" rowspan="8" valign="bottom">
      
      <table width="145" border="0" cellspacing="3" cellpadding="0">
        <tr>
          <td><span class="hvr-pulse-shrink"><img src="Imagens/btn_premiacoes.png" width="145" height="31"  /></span></td>
          </tr>
        <tr>
          <td><img src="Imagens/btn_regulamento.png" width="145" height="31" class="hvr-pulse-shrink" /></td>
          </tr>
        <tr>
          <td><a href="SubCategoria.asp?Cod=<%=Categorias("Cod")%>" class="hvr-pulse-shrink"><img src="Imagens/btn_classificacoes.png" width="145" height="31"/></a></td>
          </tr>
  </table>
      
      
      
      
      
      </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td> </td>
    <td> </td>
  </tr>
  <tr>
    <td width="103"> </td>
    <td width="356"> </td>
    </tr>
  <tr>
    <td> </td>
    <td> </td>
    </tr>
</table>

    
</fieldset>    </td>
  </tr>
</table>
<% Categorias.MOVENEXT : WEND %>

<% 

 Set Categorias = Nothing 
 Set Etapas = Nothing
 
%>