Opret bruger

Hej ! Jeg har det her script som jeg er ved at tilpasse efter mine behov !

Jeg har det provokerne problem at når jeg trykker gem så gemmer den ikke bruger, som den skal !

Sådan her ser mit script ud:

<%
Response.Buffer = True

' tjekker om disse 5 felter er udfyldt !


brugernavn = Request("brugernavn")
kodeord = Request("kodeord")
alder = Request("alder")
kon = Request("kon")

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/db.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From brugere where brugernavn = '" & Request("brugernavn") & "'"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
  If Not (rs.BOF Or rs.EOF) Then
    Response.write "Brugernavnet findes allerede"
  end if

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From brugere"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
   
%>
      <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then

'//Tjek om personen acceptere
if Request.form("regler") <> "on" then
  Response.Write("- Du <b>skal</b> acceptere reglerne før du kan oprette en bruger.<br></font>")
end if

' Skriver fejl, hvis der ikke er indtastet en oplysning.               
             
              if brugernavn = "" then
                    Response.Write "- Du <b>skal</b> vælge et brugernavn<br>"
              end if
              if kodeord = "" then
                    Response.Write "- Du <b>skal</b> vælge et password!<br>"
                end if
                if alder = "" then
                    Response.Write "- Du <b>skal</b> angive dit alder!<br>"
              end if
              if kon = "" then
                    Response.Write "- Du <b>skal</b> angive dit køn!<br>"
              end if
               
brugernavn = Request.form("brugernavn")

'function som tjekker efter lovlige karakter
  function validStr(strInput)
  validChar = "abcdefghijklnmopqrstuwvxyzåæø01234567890 "

  for i = 1 to len(strInput)
    if inStr(1, validChar, Mid(strInput,i,1), 1) = 0 then
      validStr = false
      exit function
    end if
  next
    if IsNumeric(strInput) THEN
      validStr = false
      Exit function
    End if
  validStr = true
end function

str = brugernavn
if NOT validStr(str) then
  Response.Write("Der er et ugyldigt tegn i brugernavnet!<br></font>")
end if

' opretter brugeren i databasen !           
                   
                    if validStr(str) AND Request.form("regler") <> "on" AND brugernavn <> "" AND kodeord <> "" AND navn <> "" AND alder <> "" AND kon <> "" then
                    rs.AddNew
                    rs("brugernavn") = Request.form("brugernavn")
                      rs("kodeord") = Request.form("kodeord")
                      rs("alder") = Request.form("alder")
                      rs("kon") = Request.form("kon")
                      rs("hits") = "0"
                    rs.update
                    Response.write "> <b>DIN BRUGER ER OPRETTET</b> <"
                  end if
                  end if
                    %>