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
