Não repetir resultados ao randomizar

Caros amigos,

estou usando este código para randomizar resultados. O código mostra 8 banners mas as vezes repete um deles. Fica estranho 2 banners iguais na mesma tela.

Existe alguma maneira para não repetir os banners uma vez que é randomico?

dim rsb2, sqlb2, count_meio, pagesize_meio

count_meio = 0
pagesize_meio = 8

Set rsb2 = Server.CreateObject("ADODB.Recordset")

sqlb2 = "SELECT banners_vezes.id_banner, banners.id,anunciante_id,vezes_apareceu,arquivo FROM banners_vezes,banners WHERE tipo = 0 and banners_vezes.id_banner = banners.id ORDER BY RAND()"

rsb2.Open sqlb2, conn_p, 3

if rsb2.eof and rsb2.bof then
response.write ""
else
do while not rsb2.eof and count_meio < pagesize_meio
count_meio = count_meio + 1

conn_p.execute("UPDATE banners SET vezes_apareceu = vezes_apareceu + 1 WHERE id = "& rsb2("id") &"")
%>

 <li class="cbp-item cbp-l-grid-masonry-height0">
 <div class="cbp-caption-defaultWrap"><img src="<%= strEndereco_http %>arquivos/anunciantes/<%= rsb2("arquivo") %>" alt="" /></div>
 </li>

<%
rsb2.movenext
loop
end if

set rsb2 = nothing

Obrigado pela atenção de todos