Opret pro...

Jeg er ved lave en opret profil.
Det er brugernavn, password, Fornavn, Efternavn og email der er der vigtigste, så det er kun dem der har betingelserne, mem den hvis viser fejl alligevel.

Der ikke noget galt med Databasen.

Her koden:

<%
Response.Buffer = True

brugernavn = Request("brugernavn")
password = Request("password")
fornavn = Request("fornavn")
efternavn = Request("efternavn")
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=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From bruger"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
   
    'Tester om brugernavn findes i databasen
Set rs = Conn.execute ("SELECT * FROM bruger WHERE brugernavn='" & brugernavn & "'")

If Not rs.Eof Then
    Response.Write("<p><font color=red>Brugernavn er allerede i Oprettet!</font></p>")
    fejl = true
End If
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then       
               
                if brugernavn = "" then
                    Response.Write("<span class='skrift'><font color='#FF3300'>Du skal vælge et brugernavn<br></font></span>")
                end if
               
                if password = "" then
                    Response.Write("<span class='skrift'><font color='#FF3300'>Du skal vælge et password!<br></font></span>")
                end if
               
                if fornavn= "" then
                    Response.Write("<span class='skrift'><font color='#FF3300'>Du skal angive dit fornavn!<br></font></span>")
                end if
               
                if efternavn= "" then
                    Response.Write("<span class='skrift'><font color='#FF3300'>Du skal angive dit efternavn!<br></font></span>")
                end if
               
                if email= "" then
                    Response.Write("<span class='skrift'><font color='#FF3300'>Du skal angive din e-mail!<br></font></span>")
                end if
               
                   
                    if brugernavn <> "" AND password <> "" AND fornavn <> "" AND efternavn <> "" AND email <> "" then
                    rs.AddNew
                    rs("brugernavn") = Request.form("brugernavn")
                      rs("password") = Request.form("password")
                      rs("fornavn") = Request.form("fornavn")
                      rs("efternavn") = Request.form("efternavn")
                      rs("email") = Request.form("email")
                      rs("alder") = Request.form("alder")
                      rs("firma") = Request.form("firma")
                      rs("hjemmeside") = Request.form("hjemmeside")
                      rs("icq") = Request.form("icq")
                      rs("profil") = Request.form("profil")
                      rs("hits") = "0"
                    rs.update
                    Response.Redirect("opret.asp")
                    end if
                    end if %>
<form method="post" action="opret.asp" id=form name=form>


hjælp med at finde fejlen.