Generating a Random Number in ASP

Here's a function to generate a Random Number. Simply feed it the top end value, so to generate a random number from 1 - 10, you call it with:

RandomNumber(10)

Function RandomNumber(intHighestNumber)
     Randomize
     RandomNumber = Round(Rnd * intHighestNumber) + 1
End Function

What is you want to generate a random number between two other numbers, like between 20 and 40?

RandomNumber(20,40)

Function RandomNumber(LowNumber, HighNumber)
     RANDOMIZE
     RandomNumber = Round((HighNumber - LowNumber + 1) * Rnd + LowNumber)
End Function