function setZoom() {
	var theIframe=document.frames["ImgHolder"];
	if (theIframe){
		var theImage=theIframe.document.images[0];
		var theTitle=theIframe.document.location.search;
		theImage.title=unescape(theIframe.document.location.search.substring(1,theIframe.document.location.search.length));
		theIframe.document.body.style.backgroundColor='#FFFFFF';
		theIframe.document.body.style.textAlign='center';
		if (document.getElementById) {var zoomAmount=(document.getElementById("oImgHolder").style.pixelWidth / theImage.width) * 100}
		else {var zoomAmount=((theIframe.document.body.clientWidth + 17) / theImage.width) * 100}
		if (zoomAmount>100) {zoomAmount=100}
		theIframe.document.body.style.zoom=zoomAmount + '%';
		if (document.getElementById) {document.getElementById("oImgHolder").style.pixelHeight=parseInt(theImage.height * (zoomAmount / 100))}
		}
	}
	
function XMLHTTP(TransferMode,URL,POSTdata) {
	if (window.ActiveXObject) {xmlhttp=new ActiveXObject("Microsoft.XMLHTTP")}
	else if (window.XMLHttpRequest) {xmlhttp=new XMLHttpRequest()}
	if (xmlhttp) {
		xmlhttp.open(TransferMode,URL,false);
		xmlhttp.send(POSTdata);
		return xmlhttp.responseXML;
		}
	}	
function removeOptions(SelectRef,Length) {SelectRef.options.length=Length}

function addOption(SelectRef,TheText,TheValue) {
	TheText.toLowerCase()
	TheValue.toLowerCase()
	SelectRef.options[SelectRef.options.length] = new Option(TheText,TheValue)
	}

function getXmlNodes(objXML,NodeName) {if (window.ActiveXObject) {return objXML.selectNodes("//" + NodeName)} else {return objXML.getElementsByTagName(NodeName)}}
	
function setLocalidads(fieldRef,ResMod,SelectedArea) {
	removeOptions(fieldRef.form.AreaID,0);
	var objXML=XMLHTTP("GET",ResMod + "modules/Loaders.asp?T=PROV&ID=" + fieldRef[fieldRef.selectedIndex].value,"");
	var objXMLnodes=getXmlNodes(objXML,"Postal");
	fieldRef.form.AreaID.disabled=false;
	addOption(fieldRef.form.AreaID,'Please select','');
	var SelectedIndex=0;
	for (var i=0; i<objXMLnodes.length; i++) {
		addOption(fieldRef.form.AreaID,objXMLnodes[i].getAttribute("Localidad"),objXMLnodes[i].getAttribute("ID"));
		if (SelectedArea==objXMLnodes[i].getAttribute("ID")) {SelectedIndex=i + 1}
		}
	fieldRef.form.AreaID.selectedIndex=SelectedIndex;
	}

/* seems to be unused
function setLocalidadsNOID(fieldRef,ResMod) {
	removeOptions(fieldRef.form.Localidad,0);
	var objXML=XMLHTTP("GET",ResMod + "modules/Loaders.asp?T=PROV&ID=" + fieldRef[fieldRef.selectedIndex].value,"");
	var objXMLnodes=getXmlNodes(objXML,"Postal");
	addOption(fieldRef.form.Localidad,'Please select','')
	for (var i=0; i<objXMLnodes.length; i++) {addOption(fieldRef.form.Localidad,objXMLnodes[i].getAttribute("Localidad"),objXMLnodes[i].getAttribute("Localidad"))}
	}
*/