<%

response.write makePassword(16)

function makePassword(byVal maxLen)

Dim strNewPass

Dim whatsNext, upper, lower, intCounter

Randomize

For intCounter = 1 To maxLen

whatsNext = Int((1 - 0 + 1) * Rnd + 0)

If whatsNext = 0 Then

'character

upper = 90

lower = 65

Else

upper = 57

lower = 48

End If

strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))

Next

makePassword = strNewPass

end function

%>