[Resolvido] while dentro de while?

Gente tenho uma galeria de fotos, que ja fiz o administrativo ,mas agora para fazer aparecer nas paginas esta muitoo complicado...

São 4 tabelas para a galeria

1-Tipo_galeria(3 já definidas)

2-Subtipo_galeria(id_subtipo,subtipo,fk_tipo)

3-Galeria(id_galeria,galeria,fk_subtipo)

4-Fotos(id_foto,fk_galeria,foto)

O cliente pode inserir um subtipo na tipogaleria= 1 e depois um nome para um album desse subtipo de galeria e depois as fotos desse album... deixa eu explicar

Eventos(tipo[1])

+ Casamentos(subtipo)

+Carlos & Andrea(galeria)

+Foto1(fotos)

+foto2 (fotos)

................

+Giovanna & Marcos(galeria)

+Foto1(fotos)

+foto2 (fotos)

+ Formaturas(subtipo)

+Camila(galeria)

+Foto1(fotos)

+foto2 (fotos)

+Juan(galeria)

+Foto1(fotos)

+foto2 (fotos)

O problema é o seguinte, como mostrar isso na minha pagina, estou usando mysql como banco de dados, nao consigo fazer VIEWS como no sqlserver e no accesss ...entao esta complicado.. Preciso mostrar respectivo subtipo cadastrado e quantas galerias tem cadastradas dentro desse subtipo e logo depois a pagina de fotos

Fiz algo assim, mas ele da erro depois que passa para o proximo subtipo , alguem sabe porque???

ele aparece assim na pagina:

Casamentos

Carlos & Andrea

Formaturas

error '80020009'

/buffet/galeria/sociais_teste.asp, line 93

<%

Set rsGaleria=Server.CreateObject("ADODB.Recordset")
rsGaleria.CursorLocation = 3
rsGaleria.CursorType = 1
rsGaleria.LockType = 3
sqlGaleria = "SELECT * FROM subtipo_galeria where fk_tipo=1"
rsGaleria.Open sqlGaleria, conexao
Set rsGaleria.activeConnection = Nothing

do while not rsGaleria.eof
id_subtipo = rsGaleria("id_subtipo")
%>

<%
Set rsTipo=Server.CreateObject("ADODB.Recordset")
rsTipo.CursorLocation = 3
rsTipo.CursorType = 1
rsTipo.LockType = 3

 sqlTipo = "SELECT * FROM galeria where fk_subtipo="&id_subtipo
 rsTipo.Open sqlTipo, conexao
 Set rsTipo.activeConnection = Nothing
 %>
 <tr>
 <td width="268" valign="top"><span class="titulo"><%=rsGaleria("subtipo")%></span><br />
<br />
<a href="sociais/casamentos.asp" >

 <%if rsTipo("fk_subtipo") = rsGaleria("id_subtipo") then %>
 <% Response.write rsTipo("galeria")
 else
 Response.write "NAO"
 end if
 %>

 </a>
 <div id="fotinho"><a href="sociais/casamentos.asp" class="branco">  2</a></div>
 <div id="fotinho"><a href="sociais/casamentos.asp" class="branco"> 3</a></div>
 <div id="fotinho"><a href="sociais/casamentos.asp" class="branco"> 4</a></div>
 </td>
 </tr>

 <%rsGaleria.movenext
 loop
 %>

bom espero que alguem tenha entendido .

Grata Veronica