var myXmlHttp = null;

function showPage(target) {
    
    pars = "?";
    pars += "title=" + document.mainform.txtTitle.value;
    pars += "&url=" + document.mainform.txtUrl.value;
    pars += "&keys=" + document.mainform.txtKeys.value;
    pars += "&desc=" + document.mainform.txtDesc.value;
    pars += "&email=" + document.mainform.txtEmail.value;
    

    newurl = "http://www.arieldolan.com/aldb/wbsr/ad5.asmx";

    if (target == "xml") {
        newurl += "/GetQueryXml"+pars;
    }
    else
    if (target == "html") {
        newurl += "/GetQueryHtml"+pars;
    }
    else
    if (target == "wsdl")
        newurl += "?WSDL";
    else
    if (target == "disco")
        newurl += "?DISCO";            
    else
    if (target == "test")
        newurl += "";            

    window.location.href = newurl;
}   


function changeStartIcon(num) {

	document.all.starticon.src = "enter_adws" + num + ".gif";
		
}


function goAdws() {

    window.location.href = "http://www.arieldolan.com/aldb/wbsr/ad5client.aspx";
    //window.location.href = "ad5client.aspx";

}

function insertTitle(title)
{

    var toptitle;

    toptitle = "<div class='toptitle'>";
    toptitle += "<table bgcolor='#306898' align='center' width='100%'";
    toptitle += " cellspacing='0' border='0'>";
    toptitle += "<tr>";
    toptitle += "<td width='20' align='center' valign='middle'>";
    toptitle += "<div align='center'><a href='/index.html'><img src='/images/ARW01UP.gif'";
    toptitle += "width='16' height='16' border='0' alt='Home Page and Main Menu'></a></div>";
    toptitle += "</td>";
    toptitle += "<td>";
    toptitle += "<font face='' color='#FFFFFF'>";
    toptitle += "<div align='center'>" + title + "</div>";
    toptitle += "</font></td></tr></table></div>";
    //toptitle += "<font size='-1'>";

    document.write(toptitle);

    document.write("<span class='gentext'>");
}


function getXmlResponse(url) {

	try {

		xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
		xmlHttp.open("GET", url, false);
		//xmlhttp.setRequestHeader("Content-Type", "text/xml; charset=iso-8859-1")	
		xmlHttp.send();
		var xmlDoc=xmlHttp.responseText;	
		return xmlDoc;		
	}catch(e) {
		alert("getXmlResponse Error: "+e.description+"\nurl: "+url);
		return "";
	}

}




function sendXml(url,xml) {
	
	try {
		 myXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
		 myXmlHttp.open("POST", url, true);
		 //myXmlHttp.setRequestHeader("Content-Type","text/xml");
		 myXmlHttp.onreadystatechange = sendXmlResponse;
		 myXmlHttp.send(xml);
	}
	catch(e) {
		alert("Error: " + e.description);
	}	 
  
}


function sendXmlResponse() {
var response;

	try {
		if (myXmlHttp.readyState == 4) {
			response = myXmlHttp.responseText;	
			myXmlHttp = null;
	        document.all.item("localtext").innerHTML = response;
		}	

	}
	catch(e) {
	/*
		alert("Error in sendXmlResponse: "+e.description);
		response = "";
	*/
	}

	return response;
}



function sendXml(url,xml) {
	
	try {
		 myXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
		 myXmlHttp.open("POST", url, true);
		 //myXmlHttp.setRequestHeader("Content-Type","text/xml");
		 myXmlHttp.onreadystatechange = sendXmlResponse;
		 myXmlHttp.send(xml);
	}
	catch(e) {
		alert("Error: " + e.description);
	}	 
  
}





function getSoapRequest(funcname) {

    var title = document.mainform.txtTitle.value;
    var url = document.mainform.txtUrl.value;
    var keys = document.mainform.txtKeys.value;
    var desc = document.mainform.txtDesc.value;
    var email = document.mainform.txtEmail.value;  
              
    var txt = "";  

    //txt += "HTTP/1.1" + "\r\n";
    //txt += "Host: localhost" + "\n\r";
    //txt += "Content-Type: text/xml; charset=utf-8" + "\r\n";
    //txt += "Content-Length: length" + "\r\n";
    //txt += "SOAPAction: 'http://www.arieldolan.com/ws/tests/GetQueryXml'" + "\r\n";
    
    txt += "<?xml version='1.0' encoding='utf-8'?>" + "\r\n";
    txt += "<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" + "\r\n";
    txt += "  <soap:Body>" + "\r\n";
    txt += "    <" + funcname + " xmlns='http://www.arieldolan.com/ws/tests'>" + "\r\n";
    txt += "      <title>" + title + "</title>" + "\r\n";
    txt += "      <url>" + url + "</url>" + "\r\n";
    txt += "      <keys>" + keys + "</keys>" + "\r\n";
    txt += "      <desc>" + desc + "</desc>" + "\r\n";
    txt += "      <email>" + email + "</email>" + "\r\n";
    txt += "    </" + funcname + ">" + "\r\n";
    txt += "  </soap:Body>" + "\r\n";
    txt += "</soap:Envelope>" + "\r\n";
    
    return txt;
}


function goGet() {

    pars = "?";
    pars += "title=" + document.mainform.txtTitle.value;
    pars += "&url=" + document.mainform.txtUrl.value;
    pars += "&keys=" + document.mainform.txtKeys.value;
    pars += "&desc=" + document.mainform.txtDesc.value;
    pars += "&email=" + document.mainform.txtEmail.value;
    

    var url = "http://www.arieldolan.com/aldb/wbsr/ad5.asmx"+"/GetQueryXml"+pars;
    var response = getXmlResponse(url);
    //document.all.item("localtext").innerHTML = putPre(response);
    document.mainform.txtOutput.value = response;

}


function goSoap() {

    var url = "http://www.arieldolan.com/aldb/wbsr/ad5.asmx";
    var xml = getSoapRequest("GetQueryXml");
    sendXml(url,xml);

}


function putPre(txt) {

	txt = txt.replace(/</g,"&lt;"); 
	txt = txt.replace(/>/g,"&gt;<br>");
	txt = "<pre>" + txt + "</pre>";
	
	return txt;

}