Session dur ikke ??

Jeg har to form felter "brugernavn" og "kode". Når de tastes kommer jeg til denne side:

<% Dim navn, kode
          navn = request.form("Brugernavn")
          kode = request.form("Kode")
         
          'Her logger administrator ind hvis der tastes Admin og Admin
          If navn = "admin" AND kode = "admin" then
          response.redirect("admin.asp")
          else
         
          'Ellers søges der i databasen for at finde brugernavn og kode
         
dim strBrugernavn, strKode
         
          strBrugernavn = Trim(Replace(Request.Form("brugernavn"),"'",""))
          strKode = Trim(Replace(Request.Form("kode"),"'",""))

If Len(strBrugernavn) > 0 And Len(strKode) > 0 Then

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

strSQL = "SELECT * FROM bruger WHERE (brugernavn = '" & strBrugernavn & "') AND (kode = '" & strKode & "')"

'strSQL sætning der blev bygget ovenfor, afvikles
Set rs = myConn.Execute(strSQL)

'Hvis brugernavn og kode findes, afvikles nedenfor
If Not (rs.BOF Or rs.EOF) Then

session.contents("Brugernavn") = strBrugernavn
Response.Redirect("bruger.asp")

Else

response.redirect("fejl.asp")
End If

myConn.Close
Set myConn = Nothing
End If
End If
%>


Jeg henter dem ind i bruger.asp sådan:

<%
dim fornavn, efternavn, point, brugernavn, kode

session.contents("fornavn")=TRIM(Request.Form("fornavn"))
session.contents("efternavn")=TRIM(Request.Form("efternavn"))
session.contents("point")=TRIM(Request.Form("point"))
session.contents("brugernavn")=TRIM(Request.Form("brugernavn"))
session.contents("kode")=TRIM(Request.Form("kode"))
%>


Og udskriver dem sådan:

<%=session.contents("fornavn")%>

Men der bliver ikke skrevet noget ud - HVORFOR???