<% 'Set rs = CreateObject("ADOdb.Recordset") Set rs1 = CreateObject("ADOdb.Recordset") tipo=request("tipo") if tipo="" then tipo="SOLISTA" if ucase(tipo)="SOLISTA" then encab="encabezado02.jpg" else encab="encabezado03.jpg" end if 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()%>  

 

<%if ucase(tipo)="SOLISTA" then%>
 

SOLISTA

    CV ESPAÑOL
    CV INGLÉS
    REPERTORIO
      RECITAL
      CONCIERTOS
<%else%>
 

MÚSICA DE CÁMARA

    FORMACIONES
    REPERTORIO
       
<%end if%>
<%if titulo<>"" then %> <% sSQL="Select * from repertorio where Cint(id_repertorio)='" & Cint(id_repertorio) & "'" rs.open sSQL, conn, 3, 3 grupo = ucase(rs("grupoRepertorio")) titulo = ucase(rs("tituloRepertorio")) rs.close %>
<%=grupo%>
<%=titulo%>
 
<% haybloque2="SI" sSQL1="Select * from obras where Cint(id_repertorio)='" & Cint(id_repertorio) & "' and bloque=2" rs1.open sSQL1, conn, 3, 3 if rs1.eof then haybloque2="NO" rs1.close %> <% sSQL1="Select * from obras where Cint(id_repertorio)='" & Cint(id_repertorio) & "' and bloque=1" rs1.open sSQL1, conn, 3, 3 %> <%if not rs1.eof and haybloque2="SI" then%>

I

<%end if%> <%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%>

<% cad1="" cad2="" cad3="" if (rs1("annoNto")<>"" or rs1("annoMuerte")<>"") then cad1="(" cad2=" - " cad3=")" end if %>  <%=cad1%><%if rs1("annoNto")<>"" then%><%=rs1("annoNto")%><%end if%><%=cad2%><%if rs1("annoMuerte")<>"" then%><%=rs1("annoMuerte")%><%end if%><%=cad3%>

<%=rs1("tiempo02")%>

<%=rs1("tiempo03")%>

<%=rs1("tiempo04")%>

<%=rs1("tiempo05")%>

<%=rs1("tiempo06")%>

<%=rs1("tiempo07")%>

<%=rs1("tiempo08")%>

<%=rs1("tiempo09")%>

<%=rs1("tiempo10")%>

 
<%rs1.moveNext%> <%loop%> <%rs1.close%> <% sSQL1="Select * from obras where Cint(id_repertorio)='" & Cint(id_repertorio) & "' and bloque=2" rs1.open sSQL1, conn, 3, 3 %> <%if not rs1.eof then%>

II

<%end if%> <%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%>

<% cad1="" cad2="" cad3="" if (rs1("annoNto")<>"" or rs1("annoMuerte")<>"") then cad1="(" cad2=" - " cad3=")" end if %>  <%=cad1%><%if rs1("annoNto")<>"" then%><%=rs1("annoNto")%><%end if%><%=cad2%><%if rs1("annoMuerte")<>"" then%><%=rs1("annoMuerte")%><%end if%><%=cad3%>

<%=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%> <%if ucase(tipo)="SOLISTA" then men="Por favor, seleccione una temporada" men2="Por favor, seleccione una temporada y un programa" else men="Por favor, seleccione una formación" men2="Por favor, seleccione una formación y un programa" end if%>
<%=men2%>
 
   
   

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