cookies login

mit login felt.

<% if session("loginoki") = "" then %>
      <form action="login.asp" method="post">Username:<BR>
      <input type="hidden" name="send1" value="send1">
      <INPUT
      style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BACKGROUND: #cccccc; FONT: bold 10px verdana; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid"
      size=14 name="FBruger"><BR><BR>Password:<BR><INPUT
      style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BACKGROUND: #cccccc; FONT: bold 10px verdana; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid"
      type=password size=14 name="FPass"><BR><% response.Write request.QueryString("loginskriv") %>
            <BR>
            <INPUT style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BACKGROUND: #cccccc; FONT: bold 10px verdana; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid" type=submit value=Enter!> <br>
<a href="default.asp?id=opretbruger">Opret bruger</a>
            </form>
            <% else %>
            Velkommen:<br>
        <% response.Write session("loginoki") %><br><br>
        Din Status er:<br>
<% response.write ""&session("forumbruger")&session("forumadmin")&session("daadminbruger")&"" %>
            <% end if %>
            <% if not session("loginoki")  = "" then %>
          <br><br><a href="default.asp?id=logud">Logud</a><br>
        <% end if %>


login.asp


<%
if request("send1") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Database/brugerdatabasen.mdb")
Conn.Open DSN

Dim Bruger, Pass
Bruger = Trim(Request.Form("FBruger"))
Pass = Trim(Request.Form("FPass"))
SQL = "SELECT * FROM Tuser WHERE (FBruger = '"& Bruger &"')"
set rs = conn.execute(SQL)
'Undersøg om det er det rigtigt Password og send til loginsiden hvis det er forkert ellers sender den til Lektiesiden.
If rs.EOF Then
  response.redirect "default.asp?loginskriv=Forkert brugernavn"
elseif rs("FPass") = pass Then
    if rs("godkendt") = "2" Then
          if rs.fields("brugerlevel") = "1" then
          session("loginoki") = Bruger
          Session("forumbruger") = "Member"
          response.redirect "default.asp?bruger="&Bruger&""
      elseif rs.fields("brugerlevel") = "2" then
            session("loginoki") = Bruger
          Session("forumadmin") = "Forum admin"
          Session("kanaltiverden") = "daadminnegerpikneger"
          Session("ID") = rs("id")
          response.redirect "default.asp?bruger="&Bruger&""
      elseif rs.fields("brugerlevel") = "3" then
            session("loginoki") = Bruger
          Session("daadminbruger") = "über admin"
          Session("kanaltiverden") = "daadminnegerpikneger"
          Session("ID") = rs("id")
          response.redirect "default.asp?id=bruger1&bruger="&Bruger&""
      end if
    Else
      response.redirect "default.asp?loginskriv=Brugeren er ikke aktiveret"
    end if

Else
  response.redirect "default.asp?loginskriv=Forkert password"
end if
end if
%>

nogle der kan fortække mig hvordan det skal komme til at virke med cookies ?

fortælle.

nu har jeg faktisk lavede noget.. og det virker men synes det virker for godt, alt for godt.
jeg sætter et mærke i husk mig.. så husker den det.. men hvis der ikke er noget mærke husker den det stadig.

min start side..

if lcase(Request.Cookies("login")("gem")) = "ja" then
  navn = Request.Cookies("login")("brugernavn")
  pass = Request.Cookies("login")("password")
end if
%>
<form method="post" action="login.asp">
<input type="hidden" name="send1" value="send1">
Brugernavn:<br>
<input name="FBruger" size="14" id=Login  style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BACKGROUND: #cccccc; FONT: bold 10px verdana; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid" onFocus="this.value=''" value="<%=navn%>">
Password:<br>
<input type="password" name="FPass" size="14"    style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BACKGROUND: #cccccc; FONT: bold 10px verdana; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid" id=Password value="<%=pass%>" onFocus="this.value=''"><br>
<% response.Write request.QueryString("loginskriv") %><br>
<INPUT style="BORDER-RIGHT: black 1px solid; BORDER-TOP: black 1px solid; BACKGROUND: #cccccc; FONT: bold 10px verdana; BORDER-LEFT: black 1px solid; BORDER-BOTTOM: black 1px solid" type=submit value=Enter!> <br>
<input type="checkbox" value="gemmig" name="huskmig">Husk mig<br>
<a href="default.asp?id=opretbruger">Opret bruger</a>
</form>

login.asp

<%
if request("send1") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Database/brugerdatabasen.mdb")
Conn.Open DSN

Dim Bruger, Pass
Bruger = Trim(Request.Form("FBruger"))
Pass = Trim(Request.Form("FPass")))
SQL = "SELECT * FROM Tuser WHERE (FBruger = '"& Bruger &"')"
set rs = conn.execute(SQL)
'Undersøg om det er det rigtigt Password og send til loginsiden hvis det er forkert ellers sender den til Lektiesiden.
If rs.EOF Then
  response.redirect "default.asp?loginskriv=Forkert brugernavn"
elseif rs("FPass") = pass Then
    if rs("godkendt") = "2" Then
          if rs.fields("brugerlevel") = "1" then
          session("loginoki") = Bruger
          Session("forumbruger") = "Member"
          response.redirect "default.asp?bruger="&Bruger&""
      elseif rs.fields("brugerlevel") = "2" then
            session("loginoki") = Bruger
          Session("forumadmin") = "Forum admin"
          Session("kanaltiverden") = "daadminnegerpikneger"
          Session("ID") = rs("id")
          response.redirect "default.asp?bruger="&Bruger&""
      elseif rs.fields("brugerlevel") = "3" then
            session("loginoki") = Bruger
          Session("daadminbruger") = "über admin"
          Session("kanaltiverden") = "daadminnegerpikneger"
          Session("ID") = rs("id")
          response.redirect "default.asp?id=bruger1&bruger="&Bruger&""
      end if
    Else
      response.redirect "default.asp?loginskriv=Brugeren er ikke aktiveret"
    end if

Else
  response.redirect "default.asp?loginskriv=Forkert password"
end if
if Request.Form("huskmig") = "gemmig" then
  'Gem cookien
  Response.Cookies("login")("brugernavn") = Request.Form("FBruger")
  Response.Cookies("login")("password") = Request.Form("FPass")
  Response.Cookies("login")("gem") = "ja"
  Response.Cookies("login").Expires = Date+365
elseif Request.Form("huskmig") = "" then
    Response.Cookies("login")("brugernavn") = " XX "
    Response.Cookies("login")("password") = "XX"
    Response.Cookies("login")("gem") = "nej"
    Response.Cookies("login").Expires = Date-365
end if
end if
%>

hmm hvordan gør jeg.. ??

lukker spg.