Puedes cambiar tu consulta sql para sacar las DISTINCT Ventas:
Ejemplo: "select DISTINCT Ventas from TuTabla"
O tambien (si no puedes cambiar la consulta) controlar con una Variable si se muestra o no el registro.
'Inicializamos venta
Venta = ""
Do While not RS.eof
if RS("Venta") <> Venta then
'pintamos el registro
Response.write RS("venta") & "<br>"
end if
Venta=RS("venta") ' actualizamos la variable
RS.movenext
Loop
Un saludo
Txarly
