<% Set rs = CreateObject("ADOdb.Recordset") Set rs1 = CreateObject("ADOdb.Recordset") grupo=request("grupo") titulo=request("titulo") id_repertorio=titulo %> Emilio González Sanz <% Set conn = Server.CreateObject("ADOdb.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ="&Server.Mappath("BD\contenidos.mdb") 'conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ="&Server.Mappath("../../../PRIV/BDfue/CONTENIDOS.mdb") Set rs0 = CreateObject("ADOdb.Recordset") %>
  <%cabecera()%>  

 

 

MÚSICA DE CÁMARA

    FORMACIONES
    REPERTORIO
       
<%if titulo<>"" then %> <% sSQL="Select * from repertorio where Cint(id_repertorio)='" & Cint(id_repertorio) & "'" rs.open sSQL, conn, 3, 3 titulo = rs("tituloRepertorio") rs.close %>

» <%=titulo%> «

 
<% sSQL1="Select * from obras where Cint(id_repertorio)='" & Cint(id_repertorio) & "' and bloque=1 ORDER BY AUTOR" rs1.open sSQL1, conn, 3, 3 %> <%do while not rs1.eof%>
<%=rs1("obra")%>

<%=rs1("autorNombre")%> <%=rs1("autor")%>

<%if rs1("tiempo02")<>"" then%> <%end if%> <%if rs1("tiempo03")<>"" then%> <%end if%> <%if rs1("tiempo04")<>"" then%> <%end if%> <%if rs1("tiempo05")<>"" then%> <%end if%> <%if rs1("tiempo06")<>"" then%> <%end if%> <%if rs1("tiempo07")<>"" then%> <%end if%> <%if rs1("tiempo08")<>"" then%> <%end if%> <%if rs1("tiempo09")<>"" then%> <%end if%> <%if rs1("tiempo10")<>"" then%> <%end if%>
<%if rs1("tiempo01")<>"" then%>

<%=rs1("tiempo01")%><%else%> <%end if%>

<%if (rs1("annoNto")<>"" and rs1("annoMuerte")<>"") then%>(<%=rs1("annoNto")%> - <%=rs1("annoMuerte")%>)<%else%> <%end if%>

<%=rs1("tiempo02")%>

<%=rs1("tiempo03")%>

<%=rs1("tiempo04")%>

<%=rs1("tiempo05")%>

<%=rs1("tiempo06")%>

<%=rs1("tiempo07")%>

<%=rs1("tiempo08")%>

<%=rs1("tiempo09")%>

<%=rs1("tiempo10")%>

 
<%rs1.moveNext%> <%loop%> <%rs1.close%>
<%end if%>
 Por favor, seleccione un instrumento
 
 
   
   

Solista | Música de Cámara | Dossier | Audio | Contacto