Login-system der driller

Hej,

jeg sidder og roder med et login system, men jeg kan ikke få det til at fungere rigtigt. Det er downloadet på nettet og jeg har ikke ændret i koden - originalen virker fint, derfor kan jeg ikke forstå det.

Denne bid kode står på den side, hvorfra man logger ind:
<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usersystem.mdb")

If Request("mode") = "Check" then

    ' Authes user, password, and fixed a known securitybug to many login systems.
        strUsername = Trim(Replace(request("username"),"'","''" ))
        strPassword = Trim(Replace(request("password"),"'","''" ))

  Sql = "Select Count(*) as Found from users where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "You´re not authed be the system"
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("usersystem.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM users where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "Authed"
    Response.Redirect "default.asp"
    EZ.Close
    RS.Close
    Conn.Close
  End if
End if
%>

...og denne kode står øverst på de sider, som er beskyttede:
<%
if session("login") = "" Then
Response.redirect("login.asp")
end if
%>

Systemet laver den fejl at det går til login siden, når der er trykket login istedet for at gå til default.asp.

Prøv det evt. på www.median.dk/clara-kristian
Både brugernavn og password er test.

/nof