Lille problem

Jeg kan ikke få dette til at virke

<%
Response.Buffer = True
SET rs = Server.CreateObject(\"ADODB.Connection\")
rs.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")

if request(\"Mode\") = \"logaf\" then
session.Abandon
Response.Redirect(\"default.asp\")
end if

IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"Default.asp\")
end if


Sql = \"Select * FROM users WHERE username = \'\" & session(\"password-session\") & \"\'\"
set rs = rs.Execute(SQL)
%>

<head>

<title></title>
<script language=\"Javascript\">
//Script from http://www.viewaource.dk

function jmp()
{
parent.top.document.location.href=\"http://www.aqua-world.dk/test\"
}
</script>
</head>

<body bgcolor=\"#000000\" text=\"#C0C0C0\" link=\"#800000\" vlink=\"#800000\" alink=\"#800000\">

<table border=\"0\" width=\"100%\" cellspacing=\"1\">
  <tr>
    <td width=\"42%\"><font face=\"Arial\">Velkommen <% = rs(\"RigtigNavn\") %> </font> </td>
    <td width=\"48%\"></td>
    <td width=\"10%\">
<a href=\"bruger.asp?mode=logaf\"><font face=\"Arial\" color=\"#C0C0C0\">Log af</font></a>
    </td>
  </tr>
</table>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" height=\"151\" cellpadding=\"0\">
  <tr>
    <td width=\"100%\" height=\"147\" valign=\"top\"><font face=\"Arial\">Du er nu
      logget ind.</font><p><font face=\"Arial\">Vent 2 sec.</font></p>
    <p>&nbsp;</td>
  </tr>
</table>
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\">
  <tr>
    <td width=\"13%\"></td>
    <td width=\"61%\"></td>
    <td width=\"26%\"></td>
  </tr>
</table>

Også ville jeg gerne have så man ikke kan se Javascriptet i browseren alså hvis du trykker højreklik også view source