Non sò gestire i cookie

[Ramboexp]

Scusate, vi posto questa pagina che non è altro che la pagina login dello script registrazione e gestione utenti , in italiano che ho scaricato ( di D. Milea)
Quello che vorrei e che al ritorno sul sito non debba effettuare sempre il login.
Cosa devo fare per fare in modo che il login sia sempre automatico? Settare l'Expires del cookie? e come si fà?
Grazie per l'aiuto

<%
Dim str_code
Dim str_password

If Request.QueryString("step") = "2" THEN
	'Rimuovo l'username e la password da caratteri illegali come per esempio '.
	str_username = Replace(Request.Form("username"), "'", "''")
	str_password = Replace(Request.Form("password"), "'", "''")

	Set rs_login = Server.CreateObject ("ADODB.RecordSet")
	strSQL = "SELECT * FROM tbl_authors WHERE name='" & str_username & "' AND pass='" & str_password & "'"
	rs_login.open strSQL,adoCon

	'Se la combinazione username e password non esiste, reindirizzo l'utente ad un altra pagina
	If rs_login.EOF _
	Or rs_login.BOF Then
		Response.Redirect("login_errato.asp")
	Else
		'Scrivo l'user code nel cookie
		Response.Cookies("Login")("userCode") = rs_login("code")
		
		'Reindirizzo alla pagina appropriata
			Response.redirect("default.asp")
		End If
	End If
%>
<center>
<% If Request.QueryString("disp") = "login" Then %>


Grazie per esserti registrato, <%=Session("tmpUN")%>! Per loggarti inserisci la password</p>
<% Else %>


Se non sei registrato, registrati!</p>
<% End If %>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="14">
  <tr>
    <td width="100%" height="14">
    <p align="center">Login</p>
    </td>
  </tr>
</table>
<form action="login.asp?step=2" method="post" onReset="return confirm('Cencello i campi?');">
  <div align="center">
    <center>
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="300">
      <tr>
        <td>Username</td>
        <td>
        <input type="text" name="username" size="30" maxlength="80" value="<%If Request.QueryString("disp") = "login" Then Response.Write(Session("tmpUN")) Else Response.Write(str_users_name) End If%>"></td>
      </tr>
      <tr>
        <td colspan="2" height="8"></td>
      </tr>
      <tr>
        <td>Password</td>
        <td><input type="password" name="password" size="30" maxlength="80"></td>
      </tr>
      <tr>
        <td colspan="2" height="8"></td>
      </tr>
      <tr>
        <td colspan="2">
        <p align="center"><input type="submit" value="Login">
        <input type="reset" value="Reset"> </p>
        </td>
      </tr>
      <tr>
        <td colspan="2" height="8"></td>
      </tr>
      <tr>
        <td colspan="2">
        <p align="center">Recupera password</p>
        </td>
      </tr>
    </table>
    </center>
  </div>
</form>
</center>

[Roby_72]

http://www.w3schools.com/asp/coll_cookies.asp

Roby