opret bruger problem...

Jeg har lavet en opret bruger system, men mangler stadig noget.

Det vigtigste:

Username*
password*
Name*
email*
land*
profile


Profile feltet må gerne udfyldes, men SKAL ikke derfor er der ikke betingser på den.

Være gang jeg udfylder profile og de andre virker koden og opretter en ny bruger.

Men hvis jeg ikke udfylder profile, sker der intet.
Det skal der jo når den ikke er VIGTIG.

Her er koden:

<%
Response.Buffer = True

username = Request("username")
password = Request("password")
name = Request("name")
email = Request("email")
land = Request("land")
profile = Request("profile")

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 user WHERE username='" & username & "'")

If Not rs.Eof Then
    Response.Write "<FONT FACE=Verdana SIZE=1 COLOR=#FF0000><center><b>Din username er i brug, prøv igen!</b></center></FONT>"
    fejl = true

else

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From user"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then       
               
                if username = "" then
                    Response.Write("<FONT FACE=Verdana SIZE=1 COLOR=#FF0000><center>Du mangler username</center></FONT>")
                end if
               
                if password = "" then
                    Response.Write("<FONT FACE=Verdana SIZE=1 COLOR=#FF0000><center>Du mangler password!</center></FONT>")
                end if
               
                if name = "" then
                    Response.Write("<FONT FACE=Verdana SIZE=1 COLOR=#FF0000><center>Du mangler navn!</center></FONT>")
                end if
               
                if email = "" then
                    Response.Write("<FONT FACE=Verdana SIZE=1 COLOR=#FF0000><center>Du mangler e-mail!</center></FONT>")
                end if
               
            if land = "" then
                    Response.Write("<FONT FACE=Verdana SIZE=1 COLOR=#FF0000><center>Du manger land!</center></FONT>")
                end if
               
                   
                    if username <> "" AND password <> "" AND name <> "" AND email <> "" AND land <> "" AND profile <> "" then
                    rs.AddNew
                    rs("username") = Request.form("username")
                      rs("password") = Request.form("password")
                      rs("name") = Request.form("name")
                      rs("email") = Request.form("email")
                      rs("land") = Request.form("land")
                      rs("profile") = Request.form("profile")
                      rs("date") = now
                    rs.update
                    Response.write "<FONT FACE=Verdana SIZE=1 COLOR=#A80000><center>Du er nu oprettet, som en brugere.</center><br></FONT>"
                    end if
                    end if
                    end if %>