<%sSQL="SELECT * FROM anuncios ORDER BY Fecha DESC"
'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 Avisos 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("fecha")%>
| "><%=RS("titulo")%>
|
 |
<%
RS.MoveNext
Wend
%>
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
%>
