Login System problem

Hejsa

Jeg har et problem med mit loginsystem ... hvis brugeren angiver et brugernavn som ikke ligger i databasen så melder siden fejl. Hvad skal jeg gøre for at rette dette?

Skal bruge hurtig hjælp!

Her er min side:

<%

  Dim sSeed
  Dim sValidBrugernavn
  Dim sValidPassword
  Dim sValidHash
  Dim sBrugernavn
  Dim sPassword
  Dim sHash
  Dim sGruppenavn
  Dim sInitial
  Dim sFornavn
  Dim sEfternavn

        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
            Conn.Open "DBQ=" & Server.Mappath("Login.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
   
        SQL = "SELECT Grupper.Gruppenavn, Bruger.Brugernavn, Bruger.Brugerkode, Bruger.Initial, Bruger.Fornavn, Bruger.Efternavn FROM Bruger INNER JOIN Grupper ON Bruger.Gruppenavn = Grupper.GruppeId WHERE Brugernavn='" & request("brugernavn") & "'"
        rs.Open SQL, Conn

sValidBrugernavn = rs("Brugernavn")
sValidPassword = rs("Brugerkode")
sGruppenavn = rs("Gruppenavn")
sInitial = rs("Initial")
sFornavn = rs("Fornavn")
sEfternavn = rs("Efternavn")

  sSeed = Session("auth_seed")
  sValidHash = MD5(sSeed & sValidPassword)
 
  sBrugernavn = Request.Form("brugernavn")
  sPassword = Request.Form("password")
  sHash = Request.Form("hash")
 
%>
<HTML>
<HEAD>
    <TITLE>Sikker Login</TITLE>
</HEAD>
<BODY>

<CENTER>

    <%
        If sSeed = "" Then
            Response.Write "Din session er lukket. Du har enten venter for langtid eller også understøtter din browser ikke cookies."
        ElseIf sBrugernavn = "" Then
            Response.Write "Du har ikke skrevet nogen brugernavn"
        ElseIf LCase(sBrugernavn) <> LCase(sValidBrugernavn) Then
            Response.Write "Brugernavnet er ikke gyldigt"
        ElseIf sHash = "" And sPassword <> "" Then

            If sPassword <> sValidPassword Then
                Response.Write "Adgangskoden er ikke rigtig."
            Else
                Session("auth_granted") = "true"
                Session("auth_Brugernavn") = sBrugernavn
                Session("auth_Gruppenavn") = sGruppenavn
                Session("auth_Initial") = sInitial
                Session("auth_Fornavn") = sFornavn
                Session("auth_Efternavn") = sEfternavn

                Response.Redirect "Secured.asp"

            End If
        ElseIf sHash <> "" Then
            If sHash <> sValidHash Then
                Response.Write "Adgangskoden er ikke rigtig."
            Else
                Session("auth_granted") = "true"
                Session("auth_Brugernavn") = sBrugernavn
                Session("auth_Gruppenavn") = sGruppenavn
                Session("auth_Initial") = sInitial
                Session("auth_Fornavn") = sFornavn
                Session("auth_Efternavn") = sEfternavn

                Response.Redirect "Secured.asp"

            End If           
        Else
            Response.Write "Der er sket en fejl. Prøv venligst igen. Hvis dette fortsætter så kontakt venligst webmaster@havneparken1vejle.dk"
        End If       

    %>
<BR><BR>
    <A HREF="index.asp">Tilbage</A></CENTER>
                           

</BODY>
</HTML>