hat sich erledigt.

gru�,
alexander

> -----Original Message-----
> From: Alexander Husic [mailto:[EMAIL PROTECTED]] 
> Sent: Sunday, December 30, 2001 3:19 PM
> To: ASP Diskussionsliste fuer Anfaenger
> Subject: [aspdebeginners] random password
> 
> 
> hallo liste,
> 
> ich glaube, das ich heute etwas zu doof bin... oder ich 
> sollte mich doch lieber mit der erk�ltung ins bett legen. 
> n�tzt aber nichst.. ich muss leider noch ne sache fertig 
> machen... ich muss ein zufalls passwort in eine datenbank 
> bekommen.... nur das funzt leider nicht, weil ich die 
> funktion, oder genauer gesagt das ergebnis, nicht in die db 
> bekomme. dazu habe ich folgende funktion bei aspin.com 
> gefunden... die auch die passw�rter liefert, die ich brauche.
> 
> [zufalls passwort]
> 
> <%
> response.write makePassword(15)
> 
> function makePassword(byVal maxLen)
> 
> Dim strNewPass
> Dim whatsNext, upper, lower, intCounter
> Randomize
> 
> For intCounter = 1 To maxLen
>     whatsNext = Int((1 - 0 + 1) * Rnd + 0)
> If whatsNext = 0 Then
>         upper = 90
>         lower = 65
> Else
>         upper = 57
>         lower = 48
> End If
>         strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd +
> lower))
> Next
>         makePassword = strNewPass
> 
> end function
> %>
> 
> [insert]
> 
> Dim UserName, PassWord, Level, ExpDate, SQL
> 
>   UserName = Replace(Trim(Request.Form("username")), "'", "''")
>   PassWord = strNewPass <---- hier!!!
>   Level = Trim(Request.Form("level"))
>   ExpDate = Trim(Request.Form("expdate"))
> 
>   If UserName = "" Or PassWord = "" Or Level = "" Or ExpDate 
> = "" Then Response.Redirect "../../me_data.asp"
> 
>   SQL = "Insert Into Login (UserName, [PassWord], Clearance, 
> ExpireDate) Values('"&UserName&"', '"&PassWord&"', 
> '"&Level&"', '"&ExpDate&"')"
> 
>   MyConn.Execute(SQL)
> 
>   CleanUp()
> 
> [ende]
> 
> also... was muss ich tun, damit ich dieses Passwort auch in 
> die db �bergeben kann???
> 
> gr��e,
> alexander


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

Antwort per Email an