Sjekke om brukernavn er tatt....

Dette scriptet skal oppdatere en bruker.

Hvis man ikke endrer brukernavnet så skal det oppdatere de endringer man gjør.

men hvis brukernavnet endres så skal den sjekke om brukernavnet er opptatt. Dette får jeg til men da sier den at brukernavnet er oppdatt.

<!--#include file ="include/common.asp"-->
<%   
    dim strFullName
    dim strUserName
    dim strPassword
    dim strSecuritLevel
   
    dim adoCn
    dim strSQL
    set adoCn = Server.CreateObject("ADODB.Connection")
    adoCn.Open strConn
   
    strUserID = Request.QueryString("UserID")
    strFullName = Request.Form("txtFullName")
    strUserName = Request.Form("txtUserName")
    strPassword = Request.Form("txtPassword")
    strSecurityLevel = Request.Form("txtSecurityLevel")
   
    ' Nullstill feilmeldingen
    error = ""

    If Len(strFullName) < 1 Then
        error = error & "Navn er for kort. "
    End If

    If Len(strUserName) < 8 Then
        error = error & "Brukernavn er for kort. Må være 8 tegn. "
    End If

    If Len(strPassword) < 5 Then
        error = error & "Passord for kort. Minst 5 tegn. "
    End If

    If Len(strFullName) > 50 Then
        error = error & "Navn må ikke overskride 50 tegn. "
    End If
   
    If Len(strUserName) > 8 Then
        error = error & "Brukernavn må ikke overskride 8 tegn. "
    End If

    If Len(strPassword) > 8 Then
        error = error & "Passord må ikke overskride 8 tegn. "
    End If

    If Isnumeric(strSecurityLevel) = False Then
        error = error & "Brukernivå må være et tall. "
    End If
   
    dim adoRs
    set adoRs = Server.CreateObject("ADODB.Recordset")
    strSQL1 = "SELECT COUNT(*) AS ok FROM Users WHERE UserName=" & "'" & strUsername &"'"
    set adoRs = adoCn.Execute(strSQL1)
   
    If adoRs("ok") = 1 Then
        error = error & "Brukernavnet var tatt. "
    End if
   
    ' Dersom error ikke er "", har det oppstått minst en feil. Skriv ut feilmelding
    If error <> "" Then
        Response.Clear
        %><html>
        <body onload="window.alert('En feil skjedde! <% =error %>');
                window.history.back();">
        &nbsp;</body></html><%
        Response.End
    End If
   
    strSQL = "UPDATE Users SET FullName='" & strFullName &_
        "', UserName='" & strUserName &_
        "', UPassword='" & strPassword &_
        "', SecurityLevel='" & strSecurityLevel &_
        "' WHERE UserId="& strUserId
   
    adoCn.Execute strSQL
    adoCn.Close
    set adoCn = nothing
   
    Response.Redirect "admin_BrukerListe.asp"
%>