<%sSQL="SELECT * FROM actividades ORDER BY id ASC" 'esta sentencia SQL puede ser creada a partir de un buscador como el que hemos visto en otro reportaje 'y almacenada en una session para emplearla sucesivas veces en el script: session("ssql")=ssql 'actualizamos numero de pagina If Request.QueryString("pag")<>"" Then Session("pagina")=Request.QueryString("pag") Else Session("pagina")=1 End If 'constantes ADO VBScript 'Const adCmdText = &H0001 'Const adOpenStatic = 3 %> <%If RS.EOF AND RS.BOF Then%>

No hay Actividades en este momento

<% else 'resultados por pagina a elegir arbitrariamente num_registros = 7 'Dimensionamos las paginas y determinamos la pagina actual RS.PageSize=num_registros RS.AbsolutePage=Session("pagina") %> <% 'Contamos el numero de campos num_campos=RS.Fields.Count For campo=0 to num_campos-1%> <% Next registros_mostrados = 0 While (Not RS.eof And registros_mostrados < num_registros) registros_mostrados = registros_mostrados +1 %> <% RS.MoveNext Wend %>

Ver			Descripción
&programa=<%=rs("titulo")%>">			&programa=<%=rs("titulo")%>"><%=RS("titulo")%>	">" alt="<%=RS("titulo")%>" width="65" border="0" />

Página: <%=Session("pagina")%> de <%=RS.PageCount%>
Ir a página :>> <% i=0 While i <%=i%><% Wend %> <% RS.Close Conn.Close Set result = Nothing Set con = Nothing End If %>