Coisa Simples

[Touche 0]

To tentando aprender asp aqui e to com uma duvida de como fazer um sistema de download de mp3s

 

Ele ta assim atualmente:

 

Exibindo:

 

<<Banda>>

<<Musica>>

 

Só que como tem 10 musicas de uma banda ele exibi a Banda 10 vezes eu queria que ele listasse todas as bandas e em baixo viessem as musicas num loop...

 

<<Banda>>

<<Musica1>>

<<Musica2>>

etc

 

 

Codigo atual:

 

 

ASP

[*]

 

[*]<%

 

[*]

 

[*]Set Conn = Server.CreateObject("AdoDb.Connection")

 

[*]Conn.provider="Microsoft.Jet.OLEDB.4.0"

 

[*]Conn.connectionstring=Server.Mappath("../../../dados/seliga.mdb")

 

[*]Conn.open

 

[*]

 

[*]Set RS = Server.CreateObject("adodb.recordset")

 

[*]

 

[*]RS.PageSize = 8 

 

[*]

 

[*]SQL = "select banda,musica,url from mp3 order by banda desc"

 

[*]RS.Open SQL,Conn,3,3

 

[*]

 

[*]

 

[*]IF RS.EOF then

 

[*]  Response.Write "nenhum registro encontrado"

 

[*]  Response.End 

 

[*]ELSE

 

[*] IF Request.QueryString("pagina")="" then

 

[*] intpagina=1

 

[*]  ELSE

 

[*] IF cint(Request.QueryString("pagina"))<1 then

 

[*]  intpagina=1

 

[*] ELSE

 

[*]  IF cint(Request.QueryString("pagina"))> RS.PageCount then

 

[*] intpagina=RS.PageCount

 

[*]  ELSE

 

[*] intpagina=Request.QueryString("pagina")

 

[*]  END IF

 

[*] END IF

 

[*]  END IF

 

[*]END IF

 

[*]

 

[*]RS.AbsolutePage=intpagina

 

[*]

 

[*]intrec=0

 

[*]

 

[*]While intrec < RS.PageSize and not RS.EOF

 

[*]%>

 

[*]<table width="100%" border="0" cellspacing="0" cellpadding="5">

 

[*] <tr bgcolor="#DDDDDD">

 

[*] <td width="23%">Banda/Artista:</td>

 

[*] <td width="77%"><%=rs("banda")%></td>

 

[*] </tr>

 

[*] <tr bgcolor="EEEEEE">

 

[*] <td colspan="2">Músicas:</span></td>

 

[*] </tr>

 

[*] <tr bgcolor="EEEEEE">

 

[*] <td> </td>

 

[*] <td> </td>

 

[*] </tr>

 

[*]</table>

 

[*]

 

[*] <div align="center">

 

[*] <%

 

[*]  RS.MoveNext

 

[*]

 

[*]  ' Acrescenta +1 ao contador

 

[*]  intrec=intrec+1

 

[*]  'Se for EOF (fim de arquivo), imprimir branco na tela

 

[*]  IF RS.EOF then

 

[*] response.write " "

 

[*]  END IF

 

[*]Wend 'fim do loop

 

[*]

 

[*]'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.

 

[*]IF intpagina > 1 then

 

[*]%>

 

[*] <a href="default.asp?pagina=<%=intpagina-1%>"><img src="../global/imgs/BTNANTERIOR.gif" border="0"></a>

 

[*] <%

 

[*]END IF

 

[*]

 

[*]'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página

 

[*]IF strcomp(intpagina,RS.PageCount) <> 0 then

 

[*]%>

 

[*] <a href="default.asp?pagina=<%=intpagina + 1%>"><img src="../global/imgs/BTNPROXIMA.gif" border="0"></a>

 

[*] <%

 

[*]END IF

 

[*]%>

 

[*] </div>

 

[*]

[doiddao 0]

Kra beleza, tem uma solução que fiz e deu certo... Faz um loop dentro de outro, ou seja faz o loop da banda chamar o nomes da musicas... se você ja chegou esse codigo ai falta pouco... usa a logica!!Um abraço!

[r2_d2 0]

Pode fazer o seguinte:

 

SQL = "select banda,musica,url from mp3 order by banda desc"RS.Open SQL,Conn,3,3IF RS.EOF then   Response.Write "nenhum registro encontrado"   Response.End ELSE   do until RS.EOF      ' --- pega o nome da banda do registro atual      varBanda = RS("banda")      ' --- escreve o nome da banda      response.write("Banda: " & RS("banda") )      ' --- vai passando registro por registro da tabela      ' --- enquanto o nome da banda for igual ao valor da variável varBanda      ' --- é pq continua na mesma banda, então só escreve as músicas      do until varBanda <> RS("banda")         response.write("<br>" & RS("Musica") )         RS.MoveNext      loop      ' --- quando o valor de RS("banda") for diferente do valor de varBanda      ' --- o código sairá do loop e voltará pro primeiro DO UNTIL      RS.MoveNext   loopEND IF

[Tigger 0]

aqui eu tenho um exemplo de Grupo de Links e os Links correspondentes a cada Grupo de Links.

 

Ex:

Grupo1

Link1

Link2

 

Grupo2

Link1

 

segue entao

ASP

[*]<%

 

[*]SQL = "SELECT TG_CODIGO, TG_DESCRICAO"

 

[*]SQL = SQL & " FROM "

 

[*]SQL = SQL & " TABELAS_GENERICAS "

 

[*]SQL = SQL & " WHERE "

 

[*]SQL = SQL & " (TG_CODIGO IN ( "

 

[*]SQL = SQL & " SELECT DISTINCT CD_GRUPO FROM "

 

[*]SQL = SQL & " CENTRAL_DOWNLOADS )) "

 

[*] SET RS = Cnn.execute(SQL)

 

[*]

 

[*] while not RS.EOF

 

[*]

 

[*]'** Imprimindo os GRUPOS LINKS cadastrados

 

[*]Response.Write(RS("TG_DESCRICAO"))

 

[*]

 

[*] SQL2 = "SELECT CD_DESCRICAO, CD_URL"

 

[*] SQL2 = SQL2 & " FROM "

 

[*] SQL2 = SQL2 & " CENTRAL_DOWNLOADS "

 

[*] SQL2 = SQL2 & " WHERE "

 

[*] SQL2 = SQL2 & "  ( CD_GRUPO = " &  RS("TG_CODIGO") &" ) "

 

[*] SET RS2 = Cnn.execute(SQL2)

 

[*] while not RS2.EOF

 

[*]

 

[*]'** Imprimindo cada Links referente ao seu respectivo GRUPO LINK

 

[*] Response.Write (RS2("CD_DESCRICAO"))&"<br>"

 

[*]

 

[*] RS2.MOVENEXT

 

[*] WEND

 

[*]

 

[*]RS.MOVENEXT

 

[*]WEND

 

[*]%>

 

[*]