//***  030904  HMO  Versión JavaScript de la utilería colIMG
//***  030911  HMO  Versión 2.0 con soporte de textos en Cab y Pie, además de una Liga para cada elemento de la colección
function clsColImg(){
	this.strFe = "";
	this.strDir = "";
	this.strClassCab = "";
	this.strClassPie = "";
	this.arrImg = new Array();
	this.PonerImagen = p_colImg_EscribeHTML_IMG;
}
function p_colImg_EscribeHTML_IMG(){
	var strHTML = '', bolCab = false, bolPie = false, bolLiga = false, bolVer2 = false;
	var sngFactorDeRotacion = 1/60/60, intTiempoOffset = 0, intIdxImg = 0, intImgs = 0;
	var dteFe = new Date(), dteHoy = new Date();
    var bolIE = navigator.userAgent.indexOf("MSIE") != -1;
	intImgs = this.arrImg.length;

	if (arguments.length>0) if (arguments[0]>0) sngFactorDeRotacion /= arguments[0];
	if (this.strFe.length>0){
		var expRegFe = /([0-9][0-9]?)\/([0-9][0-9]?)\/([12][0-9][0-9][0-9])/;
		expRegFe.exec(this.strFe);
		dteFe = new Date(RegExp.$3, RegExp.$2-1, RegExp.$1);
	}
	intTiempoOffset = parseInt(''+((dteHoy-dteFe)/10000));
	intIdxImg = intTiempoOffset % intImgs;
	if(this.arrImg[intIdxImg][1] && this.arrImg[intIdxImg][1].length>0)bolCab = true;
	if(this.arrImg[intIdxImg][2] && this.arrImg[intIdxImg][2].length>0)bolPie = true;
	if(this.arrImg[intIdxImg][3] && this.arrImg[intIdxImg][3].length>0)bolLiga = true;
	//***  030922  HMO  Revisión para compatibilidad con NS
	if(typeof(this.arrImg[intIdxImg])=="object")bolVer2 = true;
	//***  030922  HMO  En la lógica de construcción, faltaba filtrar completamente la versión...
	if(bolVer2) {
		if(bolCab || bolPie)strHTML+='<table cellpadding=0 cellspacing=0 border=0>';
		if(bolCab) strHTML+='<tr><td NOWRAP align=center class="'+this.strClassCab+'">'+this.arrImg[intIdxImg][1]+'</td></tr>';
		if(bolCab || bolPie)strHTML+='<tr><td align=center>';
		if(bolLiga)strHTML+='<A HREF="'+this.arrImg[intIdxImg][3]+'">';
	}
	strHTML+='<img src="'+this.strDir+(bolVer2?this.arrImg[intIdxImg][0]:this.arrImg[intIdxImg])+'" '+(arguments.length>1 ? arguments[1]: '')+' alt="" border=0>';
	if(bolVer2) {
		if(bolLiga)strHTML+='</A>';
		if(bolCab || bolPie)strHTML+='</td></tr>';
		if(bolPie)strHTML+='<tfoot><tr><td NOWRAP align=center class='+this.strClassPie+'>'+this.arrImg[intIdxImg][2]+'</td></tr></tfoot>';
		if(bolCab || bolPie)strHTML+='</table>';
	}
	if(strHTML.length>0)document.write(strHTML);
}
//***  Fin del Script