Mostrar registros intermedios
Hola virmix, mi problema es que quiero realizar una consulta sql para asp en una bd para mostrarme un número de registros intermedios, muestro los 20 primeros dela forma:
"select top 20 * from tabla order by n desc"
me lo hace bien ....
y luego quiero mostrar los 20 siguientes y luego los 20 siguientes y así sucesivamente, o sea del 21 al 40, luego del 41 al 60, etc
La pregunta es ¿Cómo podría hacerlo en sql?
Gracias por tu atención.
"select top 20 * from tabla order by n desc"
me lo hace bien ....
y luego quiero mostrar los 20 siguientes y luego los 20 siguientes y así sucesivamente, o sea del 21 al 40, luego del 41 al 60, etc
La pregunta es ¿Cómo podría hacerlo en sql?
Gracias por tu atención.
1 Respuesta
Respuesta de virmix
1
intPageSize = 36
If Request.QueryString("page") <> "" Then
intCurrPage = CInt(Request.QueryString("page"))
Else
intCurrPage = 1
End If
rSQL = "Select * from tabla"
set ors=Server.CreateObject("adodb.Recordset")
ors.Open rSQL, Conn,1,2
oRS.PageSize = intPageSize
intPageCnt = oRS.PageCount
If intCurrPage > intPageCnt Then intCurrPage = intPageCnt
If intCurrPage < 1 Then intCurrPage = 1
If intPageCnt = 0 Then
Else
oRS.AbsolutePage = intCurrPage
Do While intShown < intPageSize And Not oRS.EOF
''''CODIGO '''''
intShown = intShown + 1
oRS.MoveNext
loop
'''' MODIFICA El codigo de abajo como tu quieras ''''
If intCurrPage > 1 Then
%>
<font class='menu01'><a href="?cat=<%=Request.QueryString("cat")%>&mod=<%=Request.QueryString("mod")%>&page=<%= intCurrPage - 1 %>&view=<%=Request.QueryString("view")%>">[<<<%=GetTranslation("LANG_VOLVER")%> ]</a></font>
<%
End If
For i = 1 To intPageCnt
If i = intCurrPage Then
%>
<u><font class='menu01'><%= i %></font></u>
<%
Else
%>
<font class='menu01'><a href="?mod=<%=Request.QueryString("mod")%>&page=<%= I%>&view=<%=Request.QueryString("view")%>&cat=<%=Request.QueryString("cat")%>"><%= i %></a> </font>
<%
End If
Next
If intCurrPage < intPageCnt Then
%>
<font class='menu01'><a href="?mod=<%=Request.QueryString("mod")%>&page=<%= intCurrPage + 1 %>&view=<%=Request.QueryString("view")%>&cat=<%=Request.QueryString("cat")%>">[<%=GetTranslation("LANG_SIGUIENTE")%> >>]</a></font>
<%
End If
If Request.QueryString("page") <> "" Then
intCurrPage = CInt(Request.QueryString("page"))
Else
intCurrPage = 1
End If
rSQL = "Select * from tabla"
set ors=Server.CreateObject("adodb.Recordset")
ors.Open rSQL, Conn,1,2
oRS.PageSize = intPageSize
intPageCnt = oRS.PageCount
If intCurrPage > intPageCnt Then intCurrPage = intPageCnt
If intCurrPage < 1 Then intCurrPage = 1
If intPageCnt = 0 Then
Else
oRS.AbsolutePage = intCurrPage
Do While intShown < intPageSize And Not oRS.EOF
''''CODIGO '''''
intShown = intShown + 1
oRS.MoveNext
loop
'''' MODIFICA El codigo de abajo como tu quieras ''''
If intCurrPage > 1 Then
%>
<font class='menu01'><a href="?cat=<%=Request.QueryString("cat")%>&mod=<%=Request.QueryString("mod")%>&page=<%= intCurrPage - 1 %>&view=<%=Request.QueryString("view")%>">[<<<%=GetTranslation("LANG_VOLVER")%> ]</a></font>
<%
End If
For i = 1 To intPageCnt
If i = intCurrPage Then
%>
<u><font class='menu01'><%= i %></font></u>
<%
Else
%>
<font class='menu01'><a href="?mod=<%=Request.QueryString("mod")%>&page=<%= I%>&view=<%=Request.QueryString("view")%>&cat=<%=Request.QueryString("cat")%>"><%= i %></a> </font>
<%
End If
Next
If intCurrPage < intPageCnt Then
%>
<font class='menu01'><a href="?mod=<%=Request.QueryString("mod")%>&page=<%= intCurrPage + 1 %>&view=<%=Request.QueryString("view")%>&cat=<%=Request.QueryString("cat")%>">[<%=GetTranslation("LANG_SIGUIENTE")%> >>]</a></font>
<%
End If
