<%
Function CreatePassword(ByVal lngCnt)
Const strPassChars = "abcdefghijklmnopqrstuvwxyzABCDEFGHJKLMNOPQRSTUVWXYZ23456789"
Randomize
CreatePassword = ""
Do while lngCnt > 0
CreatePassword = CreatePassword & Mid(strPassChars, Int(Rnd() * Len(strPassChars)) + 1, 1)
lngCnt = lngCnt - 1
Loop
End Function
%>