function ScrollerOpen(_cElementID, _nWidth, _nHeight, _cDirection, _nSpeed, _nInterval, _nType, _nClearElement)
{
	var g_cScrollerHTML = '<SCRIPT language = "javascript">';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_n' + _cElementID + 'Width = ' + _nWidth + ';';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_n' + _cElementID + 'Height = ' + _nHeight + ';';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_n' + _cElementID + 'StepCounter = 0;';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_n' + _cElementID + 'ElementNb = 0;';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_n' + _cElementID + 'ElementIndex = 1;';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_c' + _cElementID + 'Timer = "";';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_c' + _cElementID + 'Direction = "' + _cDirection + '";';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_n' + _cElementID + 'Speed = ' + _nSpeed + ';';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_n' + _cElementID + 'Interval = ' + _nInterval + ';';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_o' + _cElementID + 'Interval = new Array();';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_n' + _cElementID + 'Type = ' + _nType + ';';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + 'var g_n' + _cElementID + 'ClearElement = ' + _nClearElement + ';';
	g_cScrollerHTML = g_cScrollerHTML + '\n' + '</SCRIPT>';
	
	document.write(g_cScrollerHTML);
	
	g_cScrollerHTML = '<TABLE cellpadding="0" cellspacing="0" border="0" id="table' + _cElementID + '" width="' + _nWidth + '" height="' + _nHeight + '"><TR><TD width="' + _nWidth + '" height="' + _nHeight + '" align="left" valign="top"><DIV id="div' + _cElementID + '" style="position:absolute;overflow : hidden; width : ' + _nWidth + '; height : ' + _nHeight + '; text-align : left;">';
	
	document.write(g_cScrollerHTML);
}

function ScrollerClose(_cElementID, _cLeft, _cTop)
{
	document.write("</DIV></TD></TABLE>");
	SetElementPosition('table' + _cElementID, _cElementID, _cLeft, _cTop);
}

function ScrollerAddElement(_cHTMLElement, _cElementID, _nInterval)
{
	eval('g_n' + _cElementID + 'ElementNb = g_n' + _cElementID + 'ElementNb + 1');
	var g_nCurrentElementNb = eval('g_n' + _cElementID + 'ElementNb');
	eval('var g_n' + _cElementID + 'ElementNb = ' + (g_nCurrentElementNb + 1));
	eval('g_o' + _cElementID + 'Interval.push(' + _nInterval + ')');
	document.write('<DIV id="' + _cElementID + 'Element' + g_nCurrentElementNb + '" style="position : absolute; display : none; width : ' + 'g_n' + _cElementID + 'Width' + '; height : ' + 'g_n' + _cElementID + 'Height' + '; overflow : hidden;">');
	document.write(_cHTMLElement);
	document.write('</DIV>');
}

function GetScrollerLimit(_cElementID, _cCorner)
{
	var g_oCurrentElement = document.getElementById('div' + _cElementID);
	var g_nCurrentWidth = eval('g_n' + _cElementID + 'Width');
	var g_nCurrentHeight = eval('g_n' + _cElementID + 'Height');
	var g_cCurrentPosition = '';
	if(g_oCurrentElement)
	{
		switch(_cCorner)
		{
			case("LEFT") :
				g_cCurrentPosition = String(g_oCurrentElement.style.left);
				if(g_cCurrentPosition.length > 0)
				{
					return parseInt(g_cCurrentPosition);
				}
				else
				{
					return 0;
				}
				break;
			case("RIGHT") :
				g_cCurrentPosition = String(g_oCurrentElement.style.left);
				if(g_cCurrentPosition.length > 0)
				{
					return  parseInt(g_cCurrentPosition) + g_nCurrentWidth;
				}
				else
				{
					return g_nCurrentWidth;
				}
				break;
			case("TOP") :
				g_cCurrentPosition = String(g_oCurrentElement.style.top);
				if(g_cCurrentPosition.length > 0)
				{
					return parseInt(g_cCurrentPosition);
				}
				else
				{
					return 0;
				}
				break;
			case("BOTTOM") :
				g_cCurrentPosition = String(g_oCurrentElement.style.top);
				if(g_cCurrentPosition.length > 0)
				{
					return  parseInt(g_cCurrentPosition) + g_nCurrentHeight;
				}
				else
				{
					return g_nCurrentHeight;
				}
				break;
		}
	}
	else
	{
		 return -1;
	}
}

