Preserved Topic: ASP - getting random numbers (Page 1 of 1)

In my color randomizer that I mentioned in another thread (http://www.webwhirlers.com/color/spinwheel.asp), I use ASP to randomize colors.
In the code I use a database to do the conversion from Dec to Hex.

I now wanted to make the page faster, and do the randomizing and conversion in the same page. However, I discover that the RND is not very random at all.

<%
Function R(max)
Randomize
R = Int(Rnd * max)
End Function %>

<%
A1 = R(255)
B1 = R(255)
C1 = R(255)
%>

<% = A1 %><br>
<% = B1 %><br>
<% = C1 %>

In the previous code, the A1 seems to be more or less random, but the relations between the different values is almost always the same - B1 is about 21 less than A1 and C1 is 56 less than B1.
How do I do to get each number random, and not dependent on each other?

My guess is that it worked better before when I had the database connection because that causes some delays, and the random number is based on the computer clock?

Any ideas?

Thanks

Perhaps if you only said "Randomize" once instead of each time? That might reset it or something.

you're quite right - the call for randomize is

randomize [number]

if you leave out the number, the the system timer is used as the seed value for the rnd function
you might get better results by randomizing with the system time coupled with a further seed value either randomly generated or of your own choosing for each colour

hth
I:.

Thank you Slime!
Moving the "randomize" out of the function and to the beginning of the file did seem to do the trick. I guess it is still not completely random, but it seems to be random enough for what I am looking for.

Someoneinverse - that's what I thought. I am not sure I fully understand how to do what you suggest though. You think this would make it better, and more truly random?

Thanks

You could try making the number in there somewhat random

like taking the IP and doing some funky things

myNumArray = split(Request.ServerVariables("REMOTE_ADDR"), ".")

num = 1
for x = 1 to ubound(myNumArray)
num = num * myNumArray(x)
next

randomize(num)

I believe every time you get a random number, it uses that random number as the seed for the next one. So calling Randomize more than once probably doesn't do you any good.

I'm not certain though.