N_F_S
asked on
Google-like recorset paging
Hi again,
I want to do google like recorset paging, I have written this one , that I'm using now:
<%
RS.CacheSize = 10
RS.CursorLocation = adUseClient
RS.Open sql, conn
RS.PageSize = 10
Dim p
p = Request.QueryString("page" )
If Len(p) = 0 Then
RS.AbsolutePage = 1
p = 1
Else
If CInt(p) <= RS.PageCount Then
RS.AbsolutePage = p
Else
RS.AbsolutePage = 1
End If
End If
Dim abspage,pagecnt
abspage = RS.AbsolutePage
pagecnt = RS.PageCount
Dim num
Function NAV()
Response.Write "Page "
If abspage = 1 Then
Response.Write ""
Else
Response.Write "<a href="""&SCRIPT_NAME&"?id= "&ID&"&pag e=" & abspage - 1
If o <> "" then Response.Write "&s="&s&"&o="&o
Response.Write """>«</a>"
End If
For num = 1 to RS.PageCount
If num = abspage Then
Response.Write " ["& num &"]"
Else
Response.Write "<a href="""&SCRIPT_NAME&"?id= "&ID&"&pag e="& num
If o <> "" then Response.Write "&s="&s&"&o="&o
Response.Write """> "& num &"</a>"
End If
Next
If abspage < pagecnt Then
Response.Write "<a href="""&SCRIPT_NAME&"?id= "&ID&"&pag e=" & abspage + 1
If o <> "" then Response.Write "&s="&s&"&o="&o
Response.Write """> »</a>"
Else
Response.Write ""
End If
End Function
Response.Write NAV()
%>
It shows like Page <1 2 3 [4] 5> of 5
How can I change it to show like :
Page 17:
<9 10 11 12 13 14 15 16 [17] 18> of 20
Page 13:
<5 6 7 8 9 10 11 12 [13] 14> of 20
etc...
<(previos page), > (next page)
Thanks!
I want to do google like recorset paging, I have written this one , that I'm using now:
<%
RS.CacheSize = 10
RS.CursorLocation = adUseClient
RS.Open sql, conn
RS.PageSize = 10
Dim p
p = Request.QueryString("page"
If Len(p) = 0 Then
RS.AbsolutePage = 1
p = 1
Else
If CInt(p) <= RS.PageCount Then
RS.AbsolutePage = p
Else
RS.AbsolutePage = 1
End If
End If
Dim abspage,pagecnt
abspage = RS.AbsolutePage
pagecnt = RS.PageCount
Dim num
Function NAV()
Response.Write "Page "
If abspage = 1 Then
Response.Write ""
Else
Response.Write "<a href="""&SCRIPT_NAME&"?id=
If o <> "" then Response.Write "&s="&s&"&o="&o
Response.Write """>«</a>"
End If
For num = 1 to RS.PageCount
If num = abspage Then
Response.Write " ["& num &"]"
Else
Response.Write "<a href="""&SCRIPT_NAME&"?id=
If o <> "" then Response.Write "&s="&s&"&o="&o
Response.Write """> "& num &"</a>"
End If
Next
If abspage < pagecnt Then
Response.Write "<a href="""&SCRIPT_NAME&"?id=
If o <> "" then Response.Write "&s="&s&"&o="&o
Response.Write """> »</a>"
Else
Response.Write ""
End If
End Function
Response.Write NAV()
%>
It shows like Page <1 2 3 [4] 5> of 5
How can I change it to show like :
Page 17:
<9 10 11 12 13 14 15 16 [17] 18> of 20
Page 13:
<5 6 7 8 9 10 11 12 [13] 14> of 20
etc...
<(previos page), > (next page)
Thanks!
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.