var READYSTATE_UNINITIALIZED = 0;
    var READYSTATE_LOADING = 1;
    var READYSTATE_LOADED = 2;
    var READYSTATE_INTERACTIVE = 3;
    var READYSTATE_COMPLETE = 4;

    function GetXmlHttpObject()
    {   
        var xmlHttpObj;
        try
        {
            // Firefox, Opera 8.0+, Safari
            xmlHttpObj=new XMLHttpRequest();
            return xmlHttpObj
        }
        catch (e)
        {
            // Internet Explorer
            try
            {
                xmlHttpObj=new ActiveXObject("Msxml2.XMLHTTP");
                return xmlHttpObj
            }
            catch (e)
            {
                try
                {
                    xmlHttpObj=new ActiveXObject("Microsoft.XMLHTTP");
                    return xmlHttpObj
                }
                catch (e)
                {
                    alert("Your browser does not support AJAX!");
                    return false;
                }
            }
        }
    }
 function ReplaceSTRXML(S, typ)
    {	
	    var NewSTR = new String(S)

        if(typ=="XML")
        {

	        var Samp = "&"
	        var Sapos = "'"
	        var Squot = '"'
	        var Slt = "<"
	        var Sgt = ">"
        	
	        var Sampxml = "~amp~"
	        var Saposxml = "~apos~"
	        var Squotxml = "~quot~"
	        var Sltxml = "~lt~"
	        var Sgtxml = "~gt~"
        	while(NewSTR.indexOf("'")>=0)
        	{
                NewSTR = NewSTR.replace(Sapos,Saposxml)
            }

        	while(NewSTR.indexOf('"')>=0)
        	{
                NewSTR = NewSTR.replace(Squot,Squotxml)
            }

        	while(NewSTR.indexOf('<')>=0)
        	{
                NewSTR = NewSTR.replace(Slt,Sltxml)
            }

        	while(NewSTR.indexOf('>')>=0)
        	{
                NewSTR = NewSTR.replace(Sgt,Sgtxml)
            }

        	while(NewSTR.indexOf('&')>=0)
        	{
                NewSTR = NewSTR.replace(Samp,Sampxml)
            }
	    }
	    else
	    {
            var Sampxml = "&"
	        var Saposxml = "'"
	        var Squotxml = '"'
	        var Sltxml = "<"
	        var Sgtxml = ">"
        	
	        var Samp = "&amp;"
	        var Sapos = "&apos;"
	        var Squot = "&quot;"
	        var Slt = "&lt;"
	        var Sgt = "&gt;"
        	
        	while(NewSTR.indexOf("&amp;")>=0)
	         NewSTR = NewSTR.replace(Samp,Sampxml)
        	
        	while(NewSTR.indexOf("&apos;")>=0)
	         NewSTR = NewSTR.replace(Sapos,Saposxml)
        	
        	while(NewSTR.indexOf("&quot;")>=0)
	         NewSTR = NewSTR.replace(Squot,Squotxml)
        	
        	while(NewSTR.indexOf("&lt;")>=0)
	         NewSTR = NewSTR.replace(Slt,Sltxml)
        	
        	while(NewSTR.indexOf("&gt;")>=0)
	         NewSTR = NewSTR.replace(Sgt,Sgtxml)
	    }
	    return NewSTR
    	
    }