<%
' DECLARACION DE VARIABLES
Dim oConexion,sDSN,oResultado
Dim sParametro,iRegistro
Dim sSQL,bWhere,bBetween,sValor
Dim TotalPaginas 'cantidad de registros por pagina
Dim PaginaActual 'en que pagina nos enconntramos
Dim TamanoPagina 'registros que muestra la pagina
Dim CuentaRegistros 'para llevar la cuenta de los registros que imprimimos
Dim ContPaginas
'Definimos el tamaño de la pagina
TamanoPagina = 10
if Request.QueryString("pagina")="" then
PaginaActual = 1
else
PaginaActual = CInt(request.QueryString("pagina"))
end if
' SENTENCIA SQL
' sSQL="SELECT * FROM IdiomaItem WHERE IdTipoItem=1 AND ActivoItem=1 AND PrivadoItem=0 ORDER BY FAItem DESC"
sSQL="SELECT IdiomaItem.IdItem, IdiomaItem.ResumenIdiomaItem, IdiomaItem.TituloIdiomaItem, Item.IdItem, Item.IdTipoItem, Item.FAItem, Item.ImagenItem, Item.URLItem, Item.ActivoItem, Item.OrdenItem, Item.PrivadoItem FROM Item INNER JOIN IdiomaItem ON Item.IdItem = IdiomaItem.IdItem WHERE IdTipoItem=28 AND Item.ActivoItem=1 AND Item.PrivadoItem=0 ORDER BY Item.OrdenItem ASC"
' CONECTAMOS CON LA BBDD
Set oConexion = Server.CreateObject("ADODB.Connection")
oConexion.ConnectionTimeout = 15
sDSN = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("..\..\Data\BBDD_encuentro.mdb")
oConexion.Open sDSN, "Administrador","Aitana"
Set oResultado=Server.CreateObject("ADODB.RecordSet")
' PAGINACION
oResultado.PageSize = TamanoPagina
oResultado.CacheSize = TamanoPagina
oResultado.Open sSQL,oConexion,3,1 '3 necesitamos ir hacia delante o atras
iRegistro=0
'Contamos las páginas
TotalPaginas = oResultado.PageCount
'Comprobamos que la pagina actual esta dentro del rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > TotalPaginas then
PaginaActual = TotalPaginas
end if
'Si no tenemos registros
if TotalPaginas = 0 then
Response.Write("No se encontraron resultados")
else
'Paginemos
oResultado.AbsolutePage = PaginaActual
Response.Write("
Pagina "&PaginaActual&" de "&TotalPaginas)
Response.Write("
")
CuentaRegistros=0
dim cd
cd = CHR(34)
do while not oResultado.EOF and CuentaRegistros < TamanoPagina 'mientras no se llege al final de documento
%>
<%if (oResultado("ImagenItem")<>"") then%>
<%end if%>
|
|
<%
CuentaRegistros = CuentaRegistros +1
oResultado.MoveNext
loop
end if
oResultado.Close
oConexion.Close
Set oConexion = Nothing
'Mostramos el numero de paginas y enlazamos
ContPaginas = 1
response.Write("
Páginas:")
while ContPaginas <= TotalPaginas
response.Write(" "&ContPaginas&" ")
ContPaginas = ContPaginas+1
wend
response.Write("
")
%>