<%
Function getPassword()

Dim password
Dim chars
Dim i
Dim arr
Dim rand

chars = "a b c d e f g h i j k l m n o p q r s t u v w y z 0 1 2 3 4 5 6 7 8 9"

arr = Split(chars," ")

For i = 1 To 6

Randomize

rand = int(rnd*34)+1

password = password & arr(rand)

Next

getPassword = password

End Function

Response.Write getPassword()
%>