Demonstrates recordset paging.

N. Pandu Ranga Rao. (3 Submissions) Active Server Pages ASP (Active Server Pages) Unknown Difficulty Wed 10^th October 2001 Mon 8^th February 2021

Rate Demonstrates recordset paging.

(3(3 Vote))


<!--#include Virtual = "asp/adovbs.inc"-->
<head>
	<title>Untitled</title>
</head>

<body>

<% if IsEmpty(Request.QueryString("PageNo")) = False then
    Dim PageNumber
	Set Con = Server.CreateObject("Adodb.Connection")
	Set Rs1 = Server.CreateObject("Adodb.Recordset")
	Con.Open "Data Source=DSN;", "uid", "pwd"
	Rs1.CursorLocation = adUseClient
	Rs1.Open "Select * from Tname", Con, adOpenDynamic, adLockBatchOptimistic, adCmdText 
	Rs1.Sort = "RoomNo"
	Rs1.PageSize = 20
	PageNumber = CInt(Request.QueryString("PageNo"))
	if PageNumber < 1 or PageNumber > Rs1.PageCount-1 then
		Response.Write("<strong>There is no such page number exisists.....</strong>")
		Response.End
	End if
	Rs1.AbsolutePage = PageNumber
%>
<table width="90%" align="center">
<tr>
<td>Room No</td>
</tr>
<% for i = 0 to 20
if not Rs1.eof then%>
<tr>
<td><%=Rs1(0)%></td>
<% 
Rs1.MoveNext
end if
next
%>
</tr>
</table>
<% end if %>

</body>
</html>

Download snippet Save to my list

Demonstrates recordset paging. Comments

No comments yet — be the first to post one!

Demonstrates recordset paging.

Demonstrates recordset paging. Comments

Post a Comment