var l=null;
function vb(){
	var C=null;
	try{
		C=new ActiveXObject("Msxml2.XMLHTTP")
	}catch(e){
		try{
			C=new ActiveXObject("Microsoft.XMLHTTP")
		}catch(sc){
			C=null
		}
	}
	if(!C&&typeof XMLHttpRequest!="undefined"){
		C=new XMLHttpRequest()
	}
	return C
}


function vc(bstrMethod,bstrUrl,varAsync){
	if(l&&l.readyState!=0){
		l.abort()
	}
	l=vb();
	if(l){
		l.open(bstrMethod,bstrUrl,varAsync);
		l.onreadystatechange=function(){
			if(l.readyState==4&&l.responseText){
				if(l.responseText.charAt(0)=="<"){
					alert(l.responseText);
				}else{
				eval(l.responseText)
				}
			}
		};
		l.send(null)
	}
}