Código fuente de 'Asigna cookies.asp'

<html>
<head>
<title>Asigna cookies - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Asigna cookies</font></b></p>
<br>
<br>
<body style="font-family: Arial; font-size: 9pt">
'Aquí tienes un código que asigna una cookie y que además se asegura de que ha sido asignada. 


<%
Response.Expires=0

strCookie = Request.Cookies("COOKIE")
strTry = Request.QueryString("Try")


If IsNull(strCookie) OR ( Len(strCookie) = 0) Then

	' Comprobar  if esto es una redirección después de que la cookie
	' haya sido establecida

	If IsNull(strTry) OR (Len(strTry) = 0) Then

		Response.Cookies("COOKIE") = "Set"

		' Redirigir a esta página y probar otra vez.
		Response.Redirect("Asigna cookies.asp?Try=Yes")
	Else

		'  Navegador/usuario no aceptaba cookies
		'  Hacer algo... (redirigir a astalaweb.com)
		
		Response.Redirect("http://www.astalaweb.com")

	End If
End If
%>

<p>&lt;%<br>
<i>Response.Expires=0<br>
<br>
strCookie = Request.Cookies(&quot;COOKIE&quot;)<br>
strTry = Request.QueryString(&quot;Try&quot;)<br>
<br>
<br>
If IsNull(strCookie) OR ( Len(strCookie) = 0) Then<br>
<br>
' Comprobar if esto es una redirección después de que la cookie<br>
' haya sido establecida<br>
<br>
If IsNull(strTry) OR (Len(strTry) = 0) Then<br>
<br>
Response.Cookies(&quot;COOKIE&quot;) = &quot;Set&quot;<br>
<br>
' Redirigir a esta página y probar otra vez.<br>
Response.Redirect(&quot;Asigna cookies.asp?Try=Yes&quot;)<br>
Else<br>
<br>
' Navegador/usuario no aceptaba cookies<br>
' Hacer algo... (redirigir a astalaweb.com)<br>
<br>
Response.Redirect(&quot;http://www.astalaweb.com&quot;)<br>
<br>
End If<br>
End If</i><br>
%&gt;</p>

</body>
</html>