long = MkRnd(length)
Example Usage:
ASP Source Code:Create a random 10 digit number. <% = MkRnd( 10 ) %>
<% Private Function MkRnd(byVal length) Dim i, tmp For i = 1 to CInt( length ) Randomize tmp = tmp & CInt(Rnd*9) Next MkRnd = StrReverse( tmp ) End Function %>