Jeg har et login system

SQL = "SELECT * FROM brugere WHERE brugernavn='"& Request.Form("brugernavn") &"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 3

If (Rs.BOF AND Rs.EOF) Then
KODE TIL AT OPRETTE BRUGER
else
else
response.write "Brugernavnet er optaget, vælg et andet."
end if

Hvor dan får man den ind i min kode

<%
Response.Buffer = True

' tjekker om disse 5 felter er udfyldt !

brugernavn = Request("brugernavn")
password = Request("password")
navn = Request("navn")
alder = Request("fødselsdagdag") = Request("Dag") & "/" & Request("Måned") & "/" & Request("År")
kon = Request("kon")
email = Request("email")
regler = Request("regler")
vistnavn = Request("vistnavn")
regler = Request("regler")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=guf4you;USER=root;PASSWORD=;OPTION=3;"

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

' Skriver fejl, hvis der ikke er indtastet en oplysning.               
if brugernavn = "" then
                    Response.Write("Du skal vælge et Brugernavn<br></font>")
                end if
               
                                if password = "" then
                    Response.Write("Du skal vælge et Password!<br></font>")
                end if
               
                                if navn = "" then
                    Response.Write("Du skal angive dit Fulde navn!<br></font>")
                end if
               
                                if vistnavn= "" then
                    Response.Write("Du skal angive et vist navn på mindst 2 tegn!<br></font>")
                end if
               
                                if alder= "" then
                    Response.Write("Du skal angive din alder!<br></font>")
                end if
               
                if email = "" then
                    Response.Write("Du skal angive din EMail!<br></font>")
                end if

               
                if kon= "" then
                    Response.Write("Du skal angive dit køn!<br></font>")
                end if
               
                                                if regler = "" then
                    Response.Write("Du skal acceptere reglerne!<br></font>")
                end if


' opretter brugeren i databasen !           
                   
                    if brugernavn <> "" AND password <> "" AND navn <> "" AND alder <> "" AND kon <> "" then
                    rs.AddNew
                    rs("brugernavn") = Request.form("brugernavn")
                    rs("kon") = Request.form("kon")
                      rs("kode") = Request.form("password")
                      rs("fuldtnavn") = Request.form("navn")
                    rs("fodselsdagdag") = Request("aar") & "/" & Request("Maaned") & "/" & Request("Dag")
                      rs("email") = Request.form("email")
                      rs("msn") = Request.form("msn")
                      rs("vistnavn") = Request.form("vistnavn")
                    rs("landsdel") = Request.form("landsdel")
                      rs("hits") = "0"
                    rs.update
                    Response.Redirect("opretok.asp")
                    end if
                    end if %>

prøv nu:

<%
Response.Buffer = True

' tjekker om disse 5 felter er udfyldt !

brugernavn = Request("brugernavn")
password = Request("password")
navn = Request("navn")
alder = Request("fødselsdagdag") = Request("Dag") & "/" & Request("Måned") & "/" & Request("År")
kon = Request("kon")
email = Request("email")
regler = Request("regler")
vistnavn = Request("vistnavn")
regler = Request("regler")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=guf4you;USER=root;PASSWORD=;OPTION=3;"

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

' Skriver fejl, hvis der ikke er indtastet en oplysning.               
if brugernavn = "" then
                    Response.Write("Du skal vælge et Brugernavn<br></font>")
                end if
               
                                if password = "" then
                    Response.Write("Du skal vælge et Password!<br></font>")
                end if
               
                                if navn = "" then
                    Response.Write("Du skal angive dit Fulde navn!<br></font>")
                end if
               
                                if vistnavn= "" then
                    Response.Write("Du skal angive et vist navn på mindst 2 tegn!<br></font>")
                end if
               
                                if alder= "" then
                    Response.Write("Du skal angive din alder!<br></font>")
                end if
               
                if email = "" then
                    Response.Write("Du skal angive din EMail!<br></font>")
                end if

               
                if kon= "" then
                    Response.Write("Du skal angive dit køn!<br></font>")
                end if
               
                                                if regler = "" then
                    Response.Write("Du skal acceptere reglerne!<br></font>")
                end if


' opretter brugeren i databasen !           
                   
If (Rs.BOF AND Rs.EOF) Then
                    if brugernavn <> "" AND password <> "" AND navn <> "" AND alder <> "" AND kon <> "" then
                    rs.AddNew
                    rs("brugernavn") = Request.form("brugernavn")
                    rs("kon") = Request.form("kon")
                      rs("kode") = Request.form("password")
                      rs("fuldtnavn") = Request.form("navn")
                    rs("fodselsdagdag") = Request("aar") & "/" & Request("Maaned") & "/" & Request("Dag")
                      rs("email") = Request.form("email")
                      rs("msn") = Request.form("msn")
                      rs("vistnavn") = Request.form("vistnavn")
                    rs("landsdel") = Request.form("landsdel")
                      rs("hits") = "0"
                    rs.update
                    Response.Redirect("opretok.asp")
else
response.write "Brugernavnet er optaget, vælg et andet."
end if
                    end if
                    end if %>