Opret kun 1 gang

Hejsa...

Jeg er ved at lave et system på min hjemmeside så mine besøgende kan oprette sig som brugere.
Men jeg har problemmer med at lave scriptet sådan at det tjekker at der ikke er 2 ens Brugernavne.
Dvs. at når en bruger opretter sig skal den tjekke i databasen at der ikke er en anden der har valg det brugernavn han prøver at oprette.

Problemmet er nu at når en bruger opretter sig så skriver den at brugernavnet er taget vælg et andet. Selv om brugernavnet er nyt i databasen, men brugeren bliver alligevel oprettet...

Kan i rettet fejlen eller har i en anden kode der virker bedere så hjælp mig :-)

Her er min kode:
----------------------------
Response.Buffer = True

Set rs = Conn.Execute("SELECT COUNT(id) AS Antal From bruger WHERE brugernavn = '" & Request("formbrugernavn") & "'")
strBrugerOk = rs("antal")
rs.Close
Set rs = Conn.Execute("SELECT COUNT(id) AS Antal From bruger WHERE email = '" & Request("email") & "'")
strEmailOk = rs("antal")
rs.Close

if strBrugerOk <> "0" then
Response.Write "Fejl Brugernavn"
Response.Write "<br>"
Response.Write strBrugerOk
else if strEmailOk <> "0" then
Response.Write "Fejl Email"
Response.Write "<br>"
Response.Write strEmailOk
else

Session.LCID = 1030
datologin = (Date())
brugerbillede = "/Images/Userprofil/intetbillede.gif"

strbrugernavn = Request("formbrugernavn")
fornavn = Request("fornavn")
password = Request("password")
efternavn = Request("efternavn")
website = Request("website")
email = Request("email")
land = Request("land")
postnummer = Request("postnummer")
alder = Request("alder")
profiltekst = Request("profiltekst")
if profiltekst = "" then
profiltekst = "Ingen profiltekst"
end if
signatur = Request("signatur")
dato = Request("dato")
vip = "False"
viphar = "False"
vipopret = "False"
point = "0"
snydt = "0"

Const adOpenKeyset = 1
Const adLockOptimistic = 3

strINSERT = "INSERT INTO bruger (brugernavn, fornavn, password, efternavn, website, email, land, postnummer, alder, profiltekst, brugerbillede, vip, viphar, vipopret, point, snydt, signatur, dato, datologin) VALUES ( '"
    strINSERT = strINSERT &  strbrugernavn & "', '" & fornavn & "', '" & password & "', '" & efternavn & "', '" & website & "', '" & email & "', '" & land & "', '" & postnummer & "', '" & alder & "', '" & profiltekst & "', '" & brugerbillede & "', '" & vip & "', '" & viphar & "', '" & vipopret & "', '" & point & "', '" & snydt & "', '" & signatur & "', '" & dato & "', '" & datologin & "')"
 
    call Conn.execute(strINSERT)


Response.Write "Bruger Oprettet"
Response.Write "<br>"
Response.Write strBrugerOk

end if
end if