<%
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
%>