// Core functions
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)}}

// Page functions

function setLocalidads(fieldRef,ResMod) {
	//alert fieldRef.form.Localidad
	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,'Poblacion...','')
	for (var i=0; i<objXMLnodes.length; i++) {
		addOption(fieldRef.form.Localidad,objXMLnodes[i].getAttribute("Localidad"),objXMLnodes[i].getAttribute("ID"))}
	}

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,'Poblacion...','')
	for (var i=0; i<objXMLnodes.length; i++) {
		addOption(fieldRef.form.Localidad,objXMLnodes[i].getAttribute("Localidad"),objXMLnodes[i].getAttribute("Localidad"))}
	}