Huske brugernavn & Pass?

Jeg har i en anden gruppe fået oplyst disse koder for at huske brugernavn og password i cookies. Er de gode?

<%
If Request.Form("fldHusk") = "ok" Then
Response.Cookies("Husk")("Brugernavn") = Request.Form("fldBrugernavn")
Response.Cookies("Husk")("Adgangskode") = Request.Form("fldAdgangskode")
Else
Response.Cookies("Husk")("Brugernavn") = ""
Response.Cookies("Husk")("Adgangskode") = ""
End If
%>


Og er der en som gider hjælpe mig med at sætte dem ind i mine koder?


<div align="center">

  <table border="0" width="75%" cellspacing="0" cellpadding="3" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0); border-top: 1px solid rgb(0,0,0); border-bottom: 1px solid rgb(0,0,0)">
  <tr>
  <td width="100%">
 
<%
select case mode
case "login"
%>
<table border=1>
<form method="post" action="<%=adminFilNavn%>?mode=chkpass" name="adminlogin">
<!--  <tr><td>User:</td><td><input name="username"></td></tr> -->
  <tr><td>Brugernavn:</td><td><input type="password" name="username"></td></tr>
  <tr><td>Password:</td><td><input type="password" name="password"></td></tr>
  <tr><td colspan=2 align="center"><input type="submit" value="Videre" name="Action"></td></tr>
</form>
</table>
<%

case "chkpass"
  Set myConn = Server.CreateObject("ADODB.Connection")
  myConn.Open tempConn

  username = fixSring(Request("username"))
  password = fixSring(Request("password"))
  strSQL= "SELECT * FROM members WHERE username = '" & username & "' AND password='" & password & "';"
  Set rs = myConn.Execute (strSQL)

  if not rs.EOF then
    Session("adminguest") = "LuGuLoKuJh"
    myConn.close
    Response.Redirect("" & adminFilNavn & "?mode=selecttype")
  else
    Session("adminguest") = ""
    Session("saveip") = ""
    myConn.close
    Response.Redirect(adminFilNavn)
  end if
 
case "selecttype"
%>