<%@
LANGUAGE = VBScript %>
<% Option Explicit %>
<!--METADATA TYPE="typelib"
uuid="00000205-0000-0010-8000-00AA006D2EA4"
-->
<HTML>
<HEAD>
<TITLE>Limitar linhas da Base de dados</TITLE>
</HEAD>
<BODY BGCOLOR="White"
topmargin="10" leftmargin="10">
<!-- Display Header -->
<font size="4"
face="Arial, Helvetica">
<b>Limitar linhas da Base de dados</b></font><br>
<hr size="1" color="#000000">
Contactos com a Base
de dados Autores:<br><br>
<%
Dim oConn
Dim oRs
Dim curDir
Dim Index
' Caminho da Base de dados
curDir = Server.MapPath("authors.mdb")
' Criar ADO Connection Component para conectar
' com a Base de dados
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & curDir
' Cria um ADO Recordset Component
Set oRs = Server.CreateObject("ADODB.Recordset")
Set oRs.ActiveConnection = oConn
' Coloca o comprimento do página
do Recordset
' para mostrar somente 10 linhas
oRs.PageSize = 10
' Obtem o recordset
oRs.Source = "SELECT * FROM authors"
oRs.CursorType = adOpenStatic
' Abre Recordset
oRs.Open
%>
<TABLE border = 1>
<%
Dim RecordCount
RecordCount = 0
Do while ((Not oRs.eof) And (RecordCount
< oRs.PageSize)) %>
<tr>
<% For Index=0 to (oRs.fields.count-1)
%>
<TD VAlign=top><% = oRs(Index)%></TD>
<% Next %>
</tr>
<%
RecordCount = RecordCount + 1
oRs.MoveNext
Loop
%>
</TABLE>
<%
oRs.close
oConn.close
%>
</BODY>
</HTML>
|
Photoshop