function Scroll(_cElementID)
{
	var g_nCurrentElementIndex = eval('g_n' + _cElementID + 'ElementIndex');
	var g_oElement = document.getElementById(_cElementID + 'Element' + g_nCurrentElementIndex);
	var g_cCurrentDirection = eval('g_c' + _cElementID + 'Direction');
	var g_nCurrentSpeed = eval('g_n' + _cElementID + 'Speed');
	var g_nCurrentIntervalIndex = g_nCurrentElementIndex - 1;
	if (g_nCurrentIntervalIndex < 0)
	{
		g_nCurrentIntervalIndex = eval('g_o' + _cElementID + 'Interval.length');
	}
	var g_nCurrentInterval = eval('g_o' + _cElementID + 'Interval[g_nCurrentIntervalIndex]'); //eval('g_n' + _cElementID + 'Interval');
	var g_nCurrentType = eval('g_n' + _cElementID + 'Type');
	var g_nCurrentStepCounter = eval('g_n' + _cElementID + 'StepCounter');
	var g_nCurrentElementNb = eval('g_n' + _cElementID + 'ElementNb');
		
	eval('clearTimeout(g_c' + _cElementID + 'Timer)');
	
	if(g_oElement)
	{
		if(g_nCurrentStepCounter > 0 && g_nCurrentType < 4)
		{
			switch(g_cCurrentDirection)
			{
				case("LEFT") :
					if(g_nCurrentType <= 2)
					{
						g_oElement.style.left = parseInt(g_oElement.style.left) - 1;
					}
					else if(g_nCurrentType == 3)
					{
						g_oElement.style.width = parseInt(g_oElement.style.width) + 1;
					}
					break;
				case("RIGHT") :
					if(g_nCurrentType <= 2)
					{
						g_oElement.style.left = parseInt(g_oElement.style.left) + 1;
					}
					else if(g_nCurrentType == 3)
					{
						g_oElement.style.width = parseInt(g_oElement.style.width) + 1;
					}
					break;
				case("UP") :
					if(g_nCurrentType <= 2)
					{
						g_oElement.style.top = parseInt(g_oElement.style.top) - 1;
					}
					else if(g_nCurrentType == 3)
					{
						g_oElement.style.height = parseInt(g_oElement.style.height) + 1;
					}
					break;
				case("DOWN"):
					if(g_nCurrentType <= 2)
					{
						g_oElement.style.top = parseInt(g_oElement.style.top) + 1;
					}
					else if(g_nCurrentType == 3)
					{
						g_oElement.style.height = parseInt(g_oElement.style.height) + 1;
					}
					break;
			}
			eval('g_n' + _cElementID + 'StepCounter--');
			eval('g_c' + _cElementID + 'Timer = setTimeout("Scroll(\'' + _cElementID + '\')",' + g_nCurrentSpeed + ');')
		}
		else
		{
			if(g_nCurrentElementIndex < g_nCurrentElementNb)
			{
				eval('g_n' + _cElementID + 'ElementIndex = ' + (g_nCurrentElementIndex + 1));
			}
			else
			{
				eval('g_n' + _cElementID + 'ElementIndex = 1');
			}
			g_cScroller = setTimeout("StartScroll('" + _cElementID + "');",g_nCurrentInterval);
		}
	}
}

