<% Response.buffer=true Response.Expires=-2000 Err.Clear On Error Resume Next %> ENLACES - Editorial Pre-Textos
Historia Editorial Pre-Textos Catalogo Tienda Online Pre-Textos Novedades - Evento s- Agenda Agenda Pre-Textos en la redes social Canal Video de Pre-textos en Youtube Convocatorias Premios Nosotros los solitarios Enlaces seleccionados Distribuidores de Pre-Textos Contactar con Pre-Textos

 

 

<% Err.Clear On Error Resume Next Set rsEvents=Conn.Execute ("Select * from enlaces order by grupo") If rsEvents.EOF Then Response.Write "No hay ningún ENLACE" Response.End End If %> <% grupoant="" do while not rsEvents.eof grupo=rsEvents(1) if grupo<>grupoant then %> <% end if %> <% grupoant=grupo rsEvents.MoveNext Loop Conn.Close %>
<% Response.Write rsEvents(1) ' Next %>
<% Response.Write rsEvents(2) %>
<% Response.Write "" & rsEvents(3) & "" %>