Hi,
The following code will help you.
------------------------------------
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
dim objRs,objConn,strSql
set objRS =server.CreateObject("ADODB.Recordset")
set objConn = server.CreateObject("ADODB.Connection")
objConn.ConnectionString ="Provider=Sqloledb.1;Dsn=Sureshbabu;Database=samp le;uid=sa;pwd=007"
objRs.CursorLocation = 3
objConn.Open
strSql ="select * from emp"
objRs.Open strSql,objConn,3,2
objRs.PageSize =2
dim strColor,intCount
intCount = 1
%>
<form name=form1 action="paging.asp?path=excel" method=post>
<table border=1 width=100%>
<tr>
<TD><b>EmpNo</b></td><TD><b>EName</b></td><TD><b>Salary</b></td>
</tr>
<%
dim lngPage
lngPage = cint(Request.QueryString("Page"))
if lngPage < 1 then
lngPage = 1
end if
objRs.AbsolutePage = lngPage
while objRs.AbsolutePage = lngPage
if intCount mod 2 = 0 then
strColor= "eeeeee"
else
strColor="ffffff"
end if
%>
<tr bgcolor=<%=strColor%>>
<TD><b><%=objRs(0)%></b></td><TD><b><%=objRs(1)%></b></td><TD><b><%=objRs(2)%></b></td>
</tr>
<%objRs.MoveNext
intCount = intCount + 1
wend%>
<%
lngPage = cint(Request.QueryString("Page"))
if lngpage < 1 then
lngpage =1
end if
objRs.AbsolutePage = lngPage
%>
<tr>
<%if objRs.AbsolutePage = objRs.PageCount then %>
<td colspan=3 align=right>
No Of Records : <%=objRs.AbsolutePosition%> - <%=objRs.RecordCount%> Of <%=objRs.RecordCount %>
</td>
<%else%>
<td colspan=3 align=right>
No Of Records : <%=objRs.AbsolutePosition%> - <%= objRs.PageSize * objRs.AbsolutePage %> Of <%=objRs.RecordCount %>
</td>
<%end if%>
</tr>
<tr>
<td colspan=3 align=left>
<%if objRs.AbsolutePage <> 1 then %>
<a href=paging.asp?Page=1>First</a>|
<%end if%>
<%if objRs.AbsolutePage <> 1 and objRs.AbsolutePage <> 2 then %>
<a href=paging.asp?Page=<%=objRs.AbsolutePage - 1%>>Previous</a>|
<%end if%>
<%if objRs.AbsolutePage <> objRs.PageCount and objRs.AbsolutePage <> objRs.PageCount - 1 then %>
<a href=paging.asp?Page=<%=objRs.AbsolutePage + 1%>>Next</a>|
<%end if%>
<%if objRs.AbsolutePage <> objRs.PageCount then%>
<a href=paging.asp?Page=<%=objRs.PageCount %>>last</a>|
<%end if%>
</td>
</tr>
</table>
</form>
</BODY>
</HTML>
---------------------------------------------
Thanks
Suresh
Recordset Pagination (ASP Access)
