[Resolvido] while dentro de while?

[Veronica Gravino 0]

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

[Ted k' 126]

qual é a linha 93?

[Veronica Gravino 0]

qual é a linha 93?

 

a linha é essa:

if rsTipo("fk_subtipo") = rsGaleria("id_subtipo") then

[Ted k' 126]

você usou o rsTipo e o rsGaleria depois de ter fechado o setamento:

 

Set rsGaleria.activeConnection = Nothing
Set rsTipo.activeConnection = Nothing

retire essas linhas ou então coloque elas no final do seu código!

[Veronica Gravino 0]

AGora não esta mais dando o erro, mas tb nao esta executando o while :(

 

Eu inclui 2 registros e ele so me mostra 1

Alguem sabe oque pode ser?

[Veronica Gravino 0]

<%do while not rsGaleria.eof
		  id_subtipo = rsGaleria("id_subtipo")
		  %>
		 
	  <tr>
	  <td width="268" valign="top"><span class="titulo"><%=rsGaleria("subtipo")%></span><br /><br />
		 <br />

				<%  
		  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
	   
			do while not rsTipo.eof
		  %>

				<%'if rsTipo("fk_subtipo") = rsGaleria("id_subtipo") then %>
			<a href="ver_fotos.asp?id_galeria=<%=rsTipo("id_galeria")%>"><% Response.write rsTipo("galeria")%><br /></a>
				
				<%rstipo.movenext
				loop
			   %>
			   
			  </td>
			</tr>
			
			<%rsGaleria.movenext
			loop
			%>

Agora sim consegui fazer funcionar.... é que faltava mais um while .. :rolleyes:

ficou meio confuso o codigo ,mas tah funcionando pelo menos...rs!

valeu!! :)

[Ted k' 126]

show, realmente era isso mesmo... agora pedi para você retirar os Nothings, mais agora no final você colocar:

 

Set rsGaleria.activeConnection = Nothing
Set rsTipo.activeConnection = Nothing