ASP: generer kode på et vis antal tegn

Prøv den her:

Function makePassword(Size)
    Randomize Timer
    pwdchr="abcdefghjkmpqrstuvwxyzABCDEFGHJKMNPQRSTUVWXYZ123456789"
    For i = 1 to Size
        x = Int((Len(pwdchr) - 1 + 1) * Rnd + 1)
        pwd = pwd & Mid(pwdchr, x, 1)
    Next
    makePassword = pwd
End Function

Response.Write makePassword(12)

Således :)

<%
Dim Passgenerat
Dim intNum
Dim intRand
Dim intLower
Dim strPass
Passgenerat = ""
Randomize
For i = 1 to 15 ' Antal tegn her!
intNum = Int(10 * Rnd + 48)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
Select Case intRand
Case 1
strPass = Chr(intNum)
Case 2
strPass = Chr(intLower)
End Select
Passgenerat = Passgenerat & strPass
Next
KODE = Passgenerat

Response.Write KODE
%>

spotgun, jeg kan godt lide din, fordi der har jeg mulighed for at vælge præcis hvilket type tegn der må bruges, jeg f.eks. ik vil ha abq med kan jeg bare fjerne dem.. :D

Kun glad for at kunne hjælpe - og tak for point! :)