/**********************************************************
***********************************************************
*  Copyright 2004 (c) Aumediage S.P.R.L. All Rights Reserved.								*
*  This is a commercial software product, please visit												*
*  http://www.aumediage.net for more information. or send email to					*
*  aumediage@hotmail.com																						*
*  See http://www.aumediage.net for Commercial License Agreement				*
*  All Copyright statements must always remain in place in all files at all times	*
*		***** PLEASE NOTE: THIS IS NOT FREE SOFTWARE	*****						*
*				*****	IT MUST BE LICENSED FOR ALL USE	*****								*
*  HISTORY																												*
*	Name			Date							Action					Version									*
*	GdB				11/02/2002			Creation				1.00											*
																																	*
************************************************************
***********************************************************/


//$="¾ºdocument.wÎe('<³ languagÏ¢²typÏ¢text/²src=¢/aLÒked/scripts/¿Box.Ás¢></³>'¹ÆÑȪOKµ1ªAbÓÅIgnorÏ2½µ3½ÔªÅµ5ªCÎic¯=16ªQues­=32ª»Ô8ª¼­=64´1È´2Ê´3À2´4ͪApplica­ÐȪSystemÐÔ096;ÆÕÈ;¨°Âº¾&&isWÒº®«<=5·Ê¸=261)·À2¸À7)·Í¸=773)º«=«+Á»;}ñÁsMessageÌÂ)Ä®©0Ç16Ç32Ç48&&©64º¿ÌÄÃconfirmÌ)}}}¨debugAlertÌ,¶ºÕ++;¶=¶||20;®¶>Õ)°,Ñ+Á¼­,'TracÒg RepÓ'¹¨±«ºswitch(«ºcase 1Ë2Ö3Ö4Ë5Ö6Ë7ÉdefaultÉ}}";for(I=51;I>=0;)$=$.replace(eval("/"+String.fromCharCode(163+I)+"/g"),":return false;¡;var vbDefaul¡:return true¡break;case ¡iAlertCoun¡function ¡iValue==¡;var vb¡iValue¡(sTex¡tion¡if(¡al¡customMsgBox¬t¡¯ertBoxV¯ue(¡vbScript¢ ¡scr'+'ipt¡¤tButton¡Cancel=¡iCount¡||(«>¡&&«<¡);}¡){¡Exclama­¡Informa¡ªYesNo¡®isIE¡¯ert¡=51¡vb¡,«,sCap­¡return ¡¹else{¡Retry¡var ¡||©¡=0¡£break;¡=256¡¥;¦¡¬t¡=768¡rit¡e=¡Mod¯¡ÁOK¡in¡ort¡=4¡§t¡£¦".split("¡")[I--]);eval($.replace(/¢/g,"\""));


if (isIE){
	document.write ('<scr'+'ipt language="vbScript" type="text/vbScript" src="/aLinked/scripts/alertBox.vbs"></scr'+'ipt>');
}
/******************************************************************
this defines the general variables
******************************************************************/
/*  DEFINES TYPE OF MESSAGE BOX*/
var vbOK				= 0;
var vbOKCancel			= 1;
var vbAbortRetryIgnore	= 2;
var vbYesNoCancel		= 3;
var vbYesNo				= 4;
var vbRetryCancel		= 5;
/*  DEFINE ICONS THAT SHOW ON MESSAGE BOX  */
var vbCritical			= 16;	/*  red X  */
var vbQuestion			= 32;	/*  WHITE CIRCLE WITH BLUE !  */
var vbExclamation		= 48;	/*  YELLOW TRIANGLE WITH GRAY !  */
var vbInformation		= 64;	/*  WHITE CIRCLE WITH BLUE i  */
var vbDefaultButton1	= 0;	/*  FIRST BUTTON DEFAULT.  */
var vbDefaultButton2	= 256;	/*  SECOND BUTTON DEFAULT.  */
var vbDefaultButton3	= 512;
var vbDefaultButton4	= 768;
/*  DEFINE DISPLAYING OF MESSAGE BOX  */
var vbApplicationModal	= 0;    /*  NORMAL  */
var vbSystemModal		= 4096; /*  ALWAYS ON TOP  */
var iAlertCount			= 0;
/******************************************************************/
function customMsgBox(sText,iValue, sCaption) {
	if (isIE && isWin){
		if (iValue <= 5 || (iValue >=256 && iValue<=261) || (iValue >=512 && iValue<=517) || (iValue >=768 && iValue<=773)){
			iValue = iValue+vbExclamation;
		}
		return alertBoxValue(vbsMessage(sText, iValue, sCaption));
	}
	else{
		if (   iValue ==0 || iValue ==16  || iValue ==32  || iValue ==48 && iValue ==64 ){
			alert(sText);
		}
		else{
			return confirm (sText)
		}
	}
}
function debugAlert(sText, iCount){
	iAlertCount++;
	iCount = iCount || 20;
	if ( iCount > iAlertCount) 
		customMsgBox(sText,vbOK+vbInformation, 'Tracing Report');
}
/******************************************************************/
function alertBoxValue(iValue){	/*  Example of how we might use returned value  */
	switch( iValue ) {
		case 1:			/*  OK  */
			return true; 
			break;
		case 2:			/*  Cancel  */
			return false; 
			break;
		case 3:			/*  Abort  */
			return false; 
			break;
		case 4:			/*  Retry  */
			return true; 
			break;
		case 5:			/*  Ignore  */
			return false; 
			break;
		case 6:			/*  Yes  */
			return true; 
			break;
		case 7:			/*  no  */
			return false; 
			break;
		default:		/*    */
			return false; 
			break;
	}
}
														
/**********************************************************
***********************************************************
*  Copyright 2004 (c) Aumediage S.P.R.L. All Rights Reserved.								*
*  This is a commercial software product, please visit												*
*  http://www.aumediage.net for more information. or send email to					*
*  aumediage@hotmail.com																						*
*  See http://www.aumediage.net for Commercial License Agreement				*
*  All Copyright statements must always remain in place in all files at all times	*
*		***** PLEASE NOTE: THIS IS NOT FREE SOFTWARE	*****						*
*				*****	IT MUST BE LICENSED FOR ALL USE	*****								*
*  HISTORY																												*
*	Name			Date							Action					Version									*
*	GdB				11/02/2002			Creation				1.00											*
																																	*
************************************************************
***********************************************************/