la cosa sería mas o menos.
set oCon= Server.CreateObject("Adodb.Connection")
Set oRs=Server.CreateObject("Adodb.Recordset")
SentenciaSQL = "Select * from Tabla Where Campo=Condicion"
ors.Open SentenciaSQL, oCon
while not ors.eof
Response.write ors.Fields("Campo")
Response.write "<br>"
oRs.Movenext
wend
Si lo del recordset se te pone complicado, aca tenes un pequeño tutorial.
http://www.aspfacil.com/articulos/040401.asp
Saludos.