<% Dim Conexion Dim ConexionPersonal Set Conexion = Server.CreateObject("ADODB.Connection") Conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Ateneo.mdb")) SQL = "Select * From Merito Order By Apellidos" set RS = Server.CreateObject("ADODB.RecordSet") RS.ActiveConnection = Conexion RS.CursorType = 3 RS.Open SQL SQLPERSONAL = "Select * From Socios Order By Apellidos" set RSPERSONAL = Server.CreateObject("ADODB.RecordSet") RSPERSONAL.ActiveConnection = Conexion RSPERSONAL.CursorType = 3 RSPERSONAL.Open SQLPERSONAL %>

<% Do While Not RS.Eof %> <% RS.MoveNext() %> <% RS.MoveNext() %> <% RS.MoveNext() Loop %> Ateneístas de Mérito (por orden alfabético)   <%=RS("Apellidos") & ", " & RS("Nombre")%> <%=RS("Apellidos") & ", " & RS("Nombre")%> <%=RS("Apellidos") & ", " & RS("Nombre")%> <% Do While Not RSPERSONAL.Eof %> <% if RSPERSONAL("Honor") = 0 then %> <% else %> <% end if %> <% RSPERSONAL.MoveNext() %> <% if RSPERSONAL("Honor") = 0 then %> <% else %> <% end if %> <% RSPERSONAL.MoveNext() %> <% if RSPERSONAL("Honor") = 0 then %> <% else %> <% end if %> <% RSPERSONAL.MoveNext() Loop %>   Ateneístas (orden alfabético) (en amarillo Ateneístas de Honor)   <%=RSPERSONAL("Apellidos") & ", " & RSPERSONAL("Nombre")%> <%=RSPERSONAL("Apellidos") & ", " & RSPERSONAL("Nombre")%> <%=RSPERSONAL("Apellidos") & ", " & RSPERSONAL("Nombre")%> <%=RSPERSONAL("Apellidos") & ", " & RSPERSONAL("Nombre")%> <%=RSPERSONAL("Apellidos") & ", " & RSPERSONAL("Nombre")%> <%=RSPERSONAL("Apellidos") & ", " & RSPERSONAL("Nombre")%>

<% RS.Close() RSPERSONAL.Close() Conexion.Close() %>