Vil ikke gemme cookie i login script?

Hej, jeg har et lille problem med et simpel lille loginscript som jeg har lavet.
Problemet er at hvis man sætter flueben ved Remember me, skal den gemme en cookie på computeren med informationer, så at brugeren næste gang ikke skal logge ind.
Men den vil bare ikke gemme den cookie og jeg aner ikke hvorfor.
Det er koden:

<!--#include file="../../config.asp" -->
<!--#include file="md5.asp" -->
<%
 
  'Here we open the database and make a username variable from the username column and password form the password column
  Set rs = Server.CreateObject("ADODB.Recordset")
  strsql = "SELECT * FROM login order by id DESC"
  con.execute(strsql)
  rs.Open strsql, con, 1, 2
  Do While NOT rs.EOF
  username = rs("username")
  password = rs("password")
  level = rs("level")
 
  'Here we find put if the user has a cookie on his computer, and if so the it's makes a session
  if Request.Cookies("login")("status") = "ok" then
  session("status") = "ok"
  session("username") = Request.Cookies("login")("username")
  session("password") = Request.Cookies("login")("password")
  session("level") = Request.Cookies("login")("level")
  end if

  'Here if the login is true then it checks if there is the username and md5 encypted password in the database that is same as the enterd one
  if login = "true" then
  if Request.Form("username") = username AND md5(Request.Form("password")) = password then
  session("status") = "ok"
  session("username") = Request.Form("username")
  session("password") = md5(Request.Form("password"))
  session("level") = level
  if Request.Form("saveme") = true AND session("status") = "ok" then
  Response.Cookies("login")("username") = session("username")
  Response.Cookies("login")("password") = session("password")
  Response.Cookies("login")("level") = session("level")
  Response.Cookies("login")("status") = session("status")
  Response.Cookies("HTMLTest").Expires = Date+365
  end if
    Response.Redirect("default.asp?page=0")
  end if
  end if
  rs.MoveNext
  loop
  set rs = nothing
  if  (Request.Form("username") <> username OR md5(Request.Form("password")) <> password) AND login = "true" then
  Response.Write("<div align=""center"" style=""color:#FF0000;background-color:#CCCCCC;font-size:12px;""><b>Username or password is wrong!</b></div>")
  end if

%>
<form action="default.asp?login=true" method="post">
Username:
<input type="text" name="username" /><br />
Password:
<input type="password" name="password" /><br />
Remember me: <input type="checkbox" name="saveme" /><br />
<input type="submit" value="Login" />
</form>
<%
  con.Close
  set con = nothing
%>