Generet password tjek med andre password i databasen

Følgende script virker ikke helt efter hensigten:

Det autogeneret et password enten 0, 1 eller 2, som tjekkes med password i databasen. I databasen findes kun password 1. Derfor er password værdi på 0 eller 2 iorden.

Funktionen kalder sig selv, hvis password eksisterer på forhånd. Det er her fejlen opstår.

Følgende forløb - viser fejlen. Slut password burde være 2!

Password eksisterer. Det er 1Der laves et nyt
password er okay = 2
Slut password er = 1

Det forløber også korrekt når password bliver 0 eller 2 til en start:

Følgende besked kommer:
password er okay = 2
Slut password er = 2

Her er koden:

<%
function lavPassword(antal)
    'tilladtkarakter = "abcdefghijklmnopqrstuvwxyz1234567890"
    tilladtkarakter = "012"   
    str = ""
    for i = 1 to antal
        randomize
        index = Int(rnd * len(tilladtkarakter))+1
        str = str & Mid(tilladtkarakter,index,1)
    next
    lavPassword = str
%>
<!--#include virtual="inc/connect.inc"-->
<%
    strSQL = "Select niveau from users Where niveau = " & lavPassword
    set rs = Conn.Execute(strSQL)
      'response.write strSQL
          if rs.eof then
            Response.write "password er okay = " & lavPassword & "<br>"
          else 
            Response.write "Password eksisterer. Det er "& lavPassword &"Der laves et nyt<br>"   
            LavPassword (1)

        end if
    Conn.Close
    Set Conn = Nothing

end function

Response.write "Slut password er = " & lavPassword(1)
%>

? :-) karsten_larsen