tekboy
01-23-2006, 03:56 PM
How to create a database paging with the code i have.
im trying to do database record paging, im not quite sure how i had tried couple of open source code but cant not get it to work with my code, thanks for helping
listing.asp
<%
'~~~~~~~~~~~~~~~~Access ADO database connection
Dim objD, objR
Set objD = Server.CreateObject("ADODB.Connection")
objD.ConnectionTimeout = 15
objD.CommandTimeout = 30
objD.provider="Microsoft.Jet.OLEDB.4.0"
objD.open(server.mappath("database.mdb"))
Set objR = Server.CreateObject("ADODB.Recordset")
objR.Open "NotifyMapping", objD, 0, 1
'~~~~~~~~~~~Loop through the records and place them under the headers
%>
<!--Html Table Header-->
<H2>Record Listing</h2>
<a href="addcontact.asp">add new</a>
<Table bgcolor="#006699">
<TR>
<TD width="100" align="left"><font color="#FFFFFF"><b>ID</b></font></td>
<TD width="100" align="left"><font color="#FFFFFF"><b>MktID</b></font></td>
<TD width="200" align="left"><font color="#FFFFFF"><b>MktMgr</b></font></td>
<TD width="200" align="left"><font color="#FFFFFF"><b>MktDesc</b></font></td>
<TD width="200" align="left"><font color="#FFFFFF"><b>MktMgrEmail</b></font></td>
<TD width="100" align="left"><font color="#FFFFFF"><b>Edit</b></font></td>
<TD width="100" align="left"><font color="#FFFFFF"><b>Delete</b></font></td>
</tr>
</Table>
<%
do while not objR.EOF
%>
<Table>
<TR>
<TD width="100" align="left"><%Response.Write objR("ID")%></td>
<TD width="100" align="left"><%Response.Write objR("MktID")%></td>
<TD width="200" align="left"><%Response.Write objR("MktMgr")%></td>
<TD width="200" align="left"><%Response.Write objR("MktDesc")%></td>
<TD width="200" align="left"><%Response.Write objR("MktMgrEmail")%></td>
<TD width="100" align="left"><a href="db_edit_contact.asp?ID=<%Response.Write objR("ID")%>">Edit</a></td>
<TD width="100" align="left"><a href="db_del_contact.asp?ID=<%Response.Write objR("ID")%>">Delete</a></td>
</TR>
</Table>
<%
objR.MoveNext ' Movenext
loop
%>
im trying to do database record paging, im not quite sure how i had tried couple of open source code but cant not get it to work with my code, thanks for helping
listing.asp
<%
'~~~~~~~~~~~~~~~~Access ADO database connection
Dim objD, objR
Set objD = Server.CreateObject("ADODB.Connection")
objD.ConnectionTimeout = 15
objD.CommandTimeout = 30
objD.provider="Microsoft.Jet.OLEDB.4.0"
objD.open(server.mappath("database.mdb"))
Set objR = Server.CreateObject("ADODB.Recordset")
objR.Open "NotifyMapping", objD, 0, 1
'~~~~~~~~~~~Loop through the records and place them under the headers
%>
<!--Html Table Header-->
<H2>Record Listing</h2>
<a href="addcontact.asp">add new</a>
<Table bgcolor="#006699">
<TR>
<TD width="100" align="left"><font color="#FFFFFF"><b>ID</b></font></td>
<TD width="100" align="left"><font color="#FFFFFF"><b>MktID</b></font></td>
<TD width="200" align="left"><font color="#FFFFFF"><b>MktMgr</b></font></td>
<TD width="200" align="left"><font color="#FFFFFF"><b>MktDesc</b></font></td>
<TD width="200" align="left"><font color="#FFFFFF"><b>MktMgrEmail</b></font></td>
<TD width="100" align="left"><font color="#FFFFFF"><b>Edit</b></font></td>
<TD width="100" align="left"><font color="#FFFFFF"><b>Delete</b></font></td>
</tr>
</Table>
<%
do while not objR.EOF
%>
<Table>
<TR>
<TD width="100" align="left"><%Response.Write objR("ID")%></td>
<TD width="100" align="left"><%Response.Write objR("MktID")%></td>
<TD width="200" align="left"><%Response.Write objR("MktMgr")%></td>
<TD width="200" align="left"><%Response.Write objR("MktDesc")%></td>
<TD width="200" align="left"><%Response.Write objR("MktMgrEmail")%></td>
<TD width="100" align="left"><a href="db_edit_contact.asp?ID=<%Response.Write objR("ID")%>">Edit</a></td>
<TD width="100" align="left"><a href="db_del_contact.asp?ID=<%Response.Write objR("ID")%>">Delete</a></td>
</TR>
</Table>
<%
objR.MoveNext ' Movenext
loop
%>