random number

[dave]

Hello all,
I have written one function to generate random number.
but every time I execute the function it repeats same
number many times even though I'm using Randomize.

function myrandnum()
upperbound = 32767
lowerbound = -32768
Randomize
myrandnum = Int((upperbound - lowerbound + 1) *
Rnd + lowerbound)
end function

its not as good as effective as

set objTools=server.CreateObject("MSWC.Tools")
objTools.Random()

Any help would be appreciated...
Rgds
dave

[Bob Milutinovic]

G'day, Dave...

A wise man once said, "the generation of random numbers is too important
to be left to chance."

Replace the generic "Randomize" statement with;

Randomize Timer

- Bob.
"dave" <an*******@discussions.microsoft.com> wrote in message
news:3c****************************@phx.gbl...

Hello all,
I have written one function to generate random number.
but every time I execute the function it repeats same
number many times even though I'm using Randomize.

function myrandnum()
upperbound = 32767
lowerbound = -32768
Randomize
myrandnum = Int((upperbound - lowerbound + 1) *
Rnd + lowerbound)
end function

its not as good as effective as

set objTools=server.CreateObject("MSWC.Tools")
objTools.Random()

Any help would be appreciated...
Rgds
dave

Or, use the inbult NewId() function inside sql server which does this
automatically.
"Bob Milutinovic" <so*****@somewhere.on.the.inter.net> wrote in message
news:ea**************@TK2MSFTNGP09.phx.gbl...

G'day, Dave...

A wise man once said, "the generation of random numbers is too important to be left to chance."

Replace the generic "Randomize" statement with;

Randomize Timer

- Bob.
"dave" <an*******@discussions.microsoft.com> wrote in message
news:3c****************************@phx.gbl...

Hello all,
I have written one function to generate random number.
but every time I execute the function it repeats same
number many times even though I'm using Randomize.

function myrandnum()
upperbound = 32767
lowerbound = -32768
Randomize
myrandnum = Int((upperbound - lowerbound + 1) *
Rnd + lowerbound)
end function

its not as good as effective as

set objTools=server.CreateObject("MSWC.Tools")
objTools.Random()

Any help would be appreciated...
Rgds
dave

[dave]

Thanx Bob..It worked good

-----Original Message-----
G'day, Dave...

A wise man once said, "the generation of random numbers is too importantto be left to chance."

Replace the generic "Randomize" statement with;

Randomize Timer

- Bob.
"dave" <an*******@discussions.microsoft.com> wrote in messagenews:3c****************************@phx.gbl...

Hello all,
I have written one function to generate random number.
but every time I execute the function it repeats same
number many times even though I'm using Randomize.

function myrandnum()
upperbound = 32767
lowerbound = -32768
Randomize
myrandnum = Int((upperbound - lowerbound + 1) *
Rnd + lowerbound)
end function

its not as good as effective as

set objTools=server.CreateObject("MSWC.Tools")
objTools.Random()

Any help would be appreciated...
Rgds
dave

.