password generator, hvor det?

<%
Function MakePassword(intAntaltegn)
  For x = 1 To intAntalTegn
    Randomize
    intChooser = Int(Rnd * 2) + 1
    Select Case intChooser
    Case 1
      intWildChar = Int(Rnd * 57) + 65
      If intWildChar => 91 And intWildChar <= 96 Then
        intWildChar = intWildChar + 8
      End If
      strPassword = strPassword & Chr(intWildChar)
    Case Else
      intWildChar = Int(Rnd * 9) + 1
      strPassword = strPassword & intWildChar
    End Select
  Next
  MakePassword = strPassword
End Function
Dim strKode
strKode = MakePassword(8)

%>

Så skal du bare indsætte strKode i dit passwordfelt

Jeg har ikke helt forstået dette her. Kan den generere passwords for en række felter i access? Eller hvordan skal jeg bruge den?
Skal jeg virkeligt hente og gemme for hver enkelt bruger, det tager lagt tid da der er over 200

Denne funktion opretter en tilfældig kode når der oprettes en ny bruger.

I det ASP-dokument, med hvilket du tilføjer nye brugere kunne du eksempelvis have følgende udover hvad jeg allere har skrevet:

<% Dim sql
sql= "SELECT * FROM brugere;"
Rs.Open sql, conn    'Du åbner Recordset med din sql-streng
Rs.AddNew
Rs.Fields("brugernavn") = Request.Form("brugernavn")
Rs.Fields("password") = strKode
Rs.Fields("email") = Request.Form("email")
Rs.Update %>

Men hvis du vil oprette passwords til allerede oprettede bruger kunne der måske være et problem...
Det tror jeg faktisk ikke du kan automatisk

takker eculeus
Hvis du vil svare så kan jeg acceptere ;o)

Svar

takker