Overførsel af af sessionsvariabel .asp

Kære Orakel, på forhånd tak for hjælpen..!!

Jeg har et asp script der checker for brugernavn og password. Dette sker igennem en sessionsvariabel og dette fungere OK.

Brugeren har nu mulighed for at lave et indlæg der gemmes i en DB, til dette har jeg oprettet et asp script der gemmer informationerne fra en form. Dette fungere osse fint.

Nu vil jeg have at gem funktionen automatisk skriver brugernavnet til DB og dette havde jeg regnet med at gøre med en sessionsvariabel, jeg kan bare ikke få det til at fungere.

Jeg har brug for at vide hvordan jeg definerer sessionsvariablen i "login" scriptet og hvordan jeg henter den igen når jeg kører"gem" funktionen.

Her er de to scripts jeg bruger, først login scriptet og efterfølgende gem funktionen.


logincheck:

<%
SET RS = Server.CreateObject("ADODB.Connection")
rs.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/database.mdb")

If Request("mode") = "Check" then

Function unQuote(strTekst)
  strTekst = Trim(strTekst)
  unQuote = Replace(strTekst,"%","53")
End Function

' Gemmer formfelterne i Variabler
    strUsername = unQuote(request("username"))
    strPassword = unQuote(request("password"))
       

Sql = "Select Count(*) as Found from user where (username = '" & strUsername  & "') and (password ='" & strPassword  & "')"
Set LO = RS.Execute(Sql)
 
    if LO("Found") = 0 then
        Session("login") = ""
        error = response.Redirect("/default.asp?page=245")
      else
          strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")
          Set myConn = Server.CreateObject("ADODB.Connection")
          myConn.Open strDSN
          strSQL = "SELECT * FROM user where (username = '" & Request("username") & "') and (password ='" & Request("password") & "')"
          Set ez = myConn.Execute(strSQL)
            Session("login") = "yes mate"
   
        response.redirect "../default.asp"
   

   
            EZ.Close
            RS.Close
            myConn.Close
          end if
    end if%>


<form method="POST" action="/password/login.asp">
<input type="hidden" name="mode" value="Check">
                 
Brugernavn:
<input type='text' name='username'' value="<%=strbrugernavn%>">
                   
Password:
<input type="password" value="<%=strpassword%>" name="password">
<input type="reset" value="Slet" name="reset">
<input type="submit" value=" Log In " name="submit">
<%=error%>
</form>


Og "gem" scriptet

<%@ LANGUAGE="VBSCRIPT"%>


    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.ConnectionTimeout = 15
    Conn.CommandTimeout = 30
        Conn.Open ("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb"))

    id = Request.querystring("id")
   
    Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set RS = Server.CreateObject("ADODB.Recordset")
    cmdTemp.CommandText = "SELECT nyhed.* FROM nyhed"
    cmdTemp.CommandType = 1
    Set cmdTemp.ActiveConnection = Conn
    RS.Open cmdTemp, , 3, 3
       

RS.AddNew

RS("opretId") = "her skal brugernavnet tilføjes"
RS("dato")= FormatDateTime(now, vbLongDate)
RS("overskrift") = Request.Form("overskrift")
RS("appetit") = Request.Form("appetit")
RS("nyhed") = Request.Form("nyhed")
RS.Update

RS.Close
SET RS = Nothing
Conn.Close
SET Conn = Nothing
%>

<%Response.Clear%>
<%Response.Redirect"oversigt.asp"%>
<%Response.End%>