function ImgRandomInitiate()
{
	var nRandom=new Array();
	var nLoop=0;
	for (ni=0;ni<ImgName.length;ni++) 
		for (nj=0;nj<ImgRnd[ni];nj++) {
			nRandom[nLoop]=ni;
			nLoop++;
		}
	for (ni=0;ni<nLoop;ni++) {
		nn1=Math.round(Math.random()*(nLoop-1));
		nn2=Math.round(Math.random()*(nLoop-1));
		nid=nRandom[nn1];
		nRandom[nn1]=nRandom[nn2];
		nRandom[nn2]=nid;
	}
	var ImgId=nRandom[Math.round(Math.random()*(nLoop-1))];
	var sExtension=GetExtension(ImgId);
	if (sExtension=='jpg' || sExtension=='gif')
		sHtm=GetImgCommand(ImgId)
	else if (sExtension=='swf')
		sHtm=GetFlashCommand(ImgId)
	ImgBanner.innerHTML=sHtm ;
}

function LoadURL(sHref)
{
	var nStar =sHref.indexOf('***');
	if (nStar>0){
		sHref=sHref.substring(0,sHref.length-3);
		window.open(sHref,'_new');
	}
	else
		window.location=sHref;
}


function GetExtension(ImgId)
{
	var nLen=ImgName[ImgId].length;
	var nPer=ImgName[ImgId].indexOf('.')+1;
	if (nPer!=-1)
		var sExt=ImgName[ImgId].substr(nPer,nLen-nPer);
	else
		var sExt=''
	return sExt.toLowerCase();
}

function GetImgCommand(ImgId)
{
	var sHtm='';
	var sStyle='style="cursor:hand"';
	if (ImgUrl[ImgId] != '') {
		sHtm='<a href="'+ImgUrl[ImgId]+'"target="_blank">'; 
	    //  sHtm='<a onclick="LoadURL('+"'";
	    //  sHtm+=ImgUrl[ImgId]+"')"+'">';
	
		
	} else {
		sStyle='';
		sHtm='<a>';
	}
	sHtm+='<img width="'+ImgWidth+'" height="'+ImgHeight;
	sHtm+='" src="'+sBannerImgPath+ImgName[ImgId]+'" border="0" alt="';
	sHtm+=ImgAltText[ImgId]+'" '+sStyle+'></a>' ;
	return sHtm;
}

function GetFlashCommand(ImgId)
{
	var sX='';
	if (ImgUrl[ImgId] != '') {
		sX='<a onclick="LoadURL('+"'";
		sX+=ImgUrl[ImgId]+"')"+'" style="cursor:hand">';
	} else {
		sX='<a>';
	}
	sX+='<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0" WIDTH="'+ImgWidth+'" HEIGHT="'+ImgHeight+'">';
	sX+=' <PARAM NAME=movie VALUE="'+sBannerImgPath+ImgName[ImgId]+'">'
	sX+=' <PARAM NAME=quality VALUE=high>'
	sX+=' <PARAM NAME=scale VALUE=exactfit>'
	sX+=' <EMBED src="'+sBannerImgPath+ImgName[ImgId]+'" quality=high scale=exactfit bgcolor=#FFFFFF  WIDTH="'+ImgWidth+'" HEIGHT="'+ImgHeight+'" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"></EMBED>'
	sX+='</OBJECT></a>'
	return sX
}

