LIMITROWS_JSCRIPT.ASP

<%@ LANGUAGE = JScript  %> 

<!--#include file="adojavas.inc"-->

<HTML>
<HEAD>
<TITLE>LimitRows From Database</TITLE>
</HEAD>

<BODY BGCOLOR="White" topmargin="10" leftmargin="10">


<!-- Display Header -->

<font size="4" face="Arial, Helvetica">
<b>LimitRows From Database</b></font><br>

<hr size="1" color="#000000">

Contacts within the Authors Database:<br><br>

<%
var oConn;
var oRs;
var curDir;
var Index;


// Map authors database to physical path

curDir = Server.MapPath("\\iissamples\\sdk\\asp\\database\\authors.mdb");


// Create ADO Connection Component to connect
// with sample database

oConn = Server.CreateObject("ADODB.Connection");
oConn.Open("DBQ="+curDir+";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;");


// Create ADO Recordset Component

oRs = Server.CreateObject("ADODB.Recordset");
oRs.ActiveConnection = oConn;


// Set Recordset PageSize so that it only holds 10 rows

oRs.PageSize = 10;


// Get recordset

oRs.Source = "SELECT * FROM authors";
oRs.CursorType = adOpenStatic;


// Open Recordset

oRs.Open();
%>


<TABLE border = 1>
<%
var RecordCount;
RecordCount = 0;

while ((!oRs.eof) && (RecordCount < oRs.PageSize)) { %>

<tr>
<% for(Index=0; Index < oRs.fields.count; Index++) { %>
<TD VAlign=top><% = oRs(Index)%></TD>
<% } %>
</tr>

<%
RecordCount = RecordCount + 1;
oRs.MoveNext();
}
%>

</TABLE>


<%
oRs.Close();
oConn.Close();
%>

</BODY>
</HTML>