Não mostrar se for vazio

Olá,

Estou com um problema e não consigo resolver.

Seguinte, tenho uma tabela de lojas que está relacionada com uma tabela de cidades e outra de estados. O que eu preciso é que se não existe uma loja dentro de uma cidade ou um estado não mostrasse a cidade e o estado. Será que deu para entender? (rs)

Atualmente com o código que segue abaixo retorna o seguinte resultado:

Notem, que somente Campinas e Uberlândia possuem registro, então não queria mostrar as outras cidades/estados.

São Paulo - SP

Guarulhos - SP

Barueri - SP

Campinas - SP

› Escritório em Campinas

Jundiaí - SP

Valinhos - SP

Uberlândia - MG

› Escritório em Uberlândia

O ideal seria:

Campinas - SP

› Escritório em Campinas

Uberlândia - MG

› Escritório em Uberlândia

Será que alguém pode me ajudar?

Agradeço desde já...

Abraços!

<%

Set rsCidades = Server.CreateObject("ADODB.RecordSet")
sql = ""

	sql = sql & " SELECT a.ID, a.cidade, b.uf "
	sql = sql & " FROM tb_cidades A, tb_estados b "
	sql = sql & " WHERE a.IDestado = b.ID "

rsCidades.Open SQL, Conexao, 3, 3

%>

<%While NOT rsCidades.EOF%>

 <p><%=rsCidades(1)%> - <%=rsCidades(2)%></p>
 <%
 Set rsUnidadesLista = Server.CreateObject("ADODB.RecordSet")
	sql = ""
	sql = sql & " SELECT ID, nome "
	sql = sql & " FROM tb_unidades "
	sql = sql & " WHERE IDtipo = 1 "
	sql = sql & " AND status = 1 "
	sql = sql & " AND cidade = "&rsCidades(0)&" "
	sql = sql & " ORDER BY ordem ASC "

rsUnidadesLista.Open SQL, Conexao, 3, 3

While NOT rsUnidadesLista.EOF
%>

 <p><a href="unidades_detalhe.asp?ID=<%=rsUnidadesLista(0)%>"> › <%=rsUnidadesLista(1)%></a></p>
 <%

rsUnidadesLista.MoveNext()
Wend
%>
<%
rsCidades.MoveNext()
Wend
end if
%>