Falha com o aleatório

Ola, olha eu aqui de novo http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Seguinte estou com um outro probleminha, no meu BD cadastro um produto pra uma categoria, se o produto tem mais de uma categoria eu cadastro ele varias vezes cada vem em uma categoria porém por algum motivo na página inicial ele pega várias vezes o produto X e dpois um produto Y!

O código que sorteia isso é:

'Função para chamar os produtos aleatoreamente na vitime inicialset rs = abredb.execute("SELECT FROM produtos WHERE status <> 'ok';")if rs.eof or rs.bof thenrs.closeset rs = nothingset atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs = abredb.execute("SELECT FROM produtos WHERE status <> 'ok';")if rs.eof or rs.bof thenrs.closeset rs = nothingset atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs = abredb.execute("SELECT FROM produtos WHERE status <> 'ok';")end ifelseset atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs("idprod")&";")end ifset rs2 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&";")if rs2.eof or rs2.bof thenrs2.closeset rs2 = nothingset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs2 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&";")if rs2.eof or rs2.bof thenrs2.closeset rs2 = nothingset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs2 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&";")end ifelseset atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&";")end ifset rs3 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&";")if rs3.eof or rs3.bof thenrs3.closeset rs3 = nothingset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs3 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&";")if rs3.eof or rs3.bof thenrs3.closeset rs3 = nothingset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs3 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&";")end ifelseset atualizar3 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs3("idprod")&";")end ifset rs4 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&";")if rs4.eof or rs4.bof thenrs4.closeset rs4 = nothingset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs4 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&";")if rs4.eof or rs4.bof thenrs4.closeset rs4 = nothingset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs4 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> '"&rs("idprod")&"' and idprod <> '"&rs2("idprod")&"' and idprod <> '"&rs3("idprod")&"';")end ifelseset atualizar4 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs4("idprod")&";")end ifset rs5 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&";")if rs5.eof or rs5.bof thenrs5.closeset rs5 = nothingset atualizar5 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs5 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&";")if rs5.eof or rs5.bof thenrs5.closeset rs5 = nothingset atualizar5 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs5 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&";")end ifelseset atualizar5 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs5("idprod")&";")end ifset rs6 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&";")if rs6.eof or rs6.bof thenrs6.closeset rs6 = nothingset atualizar6 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs6 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs2("idprod")&" and idprod <> "&rs("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&";")if rs6.eof or rs6.bof thenrs6.closeset rs6 = nothingset atualizar6 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';")set rs6 = abredb.execute("SELECT FROM produtos WHERE status <> 'ok' and idprod <> "&rs2("idprod")&" and idprod <> "&rs("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&";")end ifelseset atualizar6 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs6("idprod")&";")end ifintProdID1 = rs("idprod")intProdID2 = rs2("idprod")intProdID3 = rs3("idprod")intProdID4 = rs4("idprod")intProdID5 = rs5("idprod")intProdID6 = rs6("idprod")Que eu faço pra ele pegar produtos variados da tabela Acess? pois existem muitos produtos então repetirá muuuuuito raramente