<% Set rs = CreateObject("ADOdb.Recordset") Set rs1 = CreateObject("ADOdb.Recordset") %> 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()%>  

 

 

SOLISTA

    CV ESPAÑOL
    CV INGLÉS
    REPERTORIO
      RECITAL
      CONCIERTOS
 
<% sSQL="Select * from autoresConciertos order by autor, autorNombre" rs.open sSQL, conn, 3, 3 %> <%do while not rs.eof%>
 

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

<% sSQL1="Select * from Conciertos where cint(id_autor)='" & cint(rs("id_autor")) & "'" rs1.open sSQL1, conn, 3, 3 %> <%if not rs1.eof then%> <%rs1.moveNext%> <%do while not rs1.eof%> <%rs1.moveNext%> <%loop%>

<%=rs1("titulo")%>

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

<%=rs1("titulo")%>

 
<%end if%> <%rs1.close%> <%rs.moveNext%> <%loop%> <%rs.close%>
   
   

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