<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer = true Response.CacheControl = "no-cache" %>

Discografia

<% codigo=request("codigo") Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open dsn'open connection SQL = "SELECT * FROM discografia WHERE codigo = "&codigo Rs.Open sql, conn if Rs.eof AND Rs.bof =True Then response.write "• Nenhum álbum cadastrado" else %> <% 'if rs("imagem")<>"" then %> <% 'end if %>

" width="100" height="100" vspace="0" border="0" />

<%=rs("ano")%>- <%=rs("album")%>
Artista: <%=rs("artista")%>
<% end if rs.close set rs= nothing conn.close set conn = nothing %>

Músicas:

<% Set Conn01 = Server.CreateObject("ADODB.Connection") Set Rs01 = Server.CreateObject("ADODB.Recordset") Conn01.Open dsn'open connection SQL01 = "select * from musicas where codigoalbum like '"& codigo &"' order by faixa " Rs01.Open sql01, conn01,adOpenStatic, adLockReadOnly, adCmdText if Rs01.eof AND Rs01.bof =True Then response.write "• Nenhuma música cadastrada para esse álbum!" else Do While Not Rs01.EOF %>

<%=rs01("faixa")%> - <%=rs01("musica")%> <% if rs01("ouvir") <> "" then response.write "[ mp3 ]" end if %> <% if rs01("letra") <> "" then response.write "[ letra ]" end if %>
<%=rs01("autor")%>

<% rs01.movenext loop end if rs01.close set rs01= nothing conn01.close set conn01 = nothing %>

< voltar