Adduser ?

selvom jeg skriver brugernavn og password, så bliver den ved med at skrive:
----------------------
Skrift dit navn
Du har glemt at skrive dit password !
----------------------

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

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

            <form method=\"post\" action=\"adduser.asp\" id=form name=form>
              <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
                <tr>
                  <td width=\"110\" valign=\"top\"><b>Brugernavn:</b></td>
                  <td>
                    <input type=\"text\"        name=\"brugernavn\"        value=\"\" maxlength=\"50\">
                  </td>
                </tr>
                <tr>
                  <td width=\"110\" valign=\"top\"><b>Password:</b></td>
                  <td>
                    <input type=\"password\"    name=\"password\"        value=\"\" maxlength=\"50\">
                  </td>
                </tr>
                <tr>
                  <td width=\"110\" valign=\"top\">&nbsp;</td>
                  <td>
                    <input type=\"submit\" value=\"Registr&eacute;r\">
                  </td>
                </tr>
              </table>
            </form>
                        <% if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then       
               
                if navn = \"\" then
                    Response.Write(\"Skrift dit navn<br>\")
                end if
               
                if password = \"\" then
                    Response.Write(\"Du har glemt at skrive dit password !<br>\")
                end if
               
                   
                    if navn <> \"\" AND password <> \"\" then
                    rs.AddNew
      rs(\"brugernavn\") = Request.form(\"brugernavn\")
      rs(\"password\") = Request.form(\"password\")
                    rs.update
                    Response.Redirect(\"adduser.asp\")
                    end if
                    end if %>