function StartScroll(_cElementID)
{
	var g_nCurrentElementIndex = eval('g_n' + _cElementID + 'ElementIndex');
	var g_nCurrentElementNb = eval('g_n' + _cElementID + 'ElementNb');
	var g_oCurrentElement = document.getElementById(_cElementID + 'Element' + g_nCurrentElementIndex);
	var g_nCurrentType = eval('g_n' + _cElementID + 'Type');
	var g_cCurrentDirection = eval('g_c' + _cElementID + 'Direction');
	var g_nCurrentClearElement = eval('g_n' + _cElementID + 'ClearElement');
	
	eval('clearTimeout(g_c' + _cElementID + 'Timer)');
	
	if(g_nCurrentType != 2)
	{
		if(g_nCurrentElementIndex > 1)
		{
			var g_oPreviousElement = document.getElementById(_cElementID + 'Element' + (g_nCurrentElementIndex - 1));
		}
		else
		{
			for(x = 2;x <= g_nCurrentElementNb;x++)
			{
				var g_oPreviousElement = document.getElementById(_cElementID + 'Element' + x);
				if(g_oPreviousElement)
				{
					g_oPreviousElement.style.display = 'none';
				}
			}
		}
	}
	
	if(g_oPreviousElement)
	{
		if(g_nCurrentClearElement > 0)
		{
			g_oPreviousElement.style.display = 'none';
		}
	}
		
	if(g_oCurrentElement)
	{
		g_oCurrentElement.style.display = '';
				
		if(g_nCurrentType == 4)
		{
			g_oCurrentElement.style.left = GetScrollerLimit(_cElementID, 'LEFT');
			g_oCurrentElement.style.top = GetScrollerLimit(_cElementID, 'TOP');
			eval('g_n' + _cElementID + 'StepCounter = 1;')
		}
		else
		{
			switch(g_cCurrentDirection)
			{
				case("LEFT") :
					g_oCurrentElement.style.left = GetScrollerLimit(_cElementID, 'RIGHT');
					g_oCurrentElement.style.top = GetScrollerLimit(_cElementID, 'TOP');
					eval('g_n' + _cElementID + 'StepCounter = g_n' + _cElementID + 'Width;')
					if(g_nCurrentType == 3)
					{
						g_oCurrentElement.style.width = "1";
					}
					else
					{
						eval('g_n' + _cElementID + 'StepCounter = g_n' + _cElementID + 'StepCounter * ' + g_nCurrentType + ';');
					}
					break;
				case("RIGHT") :
					g_oCurrentElement.style.left = GetScrollerLimit(_cElementID, 'LEFT');
					g_oCurrentElement.style.top = GetScrollerLimit(_cElementID, 'TOP');
					eval('g_n' + _cElementID + 'StepCounter = g_n' + _cElementID + 'Width;');
					if(g_nCurrentType == 3)
					{
						g_oCurrentElement.style.width = "1";
					}
					else
					{
						g_oCurrentElement.style.left = parseInt(g_oCurrentElement.style.left) - eval('g_n' + _cElementID + 'Width;');
						eval('g_n' + _cElementID + 'StepCounter = g_n' + _cElementID + 'StepCounter * ' + g_nCurrentType + ';');
					}
					break;
				case("UP") :
					g_oCurrentElement.style.top = GetScrollerLimit(_cElementID, 'BOTTOM');
					g_oCurrentElement.style.left = GetScrollerLimit(_cElementID, 'LEFT');
					eval('g_n' + _cElementID + 'StepCounter = g_n' + _cElementID + 'Height;');
					if(g_nCurrentType == 3)
					{
						g_oCurrentElement.style.height = "1";
					}
					else
					{
						eval('g_n' + _cElementID + 'StepCounter = g_n' + _cElementID + 'StepCounter * ' + g_nCurrentType + ';');
					}
					break;
				case("DOWN") :
					g_oCurrentElement.style.top = GetScrollerLimit(_cElementID, 'TOP');
					g_oCurrentElement.style.left = GetScrollerLimit(_cElementID, 'LEFT');
					eval('g_n' + _cElementID + 'StepCounter = g_n' + _cElementID + 'Height;');
					if(g_nCurrentType == 3)
					{
						g_oCurrentElement.style.height = "1";
					}
					else
					{
						g_oCurrentElement.style.top = parseInt(g_oCurrentElement.style.top) - eval('g_n' + _cElementID + 'Height;');
						eval('g_n' + _cElementID + 'StepCounter = g_n' + _cElementID + 'StepCounter * ' + g_nCurrentType + ';');
					}
					break;
			}
		}
		Scroll(_cElementID);
	}
}