<%
sqlQuery =  "select field1, field2, field3, field4 from myTable where ...." 
set rs = Server.CreateObject( "ADODB.Recordset" )
rs.Open sqlQuery, conn
%>

...
...
...

<table>
<tr>
   <th>Field1</th>
   <th>Field2</th>
   <th>Field3</th>
   <th>Field4</th>
</tr>

<%
do while not rs.EOF
      response.write  "<tr><td>" &rs.Fields.Item( 0 )& "</td><td>" &rs.Fields.Item( 1 )& "</td><td>" &rs.Fields.Item( 2 )& "</td><td>" &rs.Fields.Item( 3 )& "</td><td>" 

      rs.MoveNext
loop

set rs = nothing
%>

</table>

...
...