Segue função para gerar conjunto de caracteres aleatórios, quem quiser chamar de senha fique a vontade =P

<%

Function aleatorio(q)

'Função para gerar conjunto de caracteres aleatórios
dim a, i, s
for i = 48 to 90 : if i < 58 or i > 64 then : a = a & chr(i) & " " : end if : next : a = split(lcase(a) & a)
randomize
for i = 1 to q : s = s & a( int(ubound(a) * rnd) ) : next
aleatorio = s

end function

%>

Chamando a função
<%
Response.write aleatorio(6)
%>

abs