tjekke om brugernavn eksisterer før ændring

Jeg har fået en adgangssystem til at virke, således at brugerne efter logon kan ændre oplysninger om dem selv. Der ud over får de mulighed for at ændre deres brugernavn. Dog er der det minus, at hvis de vælger et brugernavn som eksisterer i forvejen, så går det galt!

Hvordan kan jeg sikre mig at de ikke vælger et allerede taget brugernavn.

:-) Karsten

Nedenfor følger min kode:

<%
Option Explicit
Dim sql, objRecBrugernavn, brugerId, brugernavn, fornavn, efternavn, telefon, email, www, password, notfilled(6), badflag, count, strConnect,objConn,strUpdate

'Tag vaerdier fra formen
brugerId = Request.Form("Id")
brugernavn = Request.Form("brugernavn")
fornavn = Request.Form("fornavn")
efternavn = Request.Form("efternavn")
telefon = Request.Form("telefon")
email = Request.Form("email")
www = Request.Form("www")
password = Request.Form("password")


' Tjek om alt er blevet fyldt ud, badflag bestemmer om fejlfunktion skal kaldes
badflag = 0

if brugernavn = "" then
    notfilled(0) = "Brugernavn"
    badflag = 1
end if
if fornavn = "" then
    notfilled(1) = "Fornavn"
    badflag = 1
end if
if efternavn = "" then
    notfilled(2) = "Efternavn"
    badflag = 1
end if
'if telefon = "" then
'    notfilled(3) = "Telefon"
'    badflag = 1
'end if
'if email = "" then
'    notfilled(4) = "Email"
'    badflag = 1
'end if
'if www = "" then
'    notfilled(5) = "Hjemmeside"
'    badflag = 1
'end if
if password = "" then
    notfilled(6) = "Password"
    badflag = 1
end if

if badflag = 1 then
    signuperror("nofield")
end if

'Skab forbindelse og indsaet brugerens oplysninger i databasen
%>
<!--#include file="database.inc"-->
<%
Set objRecBrugernavn = Server.CreateObject("ADODB.Recordset")
objRecBrugernavn.open "deltagere WHERE Id = " & brugerId , objConn, 3, 3




if  objRecBrugernavn("password") = password then
    objRecBrugernavn("brugernavn") = brugernavn
    objRecBrugernavn("fornavn") = fornavn
    objRecBrugernavn("efternavn") = efternavn
    objRecBrugernavn("telefon") = telefon
    objRecBrugernavn("email") = email
    objRecBrugernavn("www") = www
   
    objRecBrugernavn.Update
    response.cookies("brugernavn") = brugernavn
   
    else
    signuperror("badpwd")
    end if

    objRecBrugernavn.close
    objConn.close
    set objRecBrugernavn = nothing
    set objConn = nothing

    Response.Redirect("profilupdate.asp?updated=true")
%>

<%Function signuperror(errortype)%>
<html>
<head>
</head>
<body >


<table width="100%" border="0">
  <tr>
    <td align="center">
    <%if errortype = "nofield" then%>
        Du har ikke udfyldt følgende felter korrekt: <br>
    <%
    for count = 0 to 6
    if notfilled(count) <> "" then
    %>
        <b><%=notfilled(count)%></b><br>
    <%
    end if
    next
    else
    %>
        <p>Dit password er ikke korrekt</p>
    <%end if%>
    </td>
  </tr>
 
  <tr>
    <td align="center"><a href="java script:self.history.go(-1)">Prøv igen</a></td>
  </tr>
</table>



</font>
</body>
</html>
<%Response.end
End Function%>