' This is always a good idea when dealing with
' cookies! Especially cookies and a redirect!
Response.Buffer = True
' This script handles both the adding and deleting of cookies
Dim strCookieName ' The name of the cookie we're processing
Dim strCookieValue ' The value to be assigned to it
' Get the values passed in by the other script
strCookieName = CStr(Request.QueryString("name"))
strCookieValue = CStr(Request.QueryString("value"))
' If no name is passed in then we don't do anything
If strCookieName <> "" Then
' This is so the cookie will apply to any ASP 101
' server not just the one that set it.
'Response.Cookies(strCookieName).Domain = ".asp101.com"
' I removed the above line because people were having trouble
' getting the script to run on their servers!
' Set the value of the cookie. You need to set the
' value to something even if you're trying to delete
' it! If you set it to "" then it won't work! If the
' value passed in is nothing then we know to expire
' the cookie by setting it's expiration date to
' yesterday, otherwise we set it to expire tomorrow.
If strCookieValue <> "" Then
Response.Cookies(strCookieName) = strCookieValue
Response.Cookies(strCookieName).Expires = Date() + 1
Response.Cookies(strCookieName) = "must be something!"
Response.Cookies(strCookieName).Expires = Date() - 1
' Bounce users back to the display page