listado con paginacion, dos primeros registros distintos

[gagarin]

Perdonen el titulo tanlargo pero no sé como explicarlo.
Lo que quiero hacer es esto, yo tengo unl istado de noticias paginado funcionando y todo, pero ahora lo que me piden es que las dos primeras noticias se muestren diferente, ej:

En mi listado pongo solo el título de la noticia, la fecha y la hora de creación, pero los dos primeros registros de la primera página quieren que aparezca el titulo, la fecha y hora y además la introducción de la noticia y en las siguientes páginas que solo se muestre titulo, fecha y hora.

no sé si deba usar alguna el metodo MoveLast o que, he buscado en el foro y en internet y no veo algo que me pueda ayudar. Si a alguien se le ocurre algo le estaré agradecidísimo.
Saludos

[JuanRAPerez]

usa un contador

idea basica.

contador = 0
inicias el ciclo
contador = contador + 1
if contador < 3 then
response.write titulo & "<br>"
response.write fecha & "<br>"
response.write contenidocortado & "<br>"
else
response.write titulo & "<br>"
end if

Suerte

[AlZuwaga]

No le serviría del todo, puesto que sólo quiere que los 2 primeros registros de la primer página se muestren diferentes. Con eso, se mostrarían los 2 primeros de todas las páginas. En el IF preguntá además por el número de página.

Idea de JuanRAPerez adaptada:

Código:

contador = 0
inicias el ciclo
contador = contador + 1
if contador < 3 AND esta_pagina = 1 then
response.write titulo & "<br>"
response.write fecha & "<br>"
response.write contenidocortado & "<br>"
else
response.write titulo & "<br>"
end if

[gagarin]

Muchas gracias, lo probaré hoy a ver que tal.
GRACIAS GRACIAS GRACIAS

[JuanRAPerez]

jejeje

pues lei rapido

grx maestro por el detalle

y gargarin
suerte

[gagarin]

Funciona de P...

El punto, cosa que no se me había ocurrido, es que la primera página por espacio debería mostrar por decir algo 5 registros y la segunda 10 y así sucesivamente, ya que tengo más espacio.

He intentado esto:

Código:

if Request.Querystring("pagina") = "" then TamPagina = 5 else TamPagina = 10 END IF

nada!!! Me muestra desde el principio 10 registros

También esto:

Código:

if Request.Querystring("pagina") <=1 then TamPagina = 5 else if Request.Querystring("pagina") >=2 TamPagina = 10 END IF END IF

Tampoco funka Muestra la primera página 5 registros, pero como segunda página solo el último registro, se come 5 registros más menos, así es que no sé que más hacer.

Meto más código por si no queda claro por donde voy

El Do while está así:

Código:

Do While Not rs.EOF AND CuantosRegistros < TamPagina 
numero= numero+1
IF numero < 3 AND PaginaActual = 1 THEN%>
<%
'::::::::::::::::::::::::::::::::::::::::::
'Aquí Iría el código que me dijeron
'::::::::::::::::::::::::::::::::::::::::::
contador = 0
inicias el ciclo
contador = contador + 1
if contador < 3 AND PaginaActual = 1 then
response.write titulo & "<br>"
response.write fecha & "<br>"
response.write contenidocortado & "<br>"
else
response.write titulo & "<br>"
end if
%>

<%
CuantosRegistros=CuantosRegistros + 1
rs.movenext
total= total+1
loop
%>

La paginación la hago así:

Código:

'::::::::DEFINIMOS VARIABLES PARA LA PAGINACIÓN
Dim Conn, rs, sSQL
Dim PaginaActual
Dim RegistrosTotales
Dim PaginasTotales
Dim TamPagina
Dim UltimoRegistro

Código:

' ::::::::::::: ÉSTO ES LOQ UE ESTUVE INTENTANDO
IF Request.Querystring("pagina") =1 THEN
Response.write("5")
TamPagina = 5
ELSE
Response.write("10")
TamPagina = 10
End If

Me di cuenta de que si hago esto en la segunda página, por ejemplo me mostraría a partir de dato 11 puesto que al convertir en 10 el TamPagina, pues la página uno tendría 10 registros y no 5 como quiero.

Código:

'::::::::::::::::::::::::::: AQUI SE ASIGNAN VARIABLES PARA PAGINACIÓN
if Request.Querystring("pagina") = "" then PaginaActual = 1 else PaginaActual = Cint(Request.Querystring("pagina"))
	rs.PageSize = TamPagina
	rs.CacheSize = TamPagina
	rs.Open sSQL, Conn, 1, 2
	PaginasTotales = rs.PageCount
	if PaginaActual < 1 then PaginaActual = 1	
	if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales
	if PaginasTotales=0 then
	
	else
	
	UltimoRegistro = rs.Absoluteposition
	RegistrosTotales = rs.RecordCount 
	rs.AbsolutePage = PaginaActual
	textotd = "Pagina " & PaginaActual & " de " & PaginasTotales
	end if
	IF RegistrosTotales = 0 Then
	TextoSin="No se encontraron Registros"
	else
	TextoSin=""
	END IF

%>

Esto es el código
Alguna Idea

[gagarin]

Please !!! =(