<%
sSQL="SELECT * FROM noticias ORDER BY FECHA DESC"
'constantes ADO VBScript
'Const adCmdText = &H0001
'Const adOpenStatic = 3
If Request.QueryString("pag")<>"" Then
Session("pagina")=Request.QueryString("pag")
Else
Session("pagina")=1
End If%>
<%
RS.MoveNext
Wend
%>
Mas Noticias:>> <% i=0 While i
<%=i%>
<%
Wend
End if
RS.Close
Conn.Close
%>
NOTICIAS
<%
If RS.EOF AND RS.BOF Then%>
No hay ninguna noticia en este momento
<%else num_registros=9 RS.PageSize=num_registros RS.AbsolutePage=Session("pagina") While (Not RS.eof AND registros_mostrados < num_registros) registros_mostrados=registros_mostrados+1 capas=capas+1 subtitular = LEFT(rs("subtitular"),159) %>
<%=RS("fecha")%>__________________
Página:<%=Session("pagina")%> de <%=RS.PageCount%>Mas Noticias:>> <% i=0 While i
