Login System

Jeg har downloadet dette system.. (og modificeret lidt...)

MEN det virker.. ikke.. jeg bliver sendt til samme sted(index.asp?menu=login) uanset om jeg skriver det korrekte password el. ikke! Nogen der kan se fejlen?

index.asp:
<html>
<body background=\"background.gif\" topmargin=\"0\" leftmargin=\"0\">
<base target=\"main\">

<%select case Request.QueryString(\"menu\")%>

<%case \"login\"%>
<%
\' Hvis der er blevet trykket på knappen \"Login\"
If Request.Form(\"Action\") = \"Login\" Then
    \' Her forberedes de indtastede værdier til validering
    strUID = Trim(Replace(Request.Form(\"username\"),\"\'\",\"\"))
    strPWD = Trim(Replace(Request.Form(\"password\"),\"\'\",\"\"))

    \' Hvis der er skrevet noget i både brugernavn og adgangskode
    If Len(strUID) > 0 And Len(strPWD) > 0 Then

        \' DSNLess forbindelse til databasen
        Set myConn = Server.CreateObject(\"ADODB.Connection\")
        myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"scheduler.mdb\")

        \' Opbygning af SQL streng
        strSQL = \"SELECT UserID FROM Users\"&_
            \" WHERE (Username = \'\" & strUID & \"\')\"&_
            \" AND (Password = \'\" & strPWD & \"\')\"

        Set rs = myConn.Execute(strSQL)
        If Not (rs.BOF Or rs.EOF) Then
            \' Hvis brugeren fandtes i databasen
            intUID = request.form(\"username\")
        Else
            \' Hvis brugeren ikke fandtes i databasen
            strERR = \"Adgang nægtet.\"
        End If

        \' Rydder op i vores connection objekt
        myConn.Close
        Set myConn = Nothing

        If Len(intUID) Then
            \' Hvis variablen intUID indeholder en værdi sættes denne i sessionen \"UserID\" og brugeren bliver sendt videre
            Session(\"UserID\") = intUID
            Response.Redirect(\"index.asp?menu=main\")
        End If
    Else
        \' Hvis der ikke var angivet brugernavn og adgangskode
        strErr = \"Brugernavn el. Adgangskode mangler.\"
    End If

    If Len(strErr) > 0 Then
        \' Her laves fejlmeddelsen om til rød skrift
        strErr = \"<p><font color=gray>\" & strErr & \"</font></p>\"
    End If
End If
%>
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\" height=\"100%\">
  <tr>
    <td width=\"100%\" valign=\"middle\" align=\"center\" height=\"100%\"><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
      <tr>
        <td width=\"100%\"><img src=\"logo.gif\" border=\"0\"><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
          <tr>
            <td width=\"98\" valign=\"middle\"><p align=\"right\"><font face=\"Arial\" color=\"#808080\"><small>Brugernavn</small></font><img src=\"1_1.gif\" width=\"8\" border=\"0\"></td>
            <td width=\"119\"><p align=\"left\"><img src=\"1_1.gif\" width=\"8\" border=\"0\"><input TYPE=\"text\" Name=\"username\" style=\"BACKGROUND-COLOR: white; BORDER-BOTTOM-COLOR: gray; BORDER-LEFT-COLOR: gray; BORDER-RIGHT-COLOR: gray; BORDER-TOP-COLOR: gray; COLOR: black; FONT-FAMILY: Arial; FONT-SIZE: 10pt\" size=\"11\"></td>
          </tr>
          <tr>
            <td width=\"98\" valign=\"middle\"><form method=\"POST\" action=\"index.asp?menu=login\"><p align=\"right\"><font face=\"Arial\" color=\"#808080\"><small>Adgangskode</small></font><img src=\"1_1.gif\" width=\"8\" border=\"0\"></td>
            <td width=\"119\"><p align=\"left\"><img src=\"1_1.gif\" width=\"8\" border=\"0\"><input TYPE=\"password\" NAME=\"password\" style=\"BACKGROUND-COLOR: white; BORDER-BOTTOM-COLOR: gray; BORDER-LEFT-COLOR: gray; BORDER-RIGHT-COLOR: gray; BORDER-TOP-COLOR: gray; COLOR: black; FONT-FAMILY: Arial; FONT-SIZE: 10pt\" size=\"11\"></td>
          </tr>
        </table>
        </td>
      </tr>
      <tr>
        <td><img src=\"1_1.gif\" height=\"10\" border=\"0\"><br><img src=\"bund.gif\" border=\"0\"><br>
    <img src=\"linie.gif\" border=\"0\"><input type=\"image\" src=\"knap_off.gif\" alue=\"Login\"> </form><br><br><center><small><%=strErr%></small></center>
    </td>
      </tr>
    </table>
    </td>
  </tr>
</table>

<%case \"main\"%>
<!--#include file=\"protect.inc\"-->
Your are  now logged onto the account named: <% Response.Write \"\" & session(\"UserID\") & \"\" %>

<%case else%>
Error!

<%end select%>

</body>
</html>



protect.inc:
<%
If isEmpty(Session(\"UserID\")) Then
    Response.Redirect(\"index.asp?menu=login\")
End If
%>


Og.. JA.. jeg har added mig selv i databasen :P men det virker stadig ikke.. ??