skapa lösenord

Välkommen till webForum, nille99!

Här har du ett script som kan passa dig:

Function getRandomPassword(ByVal iNoChars)

Dim sChars, sPassword
Dim i

Randomize(Timer())
sChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"

For i = 1 to iNoChars
sPassword = sPassword & Mid(sChars, Rnd * Len(sChars) + 1, 1)
Next

getRandomPassword = sPassword

End Function

Response.Write getRandomPassword(10)

Finns också ett bra alternativ på Boogiedesign.com.