str="select * from student"
set rs=con.Execute (str)
%>
<table border=1 width=90%>
<tr bgcolor=yellow>
<%
for i=0 to rs.fields.count-1
%>
<td>
<%
Response.Write rs.fields(i).name
%>
</td>
<% next %>
</tr>
<% do while not rs.eof %>
<tr>
<%
for i=0 to rs.fields.count-1
%>
<td>
<%
Response.Write rs.fields(i).value&" "
%>
</td>
<% next %>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
con.Close
set con=nothing
%>