Hello Experts!!
This is a Loop of code displaying records from a database. I need a Paging script for displaying 10 records per page. I also need a page count [page x of x] at left bottom and Navigation buttons [FIRST|PREVIOUS|NEXT|LAST]
which are according to the records displayed !! I hope u understand this !!
<% If FlgEOF = 0 then 'RECORDS ARE PENDING
RS.MoveFirst
Do while not RS.EOF
%>
<TR>
<TH WIDTH="15%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
Name
</TH>
<TD WIDTH="5%" BGCOLOR="#EFEFEF" ALIGN="CENTER" VALIGN="MIDDLE">
:
</TD>
<TD WIDTH="80%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
<%=RS.Fields(3)%>
</TD>
</TR>
<TR>
<TH WIDTH="15%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
Email
</TH>
<TD WIDTH="5%" BGCOLOR="#EFEFEF" ALIGN="CENTER" VALIGN="MIDDLE">
:
</TD>
<TD WIDTH="80%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
<%=RS.Fields(4)%>
</TD>
</TR>
<TR>
<TH WIDTH="15%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
Description
</TH>
<TD WIDTH="5%" BGCOLOR="#EFEFEF" ALIGN="CENTER" VALIGN="MIDDLE">
:
</TD>
<TD WIDTH="80%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
<%=RS.Fields(2)%>
</TD>
</TR>
<TR>
<TH WIDTH="15%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
Date | Time
</TH>
<TD WIDTH="5%" BGCOLOR="#EFEFEF" ALIGN="CENTER" VALIGN="MIDDLE">
:
</TD>
<TD WIDTH="80%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
<%=RS.Fields(5)%>
</TD>
</TR>
<TR>
<TH WIDTH="15%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
Source
</TH>
<TD WIDTH="5%" BGCOLOR="#EFEFEF" ALIGN="CENTER" VALIGN="MIDDLE">
:
</TD>
<TD WIDTH="80%" BGCOLOR="#EFEFEF" ALIGN="LEFT" VALIGN="MIDDLE">
</TD>
</TR>
<TR>
<TD COLSPAN="3" WIDTH="100%" ALIGN="CENTER" VALIGN="TOP" BGCOLOR="#EFEFEF">
<TEXTAREA COLS="70" ROWS="7"><%=RS.Fields(1)%>
</TEXTAREA
>
</TD>
</TR>
<TR>
<TD COLSPAN="3" WIDTH="100%" ALIGN="RIGHT" VALIGN="TOP" BGCOLOR="#EFEFEF">
<INPUT TYPE="RADIO" NAME="<%=RS.Fields(0)%>_ac
tive" VALUE="1"> Add
<INPUT TYPE="RADIO" NAME="<%=RS.Fields(0)%>_ac
tive" VALUE="2"> Delete
</TD>
</TR>
<TR>
<TD COLSPAN="3" WIDTH="100%" ALIGN="RIGHT" VALIGN="TOP">
</TD>
</TR>
<%
RS.MoveNext
Loop
%>
Start Free Trial