var currentCombo
var currentValue
var asincrono=false

function loadXMLDoc(url) 
{
if (window.XMLHttpRequest)
  {
  xmlhttp=new XMLHttpRequest();
  xmlhttp.onreadystatechange=onResponse;
  xmlhttp.open("GET",url,asincrono);
  xmlhttp.send(null);
  }
// code for IE
else if (window.ActiveXObject)
  {
  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
    if (xmlhttp)
    {
    xmlhttp.onreadystatechange=onResponse;
    xmlhttp.open("GET",url,asincrono);
    xmlhttp.send();
    }
  }
}

function loadXMLDocEXT(url, funcOK) 
{
if (window.XMLHttpRequest)
  {
  xmlhttp=new XMLHttpRequest();
  
  xmlhttp.onreadystatechange=eval(funcOK);
  xmlhttp.open("GET",url,asincrono);
  xmlhttp.send(null);
  }
// code for IE
else if (window.ActiveXObject)
  {
  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
    if (xmlhttp)
    {
    xmlhttp.onreadystatechange=eval(funcOK);
    xmlhttp.open("GET",url,asincrono);
    xmlhttp.send();
    }
  }
}


function checkReadyState(obj)
{
  if(obj.readyState == 4)
  {
    if(obj.status == 200)
    {
      return true;
    }
    else
    {
//      alert("Problem retrieving XML data");
    }
  }
}

function onResponse() 
{
  if(checkReadyState(xmlhttp))
  {
  var response = xmlhttp.responseXML.documentElement;

  var x=response.getElementsByTagName("R")
  var l = x.length
  
  var cb=currentCombo;
  cb.options.clear;
  cb.options.length=l+1;

  cb.options[0].value = "0";
  cb.options[0].text = " ";

  for (i=0;i<x.length;i++)
    {
    xx=x[i].getElementsByTagName("I")
      {
      try
        {
		  cb.options[i+1].value=xx[0].firstChild.data 
        }
      catch (er)
        {
        }
      }
    xx=x[i].getElementsByTagName("D")
      {
      try
        {
		  cb.options[i+1].text=xx[0].firstChild.data 
        }
      catch (er)
        {
        }
      }
    }
	cb.value=currentValue
  }
}

function FillComboBox(cb,vv,sql) {
 currentCombo=cb;

 currentValue=vv;

 cb.options.clear;
 cb.options.length=1;

 cb.options[0].value = "0";
 cb.options[0].text = " ";
 loadXMLDocEXT(sql,'onResponse');
}


var firstFieldName, firstFieldValue

function onOneFieldResponse() 
{
  if(checkReadyState(xmlhttp))
  {
	  var response = xmlhttp.responseXML.documentElement;
	  var x=response.getElementsByTagName("R")
	  var l = x.length;
      var i=0;
      var xx;
		//alert('L'+l)
      if (l>=1) {
	    xx=x[i].getElementsByTagName(firstFieldName)
  	    firstFieldValue=xx[0].firstChild.data;
	  } else {
	  	firstFieldValue=""
	  }
  }
}


function get_1_field_value(sql,fieldname) {
  firstFieldName=fieldname;
  loadXMLDocEXT('js.asp?s='+sql,'onOneFieldResponse');
  return firstFieldValue

}