ASP Function not returning what I want

[Drew]

I am trying to build a page to generate some random data for a database that
I am working on... I thought this would be simple, but it has proven to be
more difficult... I am trying to create some functions to build a random
date. It keeps returning a string like, "9172006//" instead of "9/17/2006".
What's making this do that?

Function RandomNumber(min,max)
dim rand
rand = Int((max-min+1)*Rnd+min)
Response.Write(rand)
End Function

Function RandomDate()
dim M
dim D
dim Y
dim randdate
M = RandomNumber(1,12)
If M <2 OR M <4 OR M <6 OR M <9 OR M <11 Then
D = RandomNumber(1,31)
ElseIf M <2 Then
D = RandomNumber(1,30)
ElseIf M = 2 Then
D = RandomNumber(1,28)
End If
Y = RandomNumber(2005,2007)
randdate = M & "/" & D & "/" & Y
Response.Write(randdate)
End Function

For i = 1 to 500
varRandomDate = RandomDate()
End If

Thanks!
Drew

[Bob Barrows [MVP]]

Drew wrote:

I am trying to build a page to generate some random data for a
database that I am working on... I thought this would be simple, but
it has proven to be more difficult... I am trying to create some
functions to build a random date. It keeps returning a string like,
"9172006//" instead of "9/17/2006". What's making this do that?

Your RandomNumber function isn't returning anything.

Function RandomNumber(min,max)
dim rand
rand = Int((max-min+1)*Rnd+min)
Response.Write(rand)

RandomNumber = rand

End Function

Neither is the RandomDate function. Same problem
Writing to Response does not cause the value to be returned to the calling
procedure.
--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

[Evertjan.]

Bob Barrows [MVP] wrote on 18 jul 2007 in
microsoft.public.inetserver.asp.general:

Drew wrote:

>I am trying to build a page to generate some random data for a
database that I am working on... I thought this would be simple, but
it has proven to be more difficult... I am trying to create some
functions to build a random date. It keeps returning a string like,
"9172006//" instead of "9/17/2006". What's making this do that?

Your RandomNumber function isn't returning anything.

>Function RandomNumber(min,max)
dim rand
rand = Int((max-min+1)*Rnd+min)
Response.Write(rand)

RandomNumber = rand

>End Function

Neither is the RandomDate function. Same problem
Writing to Response does not cause the value to be returned to the
calling procedure.

Randomize

Initializes the random-number generator.

Randomize uses number to initialize the Rnd function's random-number
generator, giving it a new seed value. If you omit number, the value
returned by the system timer is used as the new seed value.

If Randomize is not used, the Rnd function (with no arguments) uses the
same number as a seed the first time it is called, and thereafter uses
the last generated number as a seed value.


--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)