brugernavn findes ikke

Det kode du har vist tjekker om brugernavnet findes og det tjekker ikke både brugernavn og password. Du kan lave det sådan du først tjekker brugernavn+password hvis de ikke findes tjek om brugernavnet findes og bagefter om passwordet findes.

Umiddelbart er det ikke sikkert fejl koden vil passe da det kan være man har indtastet forkert brugernavn og password men passwordet findes i databasen på en anden bruger og dermed skriver den brugernavn er forkert.

Hvis jeg indtaster et brugernavn som jeg ved ikke findes får jeg denne fejl.

error '80020009'
/cms/cmsverify.asp, line 23

linje 23 = If objRS("UserClubPassword") = pass Then

min kode er:
<%
   
    usern = Request.Form("uname")   
    userp = Request.Form("pword")
   
    If usern = "" then Response.redirect("cmsdefault.asp?cmspage=login&error=Du har ikke indtastet et brugernavn.")
    If userp = "" then Response.Redirect("cmsdefault.asp?cmspage=login&error=Du har ikke indtastet et password.")
   
    Call OpenDB
    strSQL = "SELECT * FROM Users"
    strSQL = strSQL & " WHERE UN='"& usern &"'"
    Set objRS = objConn.Execute(strSQL)
   
    If objRS.recordcount = 0 then
        objRS.close
        objConn.close
        set objRS = nothing
        set objConn = nothing
        Response.Redirect("cmsdefault.asp?cmspage=login&error=Deres brugernavn, passer ikke til det indtastede password.")
    End If
   
    If objRS("UserClubPassword") = pass Then
        tjekstatus = objRS("UserClubStatus")
        If tjekstatus = "inaktiv" Then
          Response.Redirect("cmsdefault.asp")
        ElseIf tjekstatus = "lukket" Then
          Response.Redirect("cmsdefault.asp")
        End If
        Session("bla bla bla")
       
        objRS.Close
        objConn.Close
        set objRS = nothing
        set objConn = nothing
        Response.Redirect("cmsdefault.asp?cmspage=login")
    else
        objRS.Close
        objConn.Close
        set objRS = nothing
        set objConn = nothing
        Response.Redirect("cmsdefault.asp?cmspage=login&error=Deres password, passer ikke til det indtastede brugernavn.")
    end if   
%>

If objRS("UserClubPassword") = pass Then
er selvføllig

If objRS("UserClubPassword") = userp Then

hvis brugernavnet ikke findes vil objRS være tomt så du skal måske prøve at rette denne:

    If objRS.recordcount = 0 then
        objRS.close
        objConn.close
        set objRS = nothing
        set objConn = nothing
        Response.Redirect("cmsdefault.asp?cmspage=login&error=Deres brugernavn, passer ikke til det indtastede password.")
    End If


Til dette så den tjekker på .EOF:

    If objRS.EOF then
        objRS.close
        objConn.close
        set objRS = nothing
        set objConn = nothing
        Response.Redirect("cmsdefault.asp?cmspage=login&error=Deres brugernavn, passer ikke til det indtastede password.")
    End If

og måske endnu sætte password tjekket ind i else delen:


    If objRS.EOF then
        objRS.close
        objConn.close
        set objRS = nothing
        set objConn = nothing
        Response.Redirect("cmsdefault.asp?cmspage=login&error=Deres brugernavn, passer ikke til det indtastede password.")
    Else   

    If objRS("UserClubPassword") = uaerp Then
        tjekstatus = objRS("UserClubStatus")
        If tjekstatus = "inaktiv" Then
          Response.Redirect("cmsdefault.asp")
        ElseIf tjekstatus = "lukket" Then
          Response.Redirect("cmsdefault.asp")
        End If
        Session("bla bla bla")
       
        objRS.Close
        objConn.Close
        set objRS = nothing
        set objConn = nothing
        Response.Redirect("cmsdefault.asp?cmspage=login")
    else
        objRS.Close
        objConn.Close
        set objRS = nothing
        set objConn = nothing
        Response.Redirect("cmsdefault.asp?cmspage=login&error=Deres password, passer ikke til det indtastede brugernavn.")
    end if   
    End If

ny virker det.

Takker vil du lægge et svar.

Ok ja det gør jeg da ;)