function DeleteCookie(Name) {
  var Expires = new Date((new Date()).getTime() - 1);
  document.cookie = Name + "=" + escape("-1=N") + "; expires=" +  Expires.toGMTString() + "; path=/" ;  
}
function SetPersistenceCookie(Name, Value, Expires) {
  document.cookie = Name + "=" + escape(Value) + "; expires=" +  Expires.toGMTString() + "; path=/" ;  
}
function SetCookie(Name, Value) {
  document.cookie = Name + "=" + escape(Value) + "; path=/";
}
function LTrim(Name) {
     if (Name.length > 0) {
         if (Name.indexOf(" ") == 0) {
	return (Name.substring (1, Name.length));
         }
     }
}
function getCookieVal(offset) {
  var endstr = document.cookie.indexOf (";", offset);
  if (endstr == -1)
    endstr = document.cookie.length;
  return unescape(document.cookie.substring(offset, endstr));
}
function GetASPCookie(Name) {
  var arg = Name + "=";
  var alen = Name.length;
  var clen = document.cookie.length;
  var i = 0;
  while (i < clen) {
    var j = i + alen;
    if (document.cookie.substring(i,j) == Name) {
       return getCookieVal (j+1);
    }
    i = document.cookie.indexOf(" ", i) + 1;
    if (i == 0) break;
  }
  return -1;
}
function SubscriptNewsletter2(NewsletterID, SubscribFlag) {
	var SubscribeList = GetASPCookie("NewsletterList");
	if (SubscribeList == "-1") {
	      SetCookie("NewsletterList", "-1=N");
	      SubscribeList = GetASPCookie("NewsletterList");
	}
	SearchStr = "&" + NewsletterID
	NewsletterLocation = SubscribeList.indexOf(SearchStr);
	if (NewsletterLocation == -1) {
		if (SubscribFlag) 	
			 RelSubscribeList = SubscribeList + "&" + NewsletterID + "=Y";
		else		 
			 RelSubscribeList = SubscribeList + "&" + NewsletterID + "=N";	
	}
	else {		 
		if (SubscribFlag) 	
			RelSubscribeList = SubscribeList.substring(0, NewsletterLocation+SearchStr.length) + "=Y" + SubscribeList.substring(NewsletterLocation + SearchStr.length + 2, SubscribeList.length);		
		else 
			RelSubscribeList = SubscribeList.substring(0, NewsletterLocation+SearchStr.length) + "=N" + SubscribeList.substring(NewsletterLocation + SearchStr.length + 2, SubscribeList.length);		
	}			
	SetCookie("NewsletterList", RelSubscribeList);
}
function UnSubscriptNewsletter2(NewsletterID, SubscribFlag) {
	var UnSubscribeList = GetASPCookie("UnNewsletterList");
	if (UnSubscribeList == "-1") {
	      SetCookie("UnNewsletterList", "-1=N");
	      UnSubscribeList = GetASPCookie("UnNewsletterList");
	}
	SearchStr = "&" + NewsletterID
	NewsletterLocation = UnSubscribeList.indexOf(SearchStr);
	if (NewsletterLocation == -1) {
		if (SubscribFlag) 	
			 RelSubscribeList = UnSubscribeList + "&" + NewsletterID + "=Y";
		else		 
			 RelSubscribeList = UnSubscribeList + "&" + NewsletterID + "=N";	
	}
	else {		 
		if (SubscribFlag) 	
			RelSubscribeList = UnSubscribeList.substring(0, NewsletterLocation+SearchStr.length) + "=Y" + UnSubscribeList.substring(NewsletterLocation + SearchStr.length + 2, UnSubscribeList.length);		
		else 
			RelSubscribeList = UnSubscribeList.substring(0, NewsletterLocation+SearchStr.length) + "=N" + UnSubscribeList.substring(NewsletterLocation + SearchStr.length + 2, UnSubscribeList.length);		
	}			
	SetCookie("UnNewsletterList", RelSubscribeList);
}
function CheckSubscribtionCheckBox (objCheckBox) {
	if (objCheckBox.checked) {
		SubscriptNewsletter2(objCheckBox.value, true);						
	}
	else	
		SubscriptNewsletter2(objCheckBox.value, false);								
}
function UnCheck (objCheckBox) {
	objCheckBox.checked = false;
}
function CheckUnSubscribtionCheckBox (objCheckBox) {
	if (objCheckBox.checked) {
		UnSubscriptNewsletter2(objCheckBox.value, true);						
		SubscriptNewsletter2(objCheckBox.value, false);								
	}
	else	
		UnSubscriptNewsletter2(objCheckBox.value, false);								
}
function cookieNewsletterSubscribed () {
	var NewsList = GetASPCookie("NewsletterList");
	if (NewsList.indexOf("Y") != -1) {
		window.alert (NewsList);  //debug
		return true;
	}
	else
		return false;
}
function ShowSubscriptionCookie() {
	window.alert (GetASPCookie("NewsletterList"));
}
function ShowUnSubscribtionCookie() {
	window.alert (GetASPCookie("UnNewsletterList"));
}