'realizas tu coneccion a la Bd y haces la busqueda una sola vez aqui.
'depende de que bd utilices y que quieres buscar.
'creas tu tabla
response.write("<table>")
Response.Write("<tr>")
Response.Write("<td>nombre de celda 1</td>")
Response.Write("<td>nombre de celda 2</td>")
Response.Write("<td>nombre de celda 3</td>")
Response.Write("</tr>")
while (not objRS.Eof)
Response.Write("<tr>")
Response.Write("<td>"&objRS("campo1")&"</td>")
Response.Write("<td>"&objRS("campo2")&"</td>")
Response.Write("<td>"&objRS("campo3")&"</td>")
Response.Write("</tr>")
objRS.MoveNext
wend
response.write("</table>")
'obviamente cierras la coneccion a la Bd.
'Por probar puedes utilizar un for para entiendas el funcionamiento de esto, asi:
response.write("<table>")
'si quieres poner titulo de celdas
for i=1 to 10
Response.Write("<tr>")
Response.Write("<td>una celda "&i&"</td>")
Response.Write("<td>dos celda "&i&"</td>")
Response.Write("<td>tres celda "&i&"</td>")
Response.Write("</tr>")
next
response.write("</table>")