<%
Dim CacheName
CacheName = Replace(Replace(Replace(Replace(LCase(Server.MapPath("logout.asp")), "logout.asp", ""), ":", ""), "\", ""), "admin", "")
Session.Abandon
Session(CacheName & "AdminName")=""
Session(CacheName & "AdminPass") = ""
Session(CacheName & "Purview")=""
Session(CacheName & "adminid")=""
Response.Redirect ("../")
%>