opret bruger problem...

Jeg har lavet en script der kan oprette brugere...men...

Hvis jeg opretter en bruger med en eksisterende brugernavn kommer der en fejl melding om at brugernavnet allerede eksistere, det er godt, men den opretter brugeren/posten alligevel, så er der lige pludseligt 2 bruger med den samme brugernavn.

Det skal ikke ske...

her er koden:

<%
Response.Buffer = True

brugernavn = Request("brugernavn")
password = Request("password")
fuldnavn = Request("fuldnavn")
alder = Request("alder")
email = Request("email")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("system.mdb") & ";UID=admin;PWD=;"

'Tester om brugernavn findes i databasen
Set rs = Conn.execute ("SELECT * FROM bruger WHERE brugernavn='" & brugernavn & "'")

If Not rs.Eof Then
    Response.Write "<FONT FACE=Verdana SIZE=1 COLOR=#FF0000>Brugernavn er allerede i brug!<br></FONT>"
    fejl = true
End If

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From bruger"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then       
               
                if brugernavn = "" then
                    Response.Write "<FONT FACE=Verdana SIZE=1 COLOR=#A80000>Brugernavn mangler!<br></FONT>"
                end if
               
                if password = "" then
                    Response.Write "<FONT FACE=Verdana SIZE=1 COLOR=#A80000>Password mangler!<br></FONT>"
                end if
               
                if fuldnavn= "" then
                    Response.Write "<FONT FACE=Verdana SIZE=1 COLOR=#A80000>Dit fuldenavn mangler!<br></FONT>"
                end if
               
                if alder= "" then
                    Response.Write "<FONT FACE=Verdana SIZE=1 COLOR=#A80000>Dit alder mangler!<br></FONT>"
                end if
               
                if email= "" then
                    Response.Write "<FONT FACE=Verdana SIZE=1 COLOR=#A80000>Din e-mail mangler!<br></FONT>"
                end if
               
                   
                    if brugernavn <> "" AND password <> "" AND fuldnavn <> "" AND alder <> "" AND email <> "" then
                    rs.AddNew
                    rs("brugernavn") = Request.form("brugernavn")
                      rs("password") = Request.form("password")
                      rs("fuldnavn") = Request.form("fuldnavn")
                      rs("alder") = Request.form("alder")
                      rs("email") = Request.form("email")
                      rs("dato") = now
                    rs.update
                    Response.write "<FONT FACE=Verdana SIZE=1 COLOR=#A80000><center>Velkommen til, du er nu oprettet som en brugere.</center><br></FONT>"
                    end if
                    end if %>


hjælp mig!