Apri il recordset con la query "SELECT * FROM tabella"

poi fai il ciclo

While Not RS.EOF


Response.Write(RS("prezzo") & "
" & VbCrLf)

RS.MoveNext
Wend