kryptere password mange gange

Hej

Jeg har dette script som skal generere mange password til mig

Men jeg får samme password i alle rækker:

<%
function lavPassword(antal)
  tilladtkarakter = "abcdefghijklmnopqrstuvwxyz1234567890"
  str = ""
  randomize
  for i = 1 to antal
    index = Int(rnd * len(tilladtkarakter))+1
    str = str & Mid(tilladtkarakter,index,1)
  next
  lavPassword = str
end function

password =  lavPassword(6)

%>
<%
Dim t
t = 1

Do Until t = 100
            response.Write password & "<br>"
           
t = t + 1

Loop
%>