<html>
<head>
<title>PHP example</title>
</head>
<body>
<?php
if (isset($_GET['pageno'])) $CurPage = $_GET['pageno']; else $CurPage = 1;
$conn = new COM('ADODB.Connection');
$conn->Open("Provider=Microsoft.Jet.OLEDB.4.0; Data
Source=".getcwd()."\Northwind.mdb");
$sqlQ = 'SELECT ProductName, QuantityPerUnit, UnitPrice FROM Products ORDER BY
ProductName';
$rds = new COM('ADODB.Recordset');
$rds->Open($sqlQ,$conn,1);
$rowcount = 0;
$TotalRec=$rds->RecordCount;
$RecPerPage=10;
$MaxPage=(int) ($TotalRec/$RecPerPage)+1;
if($CurPage<1) $CurPage=1;
if($CurPage>$MaxPage) $Curpage=$MaxPage;
$CurRec=($CurPage-1)*$RecPerPage;
?>
<table border="1" cellpadding="3" cellspacing="0">
<tr>
<th>Product Name</th>
<th>Quantity Per Unit</th>
<th>Unit Price</th>
</tr>
<?php
$RowCnt=0;
$rds->Move($CurRec);
while (!$rds->EOF && $RowCnt<10) { ?>
<tr>
<td>
<?php echo $rds->Fields['ProductName']->Value ?></td>
<td>
<?php echo $rds->Fields['QuantityPerUnit']->Value ?></td>
<td>
<?php echo $rds->Fields['UnitPrice']->Value ?></td>
</tr>
<?php $rds->MoveNext();$RowCnt++; ?>
<?php } ?>
</table>
<?php
if($CurPage!=1){
echo "<a href='nwind.php?pageno=" . ($CurPage-1) . "'>Previous page</a> ";
}
if($CurPage!=$MaxPage){
echo " <a href='nwind.php?pageno=" . ($CurPage+1) . "'>Next page</a>";
}
$rds->Close();
$conn->Close();
$rds = null;
$conn = null;
?>
</body>
</html>
<html>
<head>
<title>ASP example</title>
</head>
<body>
<%
Dim adoCon
Dim rsProducts
Dim strSQL, TotalRec, RecPerPage
Dim MaxPage,CurPage,CurRec,RowCnt
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" &
Server.MapPath("northwind.mdb")
Set rsProducts = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT ProductName, QuantityPerUnit, UnitPrice FROM Products ORDER BY
ProductName"
rsProducts.Open strSQL, adoCon, 1
TotalRec=rsProducts.RecordCount
RecPerPage=10
MaxPage=int(TotalRec/RecPerpage)+1
CurPage=CInt(Request.QueryString("page"))
if CurPage<1 then CurPage=1
if CurPage>MaxPage then Curpage=MaxPage
CurRec=(CurPage-1)*RecPerPage
%>
<table border="1" cellpadding="3" cellspacing="0">
<tr>
<th>Product Name</th>
<th>Quantity Per Unit</th>
<th>Unit Price</th>
</tr>
<%
RowCnt=0
rsProducts.Move CurRec
Do While not rsProducts.EOF and RowCnt<10
%>
<tr>
<td>
<%Response.Write (rsProducts("ProductName"))%></td>
<td>
<%Response.Write (rsProducts("QuantityPerUnit"))%></td>
<td>
<%Response.Write (rsProducts("UnitPrice"))%></td>
</tr>
<%
rsProducts.MoveNext
RowCnt=RowCnt+1
Loop
%>
</table>
<%
if CurPage<>1 then
Response.Write ("<a href='nwind.asp?page=" & CurPage-1 & "'>Previous page</a> ")
end if
if CurPage<>MaxPage then
Response.Write (" <a href='nwind.asp?page=" & CurPage+1 & "'>Next page</a>")
end if
%>
</body>
</html>
<!--
[FormFields]
wb_basename=northwind.mdb
wb_rcdset=products
WB_Command=Q
WB_MaxRec=10
wb_order=ProductName
wb_ShowLogo=F
-->
<!--WB_BeginTemplate-->
<html>
<head>
<title>WhizBase example</title>
</head>
<body>
</p>
<table border="1" cellpadding="3" cellspacing="0">
<tr>
<th>Product Name</th>
<th>Quantity Per Unit</th>
<th>Unit Price</th>
</tr>
<!--WB_BeginDetail-->
<tr>
<td>
$wbf[ProductName]</td>
<td>
$wbf[QuantityPerUnit]</td>
<td>
$wbf[UnitPrice]</td>
</tr>
<!--WB_EndDetail-->
</table>
$wbprevpage[] $wbnextpage[]
</body>
</html>