•<TABLE BORDER="1">
•<% Do While Not
rstSimple.EOF %>
• <TR> <TD><%=
rstSimple.Fields("id").Value %></TD>
• <TD><%=
rstSimple.Fields("text_field").Value %></TD>
• <TD><%=
rstSimple.Fields("integer_field").Value %></TD>
•<TD><%=
rstSimple.Fields("date_time_field").Value %></TD> </TR>
• <% rstSimple.MoveNext Loop %>
• </TABLE>
•<% ' Close our recordset
and connection and dispose of the objects
•rstSimple.Close
• Set rstSimple =
Nothing
• cnnSimple.Close
•Set cnnSimple =
Nothing
• ' That's all folks! %>
•