// ***** Functions for VEB operations *****
	// Edit variables below to suit needs.

	var DIVNAME = "flashcontent";
	var SWF_BGCOLOR = "0000FF";
	var SWF_BTNCOLOR = "FF0000";
	var XML_PATH;
	if( XML_PATH == null ) XML_PATH =  "/vebs.xml";
	
	function hide(){ document.getElementById(DIVNAME).style.display = "none"; }
	
	function output_veb(filename, width, height){
		var so = new SWFObject(filename, "veb", width, height, "9", "#FFFFFF");
		so.addVariable("bgcolor", SWF_BGCOLOR); 
		so.addVariable("buttoncolor", SWF_BTNCOLOR);
		so.addParam("wmode", "transparent");
		so.addParam("allowScriptAccess", "always");
		so.write(DIVNAME);
	}

	function show_veb(){
		xmlHttp = GetXmlHttpObject();
		if (xmlHttp == null) {
			alert ("Your browser does not support AJAX!");
			return;
		}

		xmlHttp.onreadystatechange = function() {

			if(xmlHttp.readyState == 4) {
				var aVebs = [];
				
				try {
					// Firefox, Opera 8.0+, Safari
					var xmlObj = (new DOMParser()).parseFromString(xmlHttp.responseText, "text/xml");
				} catch (e) {
					// Internet Explorer
					try {
						xmlObj=new ActiveXObject("Msxml2.DOMDocument");
					} catch (e) {
						xmlObj=new ActiveXObject("Microsoft.XMLDOM");
					}
					
					xmlObj.loadXML(xmlHttp.responseText);
				}
				
				for(i = 0; i < xmlObj.lastChild.childNodes.length; i++){
					if(xmlObj.lastChild.childNodes[i].firstChild != null){
						var aVeb = [xmlObj.lastChild.childNodes[i].firstChild.nodeValue, 
							xmlObj.lastChild.childNodes[i].attributes.getNamedItem("width").nodeValue, 
							xmlObj.lastChild.childNodes[i].attributes.getNamedItem("height").nodeValue];
						aVebs[aVebs.length] = aVeb;
					}
				}
			
				show_index = Math.floor(Math.random() * aVebs.length);
				output_veb(aVebs[show_index][0], aVebs[show_index][1], aVebs[show_index][2]);
			}
		}
		xmlHttp.open("GET", XML_PATH, true);
		xmlHttp.send(null);
	}
	
	function GetXmlHttpObject() {
		var xmlHttp=null;
		try {
			// Firefox, Opera 8.0+, Safari
			xmlHttp=new XMLHttpRequest();
		} catch (e) {
			// Internet Explorer
			try {
				xmlHttp=new ActiveXObject("Msxml2.XMLHTTP");
			} catch (e) {
				xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");
			}
		}
		return xmlHttp;
	}