Ang. logon system

Sidder og roder med at login system og kan ikke få det til at virke!

<%
If Request.Form("Brugernavn") <> "" Then
Dim strBrugernavn, strAdgangskode
strBrugernavn = Trim(Replace(request.form("Brugernavn"),"'","''" ))
strAdgangskode = Trim(Replace(request.form("Adgangskode"),"'","''" ))

Set Conn = Server.CreateObject("ADODB.Connection")
ConnectionStreng = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../../db/db.mdb")
Conn.Open ConnectionStreng

strSQL = "Select * From T_Admin_Logon Where Brugernavn = '" & strBrugernavn & "' AND Adgangskode = '" & strAdgangskode & "'"
Set rs = Conn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then
  Session("Id") = rs("Id")
  Session("Godkendt") = True
  Session("Brugernavn") = rs("Brugernavn")
  Response.Redirect "default.asp"
  End If

strSQL_Fejl = "Insert into T_Logon_Fejl (Brugernavn, Adgangskode, Ip) values('" & strBrugernavn  & "', '" & strAdgangskode & "', '" & Request.ServerVariables("REMOTE_HOST") & "')"
Set rs_Fejl = Conn.Execute(strSQL_Fejl)

Conn.Close
Set Conn = Nothing

End If
Response.redirect "logon.asp"
%>

Dette er den kode som tjekker om brugernavn og kodeord er rigtigt ^

Men når jeg skriver det rigtige brugernavn og kodeord bliver jeg ikke sendt videre til default.asp, jeg har også tjekket min database i tabelen T_Logon_Fejl og der skriver den heller ikke noget!

Hvad gør jeg galt?