session baseret login sytem skal cookie baseres

Hej
Har lavet et loginsystem der opretter en session, hvis en bruger logger ind. Problemet er at det virker ad H til.
Det er meningen at, når en bruger er logget ind, så skal sessionen vare en time, men fakta er, at man bliver logget ud i tide og utide. Nogle gange rigtignok efter en time, men andre gange efter blot et par minutter.

Derfor vil jeg gerne have en cookie til at styre det, da jeg har ladet mig fortælle, at disse er mere stabile.

Jeg har ikke arbejdet med cookies før, så jeg mangler hjælp til at få lavet sytemet om, således at der lagres en cookie på brugerens PC. Denne skal så leve i en time, eller indtil brugeren klikker på en "Log ud" knap.


Her er nogle forskellige kodestykker:

Login/logud formular, der befinder sig på alle sider:

<%
  If Not Session.contents("login") = true Then
%>           
            <form name="login" method="post" action="../lokalinfo/login_tjek.asp">
              <table width="134" height="150" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="7"><br>
 
    <label></label>  </td>
                  <td valign="top"><br>
                  Brugernavn
                      <input name="brugernavn" type="text" id="brugernavn" size="15">
                 
                    <br>
                    <br>
Password
<input name="password" type="password" id="password" size="15">
                   
                    <br>
                    <a href="#" onClick="document.login.submit();"><br>
[Log ind]<br>
                    </a></td>
                </tr>
              </table></form>
              <%else%>
                <%
Dim RSbruger
Dim RSbruger_numRows

Set RSbruger = Server.CreateObject("ADODB.Recordset")
RSbruger.ActiveConnection = MM_ballumby_STRING
RSbruger.Source = "SELECT *  FROM brugere  WHERE brugernavn =  '" & Session.contents("brugernavn") & "'"
RSbruger.CursorType = 0
RSbruger.CursorLocation = 2
RSbruger.LockType = 1
RSbruger.Open()

RSbruger_numRows = 0
%>
              <table width="134" height="150" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="7">
                    <label></label></td>
                  <td valign="top"><strong><br>
                    Hej <%=(RSbruger.Fields.Item("fornavn").Value)%></strong>.<br>
                    <br>
Du kan nu bruge &nbsp;<br>
Styringsmenuen forneden.<br>
<br>
Husk at logge ud n&aring;r du forlader din pc.
<br>
<br>
<a href="../lokalinfo/logout.asp">[Log ud]</a></td>
                </tr>
              </table>             
              <%end if%>

-------------------------------
login_tjek.asp: Side der tjekker login formularen
-------------------------------
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Set MyRS = Server.CreateObject("ADODB.RecordSet")

    MyConnection = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/database.mdb")
    Conn.Open MyConnection
    MySQL = "Select * from Brugere where brugernavn='" & request.form("Brugernavn") & "'"

' response.write(MySQL)
    set MyRS = Conn.Execute(MySQL)

if MyRS.EOF then
Response.Redirect (Request.ServerVariables("HTTP_REFERER"))

elseif request.form("password")=MyRS("password") then
Session("login")=True
Session("brugernavn")= MyRS("brugernavn")
Session("rang")= MyRS("rang")


MyRS.Close
Conn.Close

Response.Redirect (Request.ServerVariables("HTTP_REFERER"))

else
Response.Redirect (Request.ServerVariables("HTTP_REFERER"))
end if
%>


----------------------------
Denne kode ligger på alle sider, og skal sørge for at man fortsat er logget ind.
----------------------------

<%Session.Timeout=60%>


----------------------------
Denne kode findes på alle "lukkede" sider:
----------------------------

If Not Session.contents("login") = true Then
  response.Redirect("../denied.asp")
  else
  if Session.contents("rang") <> "admin" AND Session.contents("rang") <>"superbruger" AND Session.contents("rang") <>"bruger" Then
  response.Redirect("../denied.asp")
  end if
end if

er der nogen der kan hjælpe mig med at få løst dette problem???