Usernamegenerator

Jag står i begrepp att lämmna ut ett antal användarnamn och lösenord till ett antall personer.
När det gäller lösenord, så har jag en generator, men när det gäller användarnamn så tänkte jag så här:

Personen kommer ifrån en förening(annars har han inte tillträde).
Då har vi två variabler, dels föreningen och dels namnet.

sForening=förening
sNamn=namn
sAnvandarnamn=sForening +sNamn

I detta har jag då fåt en ganska så unik kombination av bokstäver.

Nu ville jag plocka ut dessa bokstäver, en efter en, och nu blir jag mera osäker.

Dim i,arr
For i =1 TO LEN(sAnvandarnamn)
arr=mid(sAnvandarnamn,i,1)
Next

Här borde jag ju fått en array som består av en massa bokstäver.
Nu skulle jag vilja slumpa ut ifrån denna array, och ha bara sex tecken.
Hur gör jag då?(Jag känner till randomize, men inte hur jag kopplar ihop den med arrayen).
Känns denna uppbyggnad vetig?

:q

Det är ju ganska enkelt egentligen.
Få se opm du får lite tips från en liknande funktion jag gjorde.
*Egentligen ska man lägga till Versaler och siffror också ur säkerhetssynpunkt. *

arr = array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z")
for i = 1 to 8
		randomize
		tal1 = int(rnd * 26)
		user = user & arr(tal1)
	next

Ok, det är ju inte ointressant, men hur får jag fram usernamnet??
En fråga till i detta sammanhanget. Jag hade tänkt att "stå kvar" på samma sida hela tiden och bara ha en knapp att trycka på för att få fram usernamnet.

Jag funderar på ren VB-script.
<script language=vbscript>
Eftersom jag inte får anfända mig av action(det blir ju fel för jag står ju redan på en sida. Hur gör jag med submitten?

Ok. Om vi forsätter på din del där uppe då.

Dim i,arr
For i =1 TO LEN(sAnvandarnamn)
arr=mid(sAnvandarnamn,i,1)
Next

for y= 1 to 7
randomize
tal1 = int(rnd * ubound(arr))
user = user & arr(tal1)
next

Jag vet inte riktigt om det är såhär du menar men...

Man kan använda ASCII koden av varje bokstav. I min Password generator används enbart versaler:

	' ## PASSWORD GENERATOR
	Randomize ' Initialize random-number generator.
	DO UNTIL i = 8
		x_PW = x_PW & chr((25 \* Rnd) + 65)
		i = i + 1
	LOOP

---
Ett annat alternativ som kanske passar ditt projekt bättre:

sAnvandarnamn= left(sForening, 4) & "-" & left(sNamn,2) & left(sEfternamn, 2)

Helt underbart, tack för all hjälp
:e