<%
Dim iPageSize
Dim iPageCount
Dim iPageCurrent
Dim strOrderBy
Dim strSQL
Dim objPagingRS
Dim iRecordsShown
Dim I
iPageSize = 5
If Request.QueryString("page") = "" Then
iPageCurrent = 1
Else
iPageCurrent = CInt(Request.QueryString("page"))
End If
%>
<%
sql = "SELECT top 50 id_noticia,titulo,fecha_registro,noticia,publicado"
sql = sql & " FROM noticias"
sql = sql & " WHERE publicado = 1"
sql = sql & " ORDER BY fecha_registro DESC"
Set objPagingRS = Server.CreateObject("ADODB.Recordset")
objPagingRS.PageSize = iPageSize
objPagingRS.CacheSize = iPageSize
objPagingRS.Open SQL,con,3,3
iPageCount = objPagingRS.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "No existen Registros en "
Else
objPagingRS.AbsolutePage = iPageCurrent
End if
%>
Pág
<%= iPageCurrent %> de
<%= iPageCount %>
<% iRecordsShown = 0
Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
copete = left(objPagingRS.Fields(3),137)
fecha = objPagingRS.Fields(2)
%>
<%
if colorfila = 0 then
color= "#FFFFFF"
colorfila=1
else
color="#F7F7F7"
colorfila=0
end if
%>
<%
'objPagingRS.Close
'Set objPagingRS = Nothing
'con.close
'set con = Nothing
%>
<%If iPageCurrent > 1 Then%>
[<<]
<%
End If
For I = 1 To iPageCount
If I = iPageCurrent Then
%>
<%= I %>
<%Else %>
<%= I %>
<%
End If
Next
If iPageCurrent < iPageCount Then
%>
[>>]
<% End If %>
Departamento de Estado de los EE.UU: El Perú es considerado como uno de los países que viene desarrollando esfuerzos para combatir el delito de Trata de Personas”. Secretaría Permanente de Derechos Humanos - MININTER’…Ver Spot
DIRCOCOR : LEY Nº 27693 y LEY 27379 (crea Unidad de Inteligencia Financiera - Perú y más ...)...Ver Información
LEY DE RÉGIMEN DISCIPLINARIO DE LA PNP Ley 29356 Bajar Archivo...
Normatividad vigente del Sistema Nacional de Inversión Pública, RDN°002-2009-EF/68.01 y Dir. N°001-2009-EF/68.01 en reeemplazo de la RD N°003-2007-EF/68.01 Ver Información
Actualización de las Cartas Declaratorias FOSEROF, FOSERSOE, FONSEVID : Actualizar CARTA DECLARATORIA ...Bajar Formatos
DIRECTIVA Nº 01 -2009-DIRGEN-PNP/EMG. Lineamientos para la efectividad en la ejecución de planes integrados de Seguridad Ciudadana, entre Gobiernos Locales y la PNP. Bajar Directiva...