Tjekke om brugeren allerede er oprettet

Skulle måske lige have lidt kode med:

<%
Response.Buffer = True

' tjekker om disse 5 felter er udfyldt !

brugernavn = Request("brugernavn")
password = Request("password")
navn = Request("navn")
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.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From bruger"
    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 et navn på mindst 2 tegn!<br></font>")
                end if
               
                if alder= "" then
                    Response.Write("Du skal angive din alder!<br></font>")
                end if
               
                if kon= "" then
                    Response.Write("Du skal angive dit køn!<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("password") = Request.form("password")
                      rs("navn") = Request.form("navn")
                      rs("alder") = Request.form("alder")
                      rs("kon") = Request.form("kon")
                      rs("email") = Request.form("email")
                      rs("icq") = Request.form("icq")
                      rs("website") = Request.form("website")
                      rs("om") = Request.form("om")
                      rs("hits") = "0"
                    rs.update
                    Response.Redirect("login.asp")
                    end if
                    end if %>

Du gør blot sådan her:

strSQL = "SELECT * FROM tblBrugere WHERE brugernavn = '" & Request.Form("brugernavn") & "'"
Set objRs = objConn.Execute(strSQL)

If objRs.EOF Then
    ...Brugeren er ikke oprettet
Else
    ...Brugeren er oprettet i forvejen!
End If

//>Rune

strSQL = "Select * From bruger WHERE brugernavn ='" & brugernavn & "'"
Set objRs = conn.Execute(strSQL)

                  if brugernavn <> "" AND password <> "" AND navn <> "" AND alder <> "" AND kon <> "" then
If objRs.EOF Then
                    rs.AddNew
                    rs("brugernavn") = Request.form("brugernavn")
                      rs("password") = Request.form("password")
                      rs("navn") = Request.form("navn")
                      rs("alder") = Request.form("alder")
                      rs("kon") = Request.form("kon")
                      rs("email") = Request.form("email")
                      rs("icq") = Request.form("icq")
                      rs("website") = Request.form("website")
                      rs("om") = Request.form("om")
                      rs("hits") = "0"
                    rs.update
                    Response.Redirect("login.asp")
                    end if
                    end if
Else
Response.WRite("brugeren er oprettet i forvejen!")
End If %>

Prøv fx. sådan...

//>Rune

Hvor skal jeg sætte det ind i forhold til det der står der i forvejen?

aahh prøver lige...

hhmm det fungere ikke helt... den skriver bare "Brugeren er allerede oprettet" lige over formen man skal udfylde, når man kommer ind på siden!

Hmm ku' godt bruge lidt mere hjælp..! :)

har du fået det til at virke?