login script problem.. altid forkert password

Nogle der kan se fejl i dette script.. den skriver forkert password selv om den er rigtig.

<%
if request("send1") <> "" then
Function fncTextChange(strText)
                    strTekst = Trim(strText)
            fncTextChange = Replace(strTekst,"""","''")
            fncTextChange = Replace(strTekst,"'","''")
            fncTextChange = Replace(fncTextChange,"  "," &nbsp;")
            fncTextChange = Replace(fncTextChange,"a","aVe")
            fncTextChange = Replace(fncTextChange,"b","0d3")
            fncTextChange = Replace(fncTextChange,"c","kcd")
            fncTextChange = Replace(fncTextChange,"d","zgt")
            fncTextChange = Replace(fncTextChange,"e","5nx")
            fncTextChange = Replace(fncTextChange,"f","3xh")
            fncTextChange = Replace(fncTextChange,"g","nd4")
            fncTextChange = Replace(fncTextChange,"h","95b")
            fncTextChange = Replace(fncTextChange,"i","nd2")
            fncTextChange = Replace(fncTextChange,"k","5h4")
            fncTextChange = Replace(fncTextChange,"l","ms5")
            fncTextChange = Replace(fncTextChange,"m","q2h")
            fncTextChange = Replace(fncTextChange,"n","mqo")
            fncTextChange = Replace(fncTextChange,"o","q23")
            fncTextChange = Replace(fncTextChange,"p","5di")
            fncTextChange = Replace(fncTextChange,"q","346")
            fncTextChange = Replace(fncTextChange,"r","jtr")
            fncTextChange = Replace(fncTextChange,"s","6sx")
            fncTextChange = Replace(fncTextChange,"t","åag")
            fncTextChange = Replace(fncTextChange,"u","4xjk")
            fncTextChange = Replace(fncTextChange,"v","sdfgwe")
            fncTextChange = Replace(fncTextChange,"w","j6er5s")
            fncTextChange = Replace(fncTextChange,"x","24wjytrse")
            fncTextChange = Replace(fncTextChange,"y","5wbnasdgfr")
            fncTextChange = Replace(fncTextChange,"z","45qwazh")
            fncTextChange = Replace(fncTextChange,"æ","sdfg52wwzh")
            fncTextChange = Replace(fncTextChange,"ø","stsw35ht")
            fncTextChange = Replace(fncTextChange,"å","sty35hxgh")
            fncTextChange = Replace(fncTextChange,"1","sdy564hyz")
            fncTextChange = Replace(fncTextChange,"2","sthw54w")
            fncTextChange = Replace(fncTextChange,"3","sdfg5q3a")
            fncTextChange = Replace(fncTextChange,"4","ag4zbhtrsjd")
            fncTextChange = Replace(fncTextChange,"5","6456ydgfgh")
            fncTextChange = Replace(fncTextChange,"6","sshhttggn")
            fncTextChange = Replace(fncTextChange,"7","5xhtt")
              fncTextChange = Replace(fncTextChange,"8","4hst")
            fncTextChange = Replace(fncTextChange,"9","5xh5w")
            fncTextChange = Replace(fncTextChange,"0","s56zhh54")
        End Function
    password = fncTextChange(request.form("FPass"))
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Database/brugerdatabasen.mdb")
Conn.Open DSN

Dim Brugernavn
Brugernavn = Trim(Request.Form("FBruger"))
SQL = "SELECT * FROM Tuser WHERE (FBruger = '"& Brugernavn &"')"
set rs = conn.execute(SQL)
'Undersøg om det er det rigtigt Password og send til loginsiden hvis det er forkert ellers sender den til Lektiesiden.
If rs.EOF Then
  response.redirect "default.asp?loginskriv=Forkert brugernavn"
elseif rs("FPass") = Password Then
      if rs("godkendt") = "2" Then
          if rs.fields("brugerlevel") = "1" then
          session("loginoki") = Bruger
          Session("forumbruger") = "Member"
              Session("ID") = rs("id")
      elseif rs.fields("brugerlevel") = "2" then
            session("loginoki") = Bruger
          Session("forumadmin") = "Forum admin"
          Session("kanaltiverden") = "daadminnegerpikneger"
              Session("ID") = rs("id")
      elseif rs.fields("brugerlevel") = "3" then
          Session("ID") = rs("id")
            session("loginoki") = Bruger
          Session("daadminbruger") = "über admin"
          Session("kanaltiverden") = "daadminnegerpikneger"
         
      end if
      if Request.Form("huskmig") = "gemmig" then
  'Gem cookien
  Response.Cookies("login")("brugernavn") = Request.Form("FBruger")
  Response.Cookies("login")("password") = Request.Form("FPass")
  Response.Cookies("login")("gem") = "ja"
  Response.Cookies("login").Expires = Date+365
else
    Response.Cookies("login")("brugernavn") = " XX "
    Response.Cookies("login")("password") = "XX"
    Response.Cookies("login")("gem") = "nej"
    Response.Cookies("login").Expires = Date-365
end if
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Database/brugerdatabasen.mdb")
Conn.Open DSN
sql = "UPDATE Tuser set Sonline = '"&now()&"' where FBruger = '" & session("loginoki") & "'"
set rs = conn.execute(sql)
set rs = nothing
response.redirect "default.asp"
    Else
      response.redirect "default.asp?loginskriv=Brugeren er ikke aktiveret"
    end if
    else
      response.redirect "default.asp?loginskriv=Forkert password"
end if
end if
%>