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>
Copyright (c) 1998 - Alexandre Barreto