Generar e insertar un password aleatorio

[edysierra]

Hola a todos!!!

Esta vez con un problemita que no puedo resolver adecuadamente.
Un usuario se registra a traves de un formulario y esos datos luego son recogidos en otra pagina e insertados en la BD. Luego se genera un mail de confirmacion para el usuario con los datos de su nombre de usuario y.. tendria que hacer lo mismo con el password aleatorio que se generó.
Hasta ahi todo bien, pero mi problema es que tengo un codigo para generar el password pero no puedo insertalo en la BD, junto con los demas datos.
Ese codigo lo copio seguidamente:

<%
' Función para generar passwords aleatorios
Function GenerarPassword(largo)
Dim Resultado, Caracter, Password

'Cargamos la matriz con números y letras
caracter = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "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")

Randomize()
Do While Len(Resultado) < largo
Resultado = Resultado & Caracter(Int(36 * Rnd()))
Loop
GenerarPassword = Resultado
End Function

' Obtener un password de 8 caracteres
Password= GenerarPassword(8)

' Imprimir clave
Response.Write "<center><b>"& Password & "</b></center>"
%>

Asi como esta lo he probado y funciona, pero no se si debo crear una variable para insertarlo junto con los demas datos en el campo Password o de que otra manera.

Si alguno tiene una sugerencia será muy bienvenida!!!

Gracias!