I am using ASP and Ms Access. To view the details from table. I have added more than 25 records. so i want to separate the pagewise. First page i want display the 10 record. Next page next 10. plz help me for this coding.
-
-
Hello silvia21,
Here is an example that you can use. Let me know if you need a copy of an example database that this will work with. The page is called Example.asp
Hope this helps~
Example.asp
[code=asp]
<%
NumberOfRecords PerPage = 3
Function GetPageNumber()
Select Case Request("xActio n")
Case "Beginning"
GetPageNumber = 1
Case "Previous"
GetPageNumber = Request("intpag e") - 1
If (GetPageNumber < 1) Then
GetPageNumber = 1
End If
Case "Next"
GetPageNumber = Request("intpag e") + 1
If (GetPageNumber > intPageCount) Then
GetPageNumber = IntPageCount
End If
Case "Last"
GetPageNumber = intPageCount
Case Else
GetPageNumber = 1
End Select
End Function
SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"
Set Conn = Server.CreateOb ject("ADODB.Con nection")
Conn.Open "DRIVER={Micros oft Access Driver (*.mdb)}; DBQ=" & Server.MapPath( "Database/Database.mdb")
Set rsList = Server.CreateOb ject("ADODB.Rec ordset")
rsList.CursorTy pe = 1
rsList.LockType = 3
rsList.Open SQL, Conn
rsList.PageSize = NumberOfRecords PerPage
intPageCount = rsList.PageCoun t
intpage = GetPageNumber()
rsList.Absolute Page = intPage
%>
<html>
<head>
<title>Exampl e</title>
<script language="JavaS cript">
function MoveTopage(xAct ion)
{
document.PageMo ve.xAction.valu e=xAction;
document.PageMo ve.submit();
}
</script >
</head>
<body>
<table width="600">
<tr>
<td>
<table width="100%">
<tr>
<td>Field One</td>
<td>Field Two</td>
<td>Field Three</td>
</tr>
<%For intRecord = 1 To rsList.PageSize %>
<tr>
<td><%=rsList(" FieldOne").valu e%></td>
<td><%=rsList(" FieldTwo").valu e%></td>
<td><%=rsList(" FieldThree").va lue%></td>
</tr>
<%response.flus h%>
<%rsList.MoveNe xt%>
<%If rsList.EOF Then Exit For%>
<%Next%>
</table>
</td>
</tr>
<tr>
<td align="center">
<input type="button" value=" << " onclick="MoveTo page('Beginning ');">
<input type="button" value=" < " onclick="MoveTo page('Previous' );">
<input type="button" value=" > " onclick="MoveTo page('Next');">
<input type="button" value=" >> " onclick="MoveTo page('Last');">
<br>Page: <%=Intpage & " of " & intpagecount%>
</td>
</tr>
</table>
<form name="PageMove" action="Example .asp" method="post">
<input type="hidden" name="xAction" value="">
<input type="hidden" name="intpage" value="<%=intpa ge%>">
</form>
</body>
</html>
[/code]
Comment