<!--
// ============================================================================
// ========= Classified Ventures, 2000 ========================================
// ========= Written 5/23/2000 by Lenny Shleymovich ===========================
// ============================================================================
//
// ============================================================================
function CVCookieSave( name, cookievalue, months )
{
	var timestamp = new Date();
	timestamp.setMonth(timestamp.getMonth()+months);
	document.cookie = name + "=" + escape( cookievalue ) +
					";expires=" + timestamp.toGMTString() + ";path=/";
}

function CVCookieRetrieve( name )
{
	var cookiestring = new String();
	var allcookies = document.cookie;
	var idx = allcookies.indexOf( name + '=' );
	
	if( idx != -1 )
	{
		var start, end;
		start = idx + name.length + 1;
		end = allcookies.indexOf( ";", start );
		if( end == -1 ) end = allcookies.length;
		cookiestring = unescape( allcookies.substring( start, end ) );
	}
	return cookiestring;
}

function CVCookiePack(oldPack, name, value)
{
	var i, pair;
	var newPair = escape(name) + '=' + escape(value);
	var packArray = oldPack.split('&');

	for(i=0; i < packArray.length; ++i)
	{
		pair = packArray[i];
		if(pair.length > 0)
		{
			pair=pair.split('=');
			if(name == unescape(pair[0]))
			{
				break;
			}
		}
	}
	if(i < packArray.length)
	{
		packArray[i] = newPair;
	}
	else
	{
		packArray = packArray.concat(newPair);
	}
	// repack
	oldPack = "";
	for(i=0; i < packArray.length; ++i)
	{
		pair = packArray[i];
		if(pair.length > 0)
		{
			pair=pair.split('=');
			if(pair.length>1)
			{
				if(pair[1].length>0)
				{
					if(oldPack.length>0) oldPack += "&";
					oldPack += packArray[i];
				}
			}
		}
	}
	return oldPack;
}

//<%
function CVCookieUnpack(oldPack, name)
{
	var i, pair, flag;
	var value = "";
	var packArray = oldPack.split('&');

	flag = false;
	for(i=0; i < packArray.length; ++i)
	{
		pair = packArray[i];
		if(pair.length > 0)
		{
			pair=pair.split('=');
			if(name == unescape(pair[0]))
			{
				value = unescape(pair[1]);
				break;
			}
		}
	}

	return value;
}
//%>

function CVCookiePackedSave( pack, name, cookievalue, months )
{
	var oldPack = CVCookieRetrieve(pack);
	var newPack = CVCookiePack(oldPack, name, cookievalue);
	CVCookieSave(pack, newPack, months);
}

function CVCookiePackedRetrieve( pack, name )
{
	var ret;
	ret = CVCookieRetrieve(pack);
	return CVCookieUnpack(ret, name);
}

//-->