<%@ Language=VBScript %>
<%
Option Explicit
dim conexion, registros
dim sql, registros2
if session("login_prensa")="" then
Response.Redirect("default.asp")
End if
set conexion = Server.CreateObject ("ADODB.connection")
%><%
conexion.CursorLocation = 3
conexion.open
set registros = Server.CreateObject ("ADODB.RECORDSET")
sql="select count(*) as cuantos from ciec_banners"
registros.open sql,conexion
dim numero, NumeroBanner, banner
randomize
numero=registros("cuantos")
NumeroBanner=int((rnd*numero)+1)
registros.close
sql="select * from ciec_banners where id='"&NumeroBanner&"'"
registros.open sql,conexion
banner=registros("nombre")
registros.close
%>
CIEC - Centro de prensa
<%sql="select * from ciec_centroprensa where login='" &session("login_prensa") &"' and password='" &session("password_prensa") &"'"
registros.open sql,conexion,1%>
<%if registros("visita")=1 then%>
<%end if
registros.close%>
Notas de Prensa CIEC
<%Dim mostrar, cant_paginas, pagina_actual, registro_mostrado, I
mostrar = 10
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
registros.PageSize = mostrar
registros.CacheSize = mostrar
sql = "select * from ciec_notaprensa where tipo=1 and status=1 order by id desc"
registros.open sql,conexion,3,1
cant_paginas = registros.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else
registros.AbsolutePage = pagina_actual
%>
<%registro_mostrado = 0
Do While registro_mostrado < mostrar And Not registros.EOF%>
<%registro_mostrado = registro_mostrado + 1
registros.MoveNext
Loop
end if
registros.close
set registros = Nothing
conexion.close
set conexion = Nothing%>
<%' Ahora mostramos los enlaces a las otras páginas con el resto de los registros...
If pagina_actual > 1 Then
%>
[<< Anterior]
<%
End If
' mostramos la paginacion por numeros de página
For I = 1 To cant_paginas
If I = pagina_actual Then%>
<%= I %>
<%Else%>
<%= I %>
<%End If
Next 'I
If pagina_actual < cant_paginas Then%>
[Próximo >>]
<%End If%>
<%end if%>