<% sql_select = "SELECT tabla_autores.*, tabla_paises.pais, tabla_paises.flag FROM tabla_autores INNER JOIN tabla_paises ON (tabla_autores.id_pais = tabla_paises.id_pais) WHERE pasante = 1 ORDER BY tabla_autores.pasaOrd DESC" Set cn = Server.CreateObject("ADODB.Connection") cn.Open data_source Set rs = Server.CreateObject("ADODB.Recordset") rs.open sql_select, cn While not rs.EOF ' and cuenta < 12 If Not rs.EOF Then apellido = rs.Fields("apellido") nombre = rs.Fields("nombre") nombre_autor = rs.Fields("nombre_autor") bio_corta = rs.Fields("bio_corta") cargo = rs.Fields("cargo") foto200x200 = rs.Fields("foto200x200") carpeta = rs.Fields("carpeta") univ = rs.Fields("univ") id_autor = rs.Fields("id_autor") profesion = rs.Fields("profesion") pais = rs.Fields("pais") flag = rs.Fields("flag") If id_autor = 417 Then nombre_autor = nombre_autor &" (1943-2014)" End If 'Hector Ricardo Leis. End If If carpeta <> "" Then abro_link_con_carpeta = "" cierro_link = "" End If Response.Write abro_link_con_carpeta &""& cierro_link abro_link_con_carpeta = "" cierro_link = "" rs.MoveNext Wend %>