<% function comprueba(cad) inicial=cad final="" do while len(inicial)>0 car=left(inicial, 1) select case (car) case "á": car = "á" case "é": car = "é" case "í": car = "í" case "ó": car = "ó" case "ú": car = "ú" case "Á": car = "Á" case "É": car = "É" case "Í": car = "Í" case "Ó": car = "Ó" case "Ú": car = "Ú" case "ñ": car = "ñ" case "Ñ": car = "Ñ" end select final = final & car inicial = right(inicial, (len(inicial)-1)) loop comprueba = final end function function presenta(cad) inicial=cad final="" do while len(inicial)>0 car=left(inicial, 1) if asc(car)= 13 then car="
" final = final & car inicial = right(inicial, (len(inicial)-1)) loop presenta= final end function 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("../private/CONTENIDOS.mdb") Set rs = CreateObject("ADOdb.Recordset") idioma=request("idioma") if idioma="" then idioma="ESPANOL" %> <%=COMPRUEBA("Emilio González Sanz")%>
  <%cabecera()%>  
   
 

SOLISTA
    <%if Ucase(idioma)="ESPANOL" then%> CV ESPAÑOL <%else%> CV ESPAÑOL <%end if%>
    <%if Ucase(idioma)="ESPANOL" then%> CV INGLÉS <%else%> CV INGLÉS <%end if%>
    REPERTORIO
      RECITAL
      CONCIERTOS
<% sSQL="Select * from cv where UCASE(idioma)='" & UCASE(idioma) & "'" rs.open sSQL, conn, 3,3 %>

<%=presenta(rs("parrafo"))%>
<%rs.close%> 		   
   

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