ClearAllCookies

Clears all cookies created by Linkedin login, and clear sessions

CodeFunctionName
What is this?

Public

Tested

Original Work
<%
Sub ClearAllCookies()
    Session.Abandon
    Response.Cookies(cookieID).Expires = Now()
    Response.Cookies(cookieID & "in_id").Expires = Now()
    Response.Cookies(cookieID & "in_1stname").Expires = Now()
    Response.Cookies(cookieID & "in_lastname").Expires = Now()
    Response.Cookies(cookieID & "in_email").Expires = Now()
    Response.Cookies(cookieID & "in_headline").Expires = Now()
    Response.Cookies(cookieID & "in_numConn").Expires = Now()
    Response.Cookies(cookieID & "in_PicUrl").Expires = Now()
    Response.Cookies(cookieID & "in_profilelink").Expires = Now()
    Response.Cookies(cookieID & "in_profilelink2").Expires = Now()
    Response.Cookies(cookieID & "in_profilelink3").Expires = Now()
    Response.Cookies(cookieID & "in_specialties").Expires = Now()
    Response.Cookies(cookieID & "in_Summary").Expires = Now()
   
    Response.cookies(CookieID & "siteuserid").Expires = Now()
   
   
    ' You may also do ....
    For Each objCookie In Request.Cookies ' loop through cookie collection
        ' delete the cookie by setting its expiration Date to a Date In the past
        Response.Cookies(objCookie).Expires = "September 7, 1998"
    Next
End Sub

% >

Views 4,862

Downloads 1,362

CodeID
DB ID