asp random string function

This method is good. It can generate a random string of lowercase characters and numbers. You can add some special characters and some uppercase letters, etc. '************************************

'asp calculates random numbers

'************************************

Function randomStr(intLength)

Dim strSeed, seedLength, pos, Str, i

strSeed = abcdefghijklmnopqrstuvwxyz1234567890

seedLength = Len(strSeed)

Str =

Randomize

For i = 1 To intLength

Str = Str + Mid(strSeed, Int(seedLength * Rnd) + 1, 1)

Next

randomStr = Str

End Function