Er dette login script sikkert + nye features

Hej Einstein'er
Jeg har et spørsmål ang. sikkerhed. Jeg bruger nedenstående login script:

Login side:
  <%

SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../DB/database.mdb")

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

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,"%","53")
End Function

    ' Gemmer formfelterne i Variabler
        strUsername = unQuote(request("username"))
        strPassword = unQuote(request("password"))

  Sql = "Select Count(*) as Found from user where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
  Set LO = RS.Execute(Sql)
  if LO("Found") = 0 then
    Session("login") = ""
    error = "Du blev ikke godkendt af systemet"
  else
  strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../DB/database.mdb")
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open strDSN
  strSQL = "SELECT * FROM user where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
  Set ez = myConn.Execute(strSQL)
    Session("login") = "yes mate"
    Session("UserID") = ez("ID")
    Session("Password") = ez("password")
    session("UserName") = ez("username")
    Response.Redirect "result.asp"
    EZ.Close
    RS.Close
    Conn.Close
  end if
end if
%>


På de sider der skal beskyttes:

<%
if session("login") = "" Then
Response.redirect("login.asp")
end if
%>


1. Er det et sikkert logon script, eller er det nemt at omgå?. Hvis der f.eks. er en der bruger det samme script og kender adressen på mine sider, kan han så "hoppe" over på disse og derved snyde det, ved at logge ind på sin egen side først???
2. Kan man tilføje en checkbox "husk mit login" til scriptet
3. Kan man lave en log af funktion, så man ikke hænger i browserens hukommelse i 20 min.

/Kim