Código fuente de 'Asigna cookies 2.asp'
<html>
<head>
<title>Asigna cookies 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Asigna cookies 2</font></b></p>
<body style="font-family: Arial; font-size: 11pt">
<%
'Primero que nada nos fijamos si ya está lleno el formulario.
If Request.Form ("nombre") <> "" then
'Si ya se completó, creamos la Cookie.
'Recuerden que la función Trim es para sacar los espacios.
'en blanco a izquierda y derecha si existen.
Response.Cookies ("nombre") = Trim(Request.Form ("nombre"))
'Con la siguiente sentencia se indica la "vida" de la Cookie.
Response.Cookies("Nombre").Expires = "1/1/2005"
End If
'Empieza la página.
'Nos fijamos si ya existe una Cookie.
If Request.Cookies ("nombre") <> "" Then
'Si existe, la mostramos asi.
Response.Write "La cookie se ha creado. Hola " & Request.Cookies ("nombre")
Response.Write "<BR>Como ves, esto de las cookies es útil"
Else
'Mostramos el formulario para que sea completado.
Response.Write "Ingresa tu nombre en el formulario. Crearemos una cookie con él."
%>
<FORM ACTION="asigna cookies 2.asp" METHOD="POST">
<INPUT NAME=nombre SIZE=10>
<INPUT TYPE="Submit" VALUE="¡Crear Cookie!">
</FORM>
<% End If %>
</body>
</html>