ASP-generated random code function with arbitrary English + digit digit length-application tips

<%
'******************************
' Function: Generator (Length)
' Parameters: Length, number of arbitrary lengths, random code digits
' Author: Arisisi
' Date: 2007/7/15
' Description: Generate random code function with arbitrary English + digit digit length
' Example: Generator (80)
'******************************
Function Generator (Length)
Dim I, TempS
TempS = "abcdefghijklmnopqrstuvwxyz1234567890"
Generator = ""
If IsNumeric (Length) = False Then
Exit Function
End If
For i = 1 to Length
Randomize
Generator = generator & Mid (Temps,int (Len (TempS) * Rnd) + 1), 1
Next
End Function
%>