<% id_audio=request("id_audio") 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 rs = CreateObject("ADOdb.Recordset") Set rs1 = CreateObject("ADOdb.Recordset") %> Emilio González Sanz
  <%cabecera()%>  
   
 

AUDIO
   
<%if id_audio<>"" then%> <% sSQL="Select * from galeriaAudio where Cint(id_audio)='" & Cint(id_audio) & "'" rs.open sSQL, conn, 3, 3 titulo = rs("titulo") archivo=rs("archivo") track=rs("track") rs.close %> <%end if%> <% sSQL1="Select * from ClasificacionAutores order by apellidoAutor, nombreAutor" rs1.open sSQL1, conn, 3, 3 %> <%if not rs1.eof then%> <%do while not rs1.eof%> <% sSQL="Select * from GaleriaAudio where Cint(autor)='" & Cint(rs1("id_clasificacion")) & "' order by titulo, track" rs.open sSQL, conn, 3, 3 %> <%do while not rs.eof%> <%rs.moveNext%> <%loop%> <%rs.close%> <%rs1.moveNext%> <%loop%> <%else%> <%end if%> <%rs1.close%>
 

<%=UCASE(TITULO)%> (track <%=track%>) sonando...

 
<%=rs1("nombreAutor")%> <%=rs1("apellidoAutor")%>

">

  • <%=rs("titulo")%><%if rs("track")<>"" then%> (track <%=rs("track")%>)<%end if%>
    		•
     
    En este momento no hay archivos de audio disponibles
    		    
       

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