<% @Language = VBScript%> <% Option Explicit%>
limitrows from database b> font> Contacts within the Authors Database: 'Map Authors Database to Physical Path Curdir = Server.mappath ("Authors.mdb") 'Create ADO Connection Component to connect' with sample database Set oConn = Server.CreateObject ( "ADODB.Connection") oConn.Open "Provider = Microsoft.Jet.OLEDB.3.51; Data Source =" & curDir 'Create ADO Recordset Component Set oRs = Server.CreateObject ( "ADODB.Recordset") Set 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%> P>
p>
<% Dim oConn Dim oRs Dim curDir Dim Index