|
|
|
|
|
| |
DESTACADOS DE LA SEMANA |
|
| |
|
<%
' 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("
")
%>
|
|
|
|
|
