

EL JAZZ
PRINCIPADO DE ASTURIAS
¡¡ATENCIÓN NUEVO DOMINIO DE LA PAGINA!!con más cosas..www.joseorraca.comORQUESTAS - GRUPOS -CUARTETOS -TRIOS -DUOS -SOLISTAS
![]()
![]()
entra en el foro del músico no necesita registro.
Currículum
Foro del músico armonia,música,descargas,grupos etc... Órganos litúrgicos Curso ( El Jazz en el piano) curso de armonía facilitada Composiciones Si resides en Asturias y quieres que te de clases musicales, en tu domicilio ponte en contacto conmigo a través del teléfono: 686-94-87-89 Enseñanza musical
- Curso de armonía clásica (conservatorio).
- Curso de armonía americana por John Mehegan.
- Pruebas de acceso al conservatorio .
- Piano - Órgano con pedalero o comercial .
Dirigir ó preparar coros .
- .
toda la armonía que se usa en la música popular en 12... lecciones
- Socio de autores ( n : 41731 )
CONCIERTOS DE ÓRGANO: MÚSICA LITÚRGICA -CLÁSICA -CONTEMPORÁNEA .
Enseñanza Musical
![]()
<% Dim dirname, mypath, fso, folder, filez, FileCount dirname = "../mp3s/" mypath = "../mp3s/" Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(server.mappath(dirname)) Set filez = folder.Files FileCount = folder.Files.Count ' This function takes a filename and ret ' urns the appropriate image for ' that file type based on it's extension ' . If you pass it "dir", it assumes ' that the corresponding item is a direc ' tory and shows the folder icon. function ShowImageForType(strName) Dim strTemp ' Set our working String To the one passed in strTemp = strName ' if it's Not a directory, Get the extension and Set it to strTemp ' if it is a directory, Then we already have the correct value if strTemp <> "dir" Then strTemp = LCase(Right(strTemp, Len(strTemp) - InStrRev(strTemp, ".", -1, 1))) End if response.write strTemp ' Set the part of the image file name that's unique To the Type of file ' To it's correct value and Set this to strTemp. (yet another use of it!) Select Case strTemp Case "mp3" strTemp = "MP3" Case "mp2" strTemp = "MP3" Case "wav" strTemp = "MP3" Case "aiff" strTemp = "MP3" Case "html" strTemp = "htm" Case "m3u" strTemp = "MP3" End Select ' All our logic is done... build the IMG Tag For display To the browser ' Place it into... where else... strTemp! ' My images are all GIFs and all start With "dir_" For my own sanity. ' They End With one of the values Set In the Select statement above. strTemp = "" ' Set return value and Exit function ShowImageForType = strTemp End function 'That's it for functions on this one! %>
<%= FileCount %>
<% ' First I deal with any subdirectories. ' I just display them and when you ' click you go to them via plain HTTP. Y ' ou might want to loop them back ' through this file once you've set it u ' p to take a path as input. For Each objItem In objFolder.SubFolders ' Deal With the bad VTI's that keep giving our visitors 404's if InStr(1, objItem, "_vti", 1) = 0 Then %> ARMONIA CLASICA ARMONIA DE JAZZ PIANO ORGANO LITURGICO <% End if Next 'objItem ' Now that I've done the SubFolders, do ' the files! For Each objItem In objFolder.Files %> <%= ShowImageForType("dir") %> <%= objItem.Name %> <%= objItem.Size/1000000 'I used this To display the file size In MB, you can Set it to default %> <%= objItem.DateCreated 'date of creation %> <%= objItem.Type 'the type of file %> <% Next 'objItem Set objItem = Nothing Set objFolder = Nothing ' All done! Kill off the object variable ' s. Set objFSO = Nothing %> <%= ShowImageForType(objItem.Name) %> <%= objItem.Name %> <%= objItem.Size/1000000 %> <%= objItem.DateCreated %> <%= objItem.Type %>
Armonia descarga 389 kb
toda la armonia en ...12 lecciones bajatelo gratis de aqui,por el autor
Intercambio de linksDance Latinoamerica Cuelate.com http://www.sitiosespana.com/ MaestroWeb Linkexchange Astrolabio.net
Dominios 24h.com Guiaweb.org Todoenlaces Enlaces Web
Votanos en TOPSPAIN Enlaces.com Balnearios www.joseorraca.com ( el Jazz en el piano )
http://www.musicoscatolicos.com LinkWorld Spain
Buscador y directorio Recursos-Webmasters.CL >>>> ¡ Enlaces utilidades y recursos para tu web!
PIANO Y JAZZ - FLAMENCO por Jose manuel Quintana Camara
Jose Antonio Orraca Delgado
© Copyright José Orraca (Profesor de música). - 03/10/20