Här kommer en fråga på mitt tidigare inlägg som löstes. När man fyller i sin mailadress och skickar så ska ett nytt slumpat lösen komma fram och läggas i db.......nån som vet HUR man gör det?

koden jag har för att skicka mailet är:
<%
email=request.form("txtUser")

Set test=objConn.Execute("Select * From tblUsers where email='"&email&"'")

If test.eof Then
response.redirect "/lostPass.asp?error=noMail"
Else

Dim sTo
Dim sTextBody
Dim objMail
Dim email
password=test("password")

sTo = email
sFrom = "info@webbisen.com"
sSubject = "Förlorat lösenord"
sTextBody = comments

'Create the mail object and set key properties
Set objMail = Server.CreateObject("CDO.Message")

objMail.From = sFrom
objMail.To = sTo
objMail.Subject = sSubject
objMail.TextBody = "Ditt lösenord är " &password

'Send the email and clean up
objMail.Send
Set objMail = Nothing
response.redirect "/lostPass.asp?success=sent"
End If%>

Ett sätt att slumpa lösenord är att skapa en sträng med alla tecken du vill ha i lösenordet, sedan slumpar du fram så många positioner i strängen som du vill ha tecken i lösenordet.

/Johan

Här är en funktion du kan använda om du vill:

Function gen_key(digits)
     dim char_array(50)
	 dim num
     
     char_array(0) = "0"
     char_array(1) = "1"
     char_array(2) = "2"
     char_array(3) = "3"
     char_array(4) = "4"
     char_array(5) = "5"
     char_array(6) = "6"
     char_array(7) = "7"
     char_array(8) = "8"
     char_array(9) = "9"
     char_array(10) = "A"
     char_array(11) = "B"
     char_array(12) = "C"
     char_array(13) = "D"
     char_array(14) = "E"
     char_array(15) = "F"
     char_array(16) = "G"
     char_array(17) = "H"
     char_array(18) = "I"
     char_array(19) = "J"
     char_array(20) = "K"
     char_array(21) = "L"
     char_array(22) = "M"
     char_array(23) = "N"
     char_array(24) = "O"
     char_array(25) = "P"
     char_array(26) = "Q"
     char_array(27) = "R"
     char_array(28) = "S"
     char_array(29) = "T"
     char_array(30) = "U"
     char_array(31) = "V"
     char_array(32) = "W"
     char_array(33) = "X"
     char_array(34) = "Y"
     char_array(35) = "Z"

     Randomize
     do while len(gen_key) < digits
       num = char_array(Int((35 - 0 + 1) * Rnd + 0))
       gen_key = gen_key + num
     loop
End Function

password = gen_key(8) 'Generate randomized password ' här är lösenordet 8 tecken långt