<%
' Paginas en un recordset
'------------------------
' Carlos de la Orden Dijs
' webmaster@aspfacil.com
'------------------------
Dim oConn, rs, SQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos
Dim k, cad1, cad2
dim val1, val2, val3, val4
dim val11, val22, val33, val44
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=6
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
valorx=1
' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("dondevoy.mdb")&";"
SQL="SELECT * FROM Tblnoticias ;"
' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
' Abro el recordset
rs.Open SQL, oConn, 1, 2
'Cuento las páginas
PaginasTotales=rs.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
rs.AbsolutePage=PaginaActual
' Response.Write("
")
'Response.Write("")
' Response.Write("| RESULTADOS | ")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
'Pinto una línea de la tabla por cada registro
' Response.Write(" "&VbCrLf)
'Response.Write("| "&rs.Fields("Id")&" | ")
' Response.Write(""&rs.Fields("Nombre")&" | ")
' Response.Write(""&rs.Fields("Ventas")&" | ")
'Response.Write(" ")
val1=rs.Fields("Titulo")
val2=rs.Fields("Foto1")
val3=rs.Fields("Texto1")
val4=rs.Fields("Texto2")
rs.movenext
if rs.eof then
val11=1
val22=1
val33=1
val44=1
rs.movelast
else
val11=rs.Fields("Titulo")
val22=rs.Fields("Foto1")
val33=rs.Fields("Texto1")
val44=rs.Fields("Texto2")
end if
Response.Write("")
Response.Write("")
Response.Write("  ")
' &val1&" | ")
cad2=val1
while len(cad2)>18
cad1=left(cad2,18)
cad2=mid(cad2,19,len(cad2))
Response.Write(cad1 & "
")
wend
if len(cad2)>0 then Response.Write(cad2 & "
")
Response.Write("")
Response.Write(" | ")
Response.Write(" ")
' &val11&" | ")
cad2=val11
while len(cad2)>18
cad1=left(cad2,18)
cad2=mid(cad2,19,len(cad2))
Response.Write(cad1 & "
")
wend
if len(cad2)>0 then Response.Write(cad2 & "
")
Response.Write("")
Response.Write(" ")
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write(" ")
Response.Write(" ")
Response.Write("  ")
Response.Write(" ")
Response.Write(" | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" ")
' &val3&" | ")
cad2=val3
while len(cad2)>18
cad1=left(cad2,18)
cad2=mid(cad2,19,len(cad2))
Response.Write(cad1 & "
")
wend
if len(cad2)>0 then Response.Write(cad2 & "
")
Response.Write("")
Response.Write(" ")
Response.Write(" ")
Response.Write(" ")
' &val4&" | ")
cad2=val4
while len(cad2)>18
cad1=left(cad2,18)
cad2=mid(cad2,19,len(cad2))
Response.Write(cad1 & "
")
wend
if len(cad2)>0 then Response.Write(cad2 & "
")
Response.Write("")
Response.Write(" ")
Response.Write(" | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" ")
Response.Write("  ")
Response.Write(" ")
Response.Write(" | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" ")
' &val33&" | ")
cad2=val33
while len(cad2)>18
cad1=left(cad2,18)
cad2=mid(cad2,19,len(cad2))
Response.Write(cad1 & "
")
wend
if len(cad2)>0 then Response.Write(cad2 & "
")
Response.Write("")
Response.Write(" ")
Response.Write(" ")
Response.Write(" ")
' &val44&" | ")
cad2=val44
while len(cad2)>18
cad1=left(cad2,18)
cad2=mid(cad2,19,len(cad2))
Response.Write(cad1 & "
")
wend
if len(cad2)>0 then Response.Write(cad2 & "
")
Response.Write("")
Response.Write(" ")
Response.Write(" | ")
Response.Write(" ")
Response.Write(" ")
Response.Write("")
Response.Write("")
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
'Muestro los enlaces
'Response.Write("
")
%>
| Quienes Somos |
MENU PRINCIPAL |
|
|
| Menu |
|
| Visitante Nro: Esta es la visita Nro. : 1223 |
|
|
|
|
|
|
|
|
| |
BIENVENIDOS A ESTA PAGINA |
|
| |
|
CENTRO AFROBOLIVIANO PARA EL DESARROLLO INTEGRAL Y COMUNITARIO
El cual surge para promover el empoderamiento del pueblo Afroboliviano fortaleciendo su identidad étnico-cultural a través de su formación educativa, política, sociocultural, buscando el relacionamiento con el Gobierno, Sociedad Civil y Organizaciones Internacionales generando acciones que contribuyan al desarrollo de sus comunidades.
-
Por lo tanto fortalecer la identidad étnico-cultural de los Afrobolivianos/as promoviendo la integración y el desarrollo de nuestras comunidades.
-
Promover la formación, el fortalecimiento de nuevos líderes y cuadros Afrobolivianas/os apuntando así a la generación de cambios.
-
Promover Proyectos de Desarrollo que colaboren efectivamente a combatir las históricas desventajas económico-sociales que padecen los grupos étnicos afectados por el Racismo y la Discriminación (DD.HH).
-
Promover el empoderamiento mejorando su capacidad de comprensión y discusión político social de dialogo con los otros grupos étnicos.
- · Promover el relacionamiento, intercambio, generando alianzas, convenios. lobby, advocacy con otros grupos organizados nacionales e internacionales (como redes, alianzas, pactos, etc.).
- · Coordinar con el Estado la generación de acciones afirmativas y políticas públicas que respeten, difundan los usos y costumbres de los Afrobolivianas/os (Incidencia política).
- · Mejorar la calidad de vida enmarcada dentro la temática ambiental de las comunidades Afrobolivianas e Indígenas.
|
|
|
|
|
