Tabela com consulta SQL

Esta página demonstra a utilização de tabela construída a partir de uma consulta SQL.

1    <TITLE>dbtable.asp</TITLE>
2    <body bgcolor="#FFFFFF">
3    <%
4    ' Programa ASP que se comunica com um database
5    set conntemp=server.createobject("adodb.connection")
6    ' DSN, usuário e senha
7    conntemp.open "Student","student","magic"
8    set rstemp=conntemp.execute("select * from authors where AU_ID<100")
9    qtde_campos=rstemp.fields.count -1
10   %>
11   <table border=1>
12   <tr>
13   <% 'Coloca o cabeçalho de cada coluna com o nome do campo
14   for i=0 to qtde_campos %>
15    <td><b><%=rstemp(i).name %></B></TD>
16   <% next %>
17   </tr>
18   <% ' Preenche a tabela com os registros
19   do while not rstemp.eof %>
20   <tr>
21   <% for i = 0 to qtde_campos%>
22    <td valign=top><% = rstemp.fields(i).value %></td>
23   <% next %>
24   </tr>
25   <% rstemp.movenext
26   loop
27   conntemp.close%>
28   </table>
29   </BODY>
30   </HTML>

Voltar

Copyright (c) 1998 - Alexandre Barreto