% response.buffer = true Dim objCookie For Each objCookie in Request.Cookies Response.Cookies(objCookie).Expires = now()-30 Next %>