<% Response.buffer=true Response.Expires=-2000 Err.Clear On Error Resume Next %> PREMIOS - 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 premios") If rsEvents.EOF Then Response.Write "No hay ningún PREMIO" Response.End End If 'Response.Write "" ' For i=0 to rsEvents.Fields.Count-1 ' cadena=rsEvents(i).Name ' Response.Write "" ' Next ' Response.Write "" 'do while not rsEvents.eof 'For i=1 to rsEvents.Fields.Count-1 ' cadena=" " & rsEvents(i) ' Response.Write "" ' Next ' Response.Write "" ' rsEvents.MoveNext 'Loop ' Conn.Close ' Response.Write"
" & cadena &"
" & cadena &"
" %> <% do while not rsEvents.eof 'For i=1 to rsEvents.Fields.Count-1 'cadena=" " & rsEvents(i) %> <% rsEvents.MoveNext Loop Conn.Close %>
<% Response.Write rsEvents(1) ' Next %>
<% Response.Write rsEvents(2) %>
<% Response.Write "" & rsEvents(3) & "" %>