Generare sequenza casuale di lettere e numeri

[Edipo]

Ciao a tutti uitlizzo questo codice per generare delle password casuali, una sequenza di lettere e numeri.
Il server non mi restituisce nulla, come se stesse per impallarsi. Codice nocivo?

<%
caratteri = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

Randomize ' inizializza il generatore di numeri casuale

Do Until len(password) = 10 ' qui imposti la lunghezza della password
	carattere = Int((37 Rnd) + 1) ' Genera un valore casuale compreso tra 0 e Z.
	password = password & Mid(caratteri,carattere,1)
Loop
Response.Write ("La tua password è : " & password & "")
%>

Grazie in anticipo.

[[trodat]]

prova questa:

function generateFileName()
    	Dim counter
    	Dim TempLongID
    	For Counter = 1 To 8
    	 Randomize Timer / RND
    	 TempLongID = TempLongID & Chr((ASC("z") - ASC("a")) * RND + ASC("a"))
    	Next
    	Dim temp
    	Dim datetime
    	datetime = now()
    	generateFileName = TempLongID
    End function
    
strGenerateFileName = generateFileName
response.write strGenerateFileName & "
"

[Edipo]

volendo anche con i numeri?

[[trodat]]

function GenerateSessionID(nchar)
dim sessionID
sessionID = ""
randomize timer
dim i, n
for i=0 to nchar-1
do
n = int(rnd * 75) + 48
loop until ((n >= 48) AND (N <= 57)) OR ((N >= 65) AND (N <= 90)) OR ((N >= 97) AND (N <= 122))
sessionID = sessionID & chr(n)
next
GenerateSessionID = sessionID
end function
strGenerateSessionID = GenerateSessionID(30)

response.write strGenerateSessionID

[Edipo]

olalalaaaaaaaaaaaaaaaaaaaaa!!
Stupenda...dalla session, bella!
Grazie infinite trodat.
Ma che nome è?
Ciao.