Har en funktion för att slumpa ut poster, innan denna funktin så kör jag samma sak där my_num får ett nummer...
Men sen här nedan så ska jag tilldela my_num2 ett värde som inte ska vara samma som my_num...men när den plockar samma värde så verkar den stanna i loopen...
Vad kan vara fel??
Dim my_num2,max2,min2
max2=x
min2=1
[B]do while not my_num2 = my_num
Randomize
my_num2=int((max2-min2+1)*rnd+min2)
loop[/B]
sql7 = "select top 1 ID, raknare, url, bildNamn, stor_liten From tbl_kampanj Where aktiv = '1' And stor_liten = 'liten' And raknare = "&my_num2&" And raknare NOT LIKE "&my_num&" ;"
set rs7 = conn.execute(sql7)