Login.asp? Fejl

Ja, jeg kan ikke helt få det til at du efter jeg har rodet lidt med det, imens mit internet ikke har duet..
Koden får i her, Men hvis i ikke kan se nogle fejl Opretter jeg lige en Database og ligger den et andet sted....
Her får i koden


<% Response.Buffer = True %>
<%
'Hvis session("Adgang") ikke er sat til Godkendt bliver den sat til Forbudt
    If Not Session("Adgang") = "Godkendt" Then
        Session("Adgang") = "Forbudt"
    End If
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="../style.css">

    <title>Login</title>
<META NAME="Generator" CONTENT="Microsoft FrontPage 5.0">
</head>

<table border="0" cellpadding="0" cellspacing="0" width="550" align=center>
<tr>
        <td height="15" Background="../build/3-1.gif" align="center"
          style="font-size:12px; font-weight: bold">
          <!-- Overskrift Start -->
          .... Login ....</td>
          <!-- Overskrift Slut -->
        </tr>
</table>

<body>
<script type="text/javascript" src="../fader.js"></script>
<%
  mode=request("mode")
   
'--- Kontrol ---
  if mode="kontrol" then
     
    strConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("2454.mdb")
   
    Set rs = Server.CreateObject("ADODB.RecordSet")

Dim brugernavn, adgangskode

brugernavn = Trim(Replace(Request.Form("brugernavn")," ' "," " ))
adgangskode = Trim(Replace(Request.Form("adgangskode")," ' "," " ))

brugernavn = Replace(brugernavn, "'", "")
adgangskode = Replace(adgangskode, "'", "")
   
'Den slår ens brugernavn og adgangskode op i databasen
    strQ = "SELECT * FROM login WHERE (adgangskode='" & adgangskode & "')" & _
            " AND (brugernavn = '" & brugernavn & "');"
   
    rs.Open strQ, strConn
   
'Kan den ikke finde en bliver man sendt tilbage med en fejlmeddelelse
    If rs.EOF Then
   
    Response.Redirect("login.asp?mode=fejl")
   
'Kan den godt finde en bliver session("Adgang") sat til Godkendt så man kan komme ind til admin.asp
    Else
   
    Session("Adgang") = "Godkendt"
   
    Response.Redirect("admin.asp")
   
    End If
    rs.Close
    Set rs = Nothing
   
    Con.Close
    Set Con = Nothing
   
'--- Forsiden ---
else %>
    <CENTER> <table border="0" cellspacing="1" cellpadding="2">
      <tr>
        <td>
       
        <FORM ACTION="login.asp?mode=kontrol" METHOD="post" NAME="Login">
        <center>
       
        <strong>Login Til Webmaster</strong><br><br>
       
<%
'Når man skriver forkert adgangskode eller forsøger at komme ind på en side hvor man ikke har tilladelse bliver man gjort opmærksom på det her
    Select Case Request.QueryString("mode")
    case "fejl" %><div><font color="#FF0000">Fejl i Brugernavn eller Adgangskode prøv igen...</font><br><br></div><%
    case "forbudt" %><div><font color="#FF0000">Du skal være logget ind, for at bruge disse ting...</font><br><br></div><%
   
    End Select
%>
        Brugernavn<br>
        <INPUT TYPE="text" NAME="Brugernavn" class="field" size="20">
        <br><br>
        Adgangskode<br>
        <INPUT TYPE="password" NAME="Adgangskode" class="field" size="20">
        <br><br>
        <INPUT TYPE="submit" VALUE="Login" class="button">
        </form>
        </center>
        </td>
      </tr>
      </table></CENTER>
  <br>
  <center>
  <a href="default.asp"><strong>Tilbage </strong> </a>
  </center>
<% End if %>
</body>
</html>