<% sql_select = "SELECT * FROM tabla_autores WHERE ordenStaff <> 0 ORDER BY ordenStaff" 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") cargoBreve = rs.Fields("cargoBreve") If id_autor = 417 Then nombre_autor = nombre_autor &" (1943-2014)" End If 'Hector Ricardo Leis. End If If carpeta <> "" Then Response.Write "" End If Response.Write "
" Response.Write "
" Response.Write "
" & nombre_autor & "
" Response.Write "
" & cargo & "
" Response.Write "
" If carpeta <> "" Then Response.Write "
" End If carpeta = "" rs.MoveNext Wend %>