// aimsQuery.js
/*
*  JavaScript template file for ArcIMS HTML Viewer
*		dependent on aimsXML.js, ArcIMSparam.js, aimsCommon.js, aimsMap.js, aimsIdentify.js, aimsSelect.js, and aimsLayers.js
*		To be interactive, dependent also on aimsDHTML.js, aimsClick.js, and aimsNavigation.js
*/

aimsQueryPresent=true;

var showSampleValues=false;

var storedQueryCount = 0;

var storedQueryName = new Array();
var storedQueryString = new Array();
var storedQueryVariable = new Array();
var storedQueryVarCount = new Array();
var storedQueryFieldList = new Array();
var storedQueryIndex = 0;


/*
***************************************************************************************

Querying functions 

***************************************************************************************
*/


// query form
function queryForm()
{
	fieldIndex=0;
	showSampleValues=false;
		
		setLayerFields(ActiveLayerIndex);

		if (showSampleValues) {
			var theText = writeFieldSample(LayerFields[fieldIndex]);
			sendToServer(imsQueryURL,theText,40);
		} else {
			writeQueryForm();
		}
		
}

// find Form
function findForm() {
	setLayerFields(ActiveLayerIndex);
		if (useTextFrame) {
			parent.TextFrame.document.location= appDir + "findForm.htm";
		} else {
			Win1 = open(appDir + "findForm.htm","QueryWindow","width=575,height=150,scrollbars=yes,resizable=yes");
		}
}



// process query
function sendQueryString(newString) {
	//if (LayerIDField[ActiveLayerIndex]!="#ID#") {
		newString = fixSingleQuotes(newString);
		newString = swapQuotes(newString);
	//}

// alert(newString);

	newString = makeXMLsafe(newString);
	setQueryString=newString;
	selectionMode=1;
	selectData.length=1;
	LayerFields.length=1;
	LayerFieldType.length=1;
	LayerFieldCount=0;
	showBuffer=false;
	showRetrieveData();
	var theString = writeQueryXML(newString);
	sendToServer(imsQueryURL,theString,queryXMLMode);
}

// write out XML request to query attributes
function writeQueryXML(queryString) {
	if (swapSelectFields) {
		selectFields=selFieldList[ActiveLayerIndex];
	}


//// HACK
// selectFields = 'Base Map'

	var theString = '<?xml version="1.0" encoding="UTF-8"?><ARCXML version="1.1">\n<REQUEST>\n<GET_FEATURES outputmode="xml" geometry="false" envelope="true"';
	theString += ' compact="true" featurelimit="' + maxFeaturesReturned + '" beginrecord="' + queryStartRecord + '">\n';
	theString += '<LAYER id="' + ActiveLayer + '" />';

	if (useLimitExtent) {
		// keep this within the limitExtent
		theString += '<SPATIALQUERY subfields="' + selectFields + '" where="' + queryString + '">';
		theString += '<SPATIALFILTER relation="area_intersection">\n';
		theString += '<ENVELOPE maxx="' + limitRight + '" maxy="' + limitTop + '" minx="' + limitLeft + '" miny="' + limitBottom + '" />\n';
		theString += '</SPATIALFILTER>\n';
		theString += '</SPATIALQUERY>\n';
	} else {
		//theString += '<QUERY subfields="' + selectFields + '" where="' + queryString + '" />';
		theString += '<SPATIALQUERY subfields="' + selectFields + '" where="' + queryString + '" />';
	}

	theString += '</GET_FEATURES>';
	theString += '</REQUEST>';
	theString += '</ARCXML>';
	//alert("writeQueryXML()\nQuery XML Request:\n" + theString);
	selectLayer=ActiveLayer;
	selectType=ActiveLayerType;
	selectCount=0;
	hightlightedOne="";
	selectPoints.length=1;
	selectLeft.length=1;
	selectRight.length=1;
	selectTop.length=1;
	selectBottom.length=1;
	return theString;
	
}

// write out XML request to get field value samples
function writeFieldSample(theField) {
	var theFields = theField;
	var theString = '<?xml version="1.0" encoding="UTF-8"?><ARCXML version="1.1">\n<REQUEST>\n<GET_FEATURES outputmode="xml" geometry="false" envelope="false"';
	theString += ' compact="true" featurelimit="' + numberDataSamples + '">\n';
	theString += '<LAYER id="' + ActiveLayer + '" />';
	//theString += '<QUERY subfields="' + theFields + '" where="' + LayerIDField[ActiveLayerIndex] + ' GT 0" />';
	theString += '<QUERY subfields="' + theFields + '" />';
	theString += '</GET_FEATURES>';
	theString += '</REQUEST>';
	theString += '</ARCXML>';
	//alert(theString);
	selectLayer=ActiveLayer;
	selectType=ActiveLayerType;
	selectCount=0;
	hightlightedOne="";
	selectPoints.length=1;
	selectLeft.length=1;
	selectRight.length=1;
	selectTop.length=1;
	selectBottom.length=1;
	//alert(theString);
	return theString;
}
// send find request
function getFind(theValue) {
	//alert(theValue);
	showRetrieveData();
	var theNewQueryString = "";
	var theTempString = "";
	var fieldListString = LayerIDField[ActiveLayerIndex] + " " + LayerShapeField[ActiveLayerIndex];
	var elemCount = 0;
	for (var i=0;i<LayerFields.length;i++) {
		if (LayerFieldType[i].indexOf("12",0)!=-1) {
			theTempString = "(" + LayerFields[i] + " LIKE '%" + theValue + "%')";
			if (elemCount>0) theTempString = " OR " + theTempString;
			if (theNewQueryString.length + theTempString.length < 1024) {
				theNewQueryString = theNewQueryString + theTempString;
				fieldListString = fieldListString + " " + LayerFields[i];
				elemCount += 1;
			}
			
		}
	}
	if (theNewQueryString!="") {
		showBuffer=false;
		theNewQueryString=makeXMLsafe(theNewQueryString);
		setQueryString = theNewQueryString;
		var theString = writeFindRequest(theNewQueryString,fieldListString);
		//alert(theString);
		sendToServer(imsQueryURL,theString,findXMLMode);
	} else {
		alert("Unable to build Query String.");
	}
}

// write out find form
function writeFindRequest(findQuery,fieldList) {
	var theString = '<?xml version="1.0" encoding="UTF-8"?><ARCXML version="1.1">\n<REQUEST>\n<GET_FEATURES outputmode="xml" geometry="false" envelope="true"';
	theString += ' compact="true" featurelimit="' + maxFeaturesReturned + '" beginrecord="' + queryStartRecord + '">\n';
	theString += '<LAYER id="' + ActiveLayer + '" />\n';
	if (useLimitExtent) {
		// keep this within the limitExtent
		theString += '<SPATIALQUERY subfields="' + fieldList + '" where="' + findQuery + '" />';
		theString += '<SPATIALFILTER relation="area_intersection">\n';
		theString += '<ENVELOPE maxx="' + limitRight + '" maxy="' + limitTop + '" minx="' + limitLeft + '" miny="' + limitBottom + '" />\n';
		theString += '</SPATIALFILTER>\n';
		theString += '</SPATIALQUERY>\n';
	} else {
	theString += '<QUERY subfields="' + fieldList + '" where="' + findQuery + '" />';
	}
	theString += '</GET_FEATURES>\n';
	theString += '</REQUEST>\n';
	theString += '</ARCXML>';
	//alert(theString);
	selectLayer=ActiveLayer;
	selectType=ActiveLayerType;
	selectCount=0;
	hightlightedOne="";
	selectPoints.length=1;
	selectLeft.length=1;
	selectRight.length=1;
	selectTop.length=1;
	selectBottom.length=1;
	return theString;
}


// parse layer field value samples
function parseFieldSamples(theReply) {
	//alert("Reply Length: " + theReply.length);
	var fList="";
	var lpos1 = 1;
	var lpos2 = 1;
	var epos = 1;
	var spos = 1;
	var morePoints=true;
	var moreFeatures=true;
	var pos = 0;
	var startpos = 0;
	var endpos = 0;
	var featureCount = justGetFeatureCount(theReply);
	var tempString="";
	if (featureCount > 0) {
		selectData.length=featureCount;
		for (var i=0;i<featureCount;i++) {
			pos = theReply.indexOf("<FIELDS ",endpos);
			startpos = pos + 8;
			endpos =theReply.indexOf(' />',startpos);
			inData = theReply.substring(startpos,endpos);
			//inData = fixSingleQuotes(inData);
			selectData[i] = clearLeadingSpace(inData);

		}
	} else {
		selectData.length=0;
	}
	
}

// write out a query form
function writeQueryForm() {
	var startpos = 0;
	var endpos = 0;
	var SampleCount = selectData.length;
	var theIndex = fieldIndex;
	var sampleList = new Array();
	var qField = LayerFields[fieldIndex] + '="';
	var valueTitle = "Value";

	if (showSampleValues) {
		for (var i=0;i<SampleCount;i++) {
			startpos = selectData[i].indexOf(qField,0);
			startpos = startpos + qField.length;
			endpos = selectData[i].indexOf('"',startpos);
			if (LayerFieldType[theIndex].indexOf("12",0)!=-1) {
				var vData = selectData[i].substring(startpos,endpos);
				//vData = fixSingleQuotes(vData);
				sampleList[i] = dQuote + vData + dQuote;
			} else {
				sampleList[i] = selectData[i].substring(startpos,endpos);
			}
		}
		valueTitle = "Sample Values";
	}

	if (useTextFrame) {
		var Win1 = parent.TextFrame;
		Win1.document.open();
		var t = "parent.MapFrame";
		
	} else {
		var Win1 = open("","QueryWindow","width=575,height=150,scrollbars=yes,resizable=yes");
		var t = "opener";
		if (parent.MapFrame!=null) t = "opener.parent.MapFrame";
	}

// Win1.document.writeln("made it to here");
// return;

	
	Win1.document.writeln('<html><HEAD>');
	Win1.document.writeln('			<script language="javascript">');
	Win1.document.writeln('var t = ' + t);
	Win1.document.writeln('var dQuote = \'"\';');
	Win1.document.writeln('		var currExpr = "";');
	Win1.document.writeln('		var qField = "";');
	Win1.document.writeln('		function addString() {');
	Win1.document.writeln('			lastExpr = document.QueryStuff.QueryString.value;');
	Win1.document.writeln('			qField = document.QueryStuff.QueryField.options[document.QueryStuff.QueryField.selectedIndex].value;');
	Win1.document.writeln('			var qOperator = document.QueryStuff.QueryOperator.options[document.QueryStuff.QueryOperator.selectedIndex].value;');

	Win1.document.writeln('			var qString = document.QueryStuff.QueryValue.value;');
	Win1.document.writeln('			if (t.LayerFieldType[document.QueryStuff.QueryField.selectedIndex].indexOf("12",0)!=-1) {');
	Win1.document.writeln('				if (qString.indexOf(dQuote)==-1) {');
	Win1.document.writeln('					qString = dQuote + qString + dQuote;');
	Win1.document.writeln('				}');
	Win1.document.writeln('			}');

	Win1.document.writeln('			var qString2 = document.QueryStuff.QueryString.value;');
	Win1.document.writeln('			var theString =  qField + " " + qOperator + " " + qString;');
	Win1.document.writeln('			document.QueryStuff.QueryString.value = qString2 + theString;');
	Win1.document.writeln('			currExpr = document.QueryStuff.QueryString.value;');
	Win1.document.writeln('		}');
			
	Win1.document.writeln('		function sendQuery() {');
	// Win1.document.writeln('			var theString = document.QueryStuff.QueryString.value;');
	// Win1.document.writeln('			if (theString != "") {');
	// Win1.document.writeln('				sampleList=null;');

	if (toolMode == 1008)
	{

// alert("in street");

		Win1.document.writeln('				var streetNumber = document.QueryStuff.StreetNumber.value;');
		Win1.document.writeln('				var streetName = document.QueryStuff.StreetName.value;');
		Win1.document.writeln('				var streetSuffix = document.QueryStuff.StreetSuffix.value;');
		Win1.document.writeln('                   streetName = streetName.toUpperCase();');

		Win1.document.writeln('                   if (streetSuffix == "Any")');
		Win1.document.writeln('                   	streetSuffix = "";');

		Win1.document.writeln('				t.sendQueryString(' +
			'"Site_str like " + dQuote + "%" + streetName + "%" + streetSuffix + "%" + dQuote + ' +
			'" and Site_num like " + dQuote + "%" + streetNumber + "%" + dQuote);');

	}
	else if (toolMode == 1009)
	{
		Win1.document.writeln('				var firstName = document.QueryStuff.FirstName.value;');
		Win1.document.writeln('                   firstName = firstName.toUpperCase();');
		Win1.document.writeln('				var lastName = document.QueryStuff.LastName.value;');
		Win1.document.writeln('                   lastName = lastName.toUpperCase();');

		Win1.document.writeln('				t.sendQueryString("NAME like " + dQuote + lastName + "%" + firstName + "%" + dQuote);');
	}
	else if (toolMode == 1010)
	{

// alert("in taxid");

		Win1.document.writeln('				t.sendQueryString("TAXID = " + dQuote + document.QueryStuff.QueryString.value + dQuote);');
	}

	// Win1.document.writeln('				t=null;');
	// Win1.document.writeln('			} else {');
	// Win1.document.writeln('				alert("Query expression is blank.\\nNo features have been selected.");');
	// Win1.document.writeln('			}');
	// Win1.document.writeln('			if (opener) window.close();');
			
	Win1.document.writeln('		}');
			
	Win1.document.writeln('		</script>');
	Win1.document.writeln('		</head>');
	
	Win1.document.writeln('		<body link="Blue" vlink="Blue" alink="Blue" leftmargin=0 topmargin=0 bgcolor="' + textFrameBackColor + '" onload="window.focus(); ' + t + '.queryOpen=true;" onunload="' + t + '.queryOpen=false;">');
	Win1.document.writeln('			<center>');
	Win1.document.writeln('			<form name="QueryStuff" onsubmit="sendQuery();return false;">');
	Win1.document.writeln('			<font face="Arial" size="-3">');
	Win1.document.writeln('			<table border="0" cellspacing="0" cellpadding="2" width=100%>');
		
	Win1.document.writeln('			<tr><td align="center" fgcolor="White">');

// alert("toolMode = " + toolMode);

	if (toolMode == 1008)
	{
		Win1.document.writeln('			<br>Enter an address.');
		Win1.document.writeln('			<br><br>Street Number: &nbsp;');
		Win1.document.writeln('			<input type="Text" name="StreetNumber" size="5" maxlength="100">&nbsp;&nbsp;');
		Win1.document.writeln('			Street Name: &nbsp;');
		Win1.document.writeln('			<input type="Text" name="StreetName" size="10" maxlength="100">&nbsp;&nbsp;');

		Win1.document.writeln('			<select name=StreetSuffix>');
		Win1.document.writeln('			<option value=Any>Any</option>');
		Win1.document.writeln('			<option value=AV>Avenue</option>');
		Win1.document.writeln('			<option value=CIR>Circle</option>');
		Win1.document.writeln('			<option value=CT>Court</option>');
		Win1.document.writeln('			<option value=DR>Drive</option>');
		Win1.document.writeln('			<option value=LN>Lane</option>');
		Win1.document.writeln('			<option value=ST>Street</option>');
		Win1.document.writeln('			</select>');
	}
	else if (toolMode == 1009)
	{
		Win1.document.writeln('			<br>Enter the name of the owner.');
		Win1.document.writeln('			<br><br>First: &nbsp;&nbsp;');
		Win1.document.writeln('			<input type="Text" name="FirstName" size="10" maxlength="100">&nbsp;&nbsp;&nbsp;');
		Win1.document.writeln('			Last: &nbsp;&nbsp;&nbsp;');
		Win1.document.writeln('			<input type="Text" name="LastName" size="12" maxlength="100">&nbsp;&nbsp;&nbsp;');
	}
	else if (toolMode == 1010)
	{
		Win1.document.writeln('			<br>Enter a Parcel Identification Number.');
		Win1.document.writeln('			<br><br>TAX ID: &nbsp;&nbsp;&nbsp;&nbsp;');
		Win1.document.writeln('			<input type="Text" name="QueryString" size="15" maxlength="100">&nbsp;&nbsp;&nbsp;');
	}

	Win1.document.writeln('			<input type="submit" value="Search" name="submit">');
	Win1.document.writeln('			<br><br></td></tr>');
	Win1.document.writeln('			</table>');
	Win1.document.writeln('			</font></center></FORM></body></html>');
	
	Win1.document.close();
	Win1=null;
	sampleList=null;
}

// get the StoredQueries in the MapService
function getStoredQueries() {
	var theString = '<?xml version="1.0" encoding="UTF-8"?><ARCXML version="1.1">\n<REQUEST>\n<GET_SERVICE_INFO renderer="false" extensions="true" fields="false" />\n';
	theString += '</REQUEST>\n</ARCXML>';
	sendToServer(imsQueryURL,theString,55);
}

// get the StoredQueries in the MapService
function parseStoredQueries(theReply) {
	//alert(theReply);
	storedQueryCount=0;
	storedQueryName.length=1;
	storedQueryString.length=1;
	storedQueryVariable.length=1;
	storedQueryVarCount.length=1;
	storedQueryFieldList.length=1;
	storedQueryIndex=0;
	var endpos = 1;
	var pos = -1;
	var blurb = 'id="' + ActiveLayer;
	var startpos = theReply.indexOf("<LAYERINFO",1);
	var thePos = 1;
	while (thePos!=-1) {
		startpos = theReply.indexOf("<LAYERINFO",1);
		endpos = theReply.indexOf(">",startpos);
		thePos = theReply.indexOf(blurb,1);
		if (thePos!=-1) {
			pos = thePos;
			thePos=-1;
		} 
	}
	var sqpos = 0;
	var sqvpos = 0;
	var sqpos2 = 0;
	var vCount=0;
	if (pos!=-1) {
		var fieldCount = 0;
		epos = theReply.indexOf("</LAYERINFO>",pos);
		startpos=0;
		endpos=pos;
		sqpos = theReply.indexOf("<STOREDQUERY name=",endpos);
		sqpos2 = theReply.indexOf("</STOREDQUERY>",endpos);
		while ((epos>sqpos) && (sqpos!=-1)) {
			
			if (sqpos!=-1) {
				startpos = sqpos + 19;
				endpos = theReply.indexOf(dQuote, startpos);
				blurb = theReply.substring(startpos,endpos);
				//alert(blurb);
				storedQueryName[storedQueryCount] = blurb;
				
				var sp2 = theReply.indexOf("<QUERY ",endpos);
				sp2 += 7;
				startpos = theReply.indexOf("where=", sp2);
				startPos += 7;
				endpos = theReply.indexOf(dQuote, startpos);
				blurb = theReply.substring(startpos,endpos);
				storedQueryString[storedQueryCount] = blurb;
				startpos = theReply.indexOf("subfields=", sp2);


				startpos += 11;
				endpos = theReply.indexOf(dQuote, startpos);
				storedQueryFieldList[storedQueryCount] = theReply.substring(startpos,endpos);
				storedQueryVariable[storedQueryCount]="";			
				sqvpos = theReply.indexOf("<SQVAR",startpos);
				vCount = 0;
				while ((sqvpos!=-1) && (sqvpos<sqpos2)) {
					endpos = sqvpos;
					startpos = theReply.indexOf("name=",endpos);
					startpos += 6;
					endpos = theReply.indexOf(dQuote, startpos);
					blurb = theReply.substring(startpos,endpos);
					if (vCount > 0) blurb = "|" + blurb;
					storedQueryVariable[storedQueryCount] = storedQueryVariable[storedQueryCount] + blurb;
					vCount += 1;
					sqvpos = theReply.indexOf("<SQVAR",startpos);
				}
				storedQueryVarCount[storedQueryCount] = vCount;
			
				storedQueryCount += 1;
			}
			
			
			sqpos = theReply.indexOf("<STOREDQUERY name=",endpos);
			sqpos2 = theReply.indexOf("</STOREDQUERY>",sqpos);
		}
	}
	blurb=null;
	if (storedQueryCount==0) {
		alert(LayerName[ActiveLayerIndex] + ":\nThis Layer does not have any StoredQueries.");
	} else {
		storedQueryForm();
	}
}

// storedQuery Form
function storedQueryForm() {
	writeStoredQueryForm(storedQueryIndex);
}

function writeStoredQueryForm(theIndex) {
	storedQueryIndex=theIndex;
	if (storedQueryVarCount==0) {
		sendStoredQuery(theIndex,"");
	} else {
	
		if (useTextFrame) {
			var Win1 = parent.TextFrame;
			Win1.document.open();
			var t = "parent.MapFrame";
			
		} else {
			var Win1 = open("","QueryWindow","width=575,height=150,scrollbars=yes,resizable=yes");
			var t = "opener";
			if (parent.MapFrame!=null) t = "opener.parent.MapFrame";
		}
		
		Win1.document.writeln('<html><HEAD>');
		Win1.document.writeln('			<script language="javascript">');
		Win1.document.writeln('var t = ' + t);
		
		Win1.document.writeln('function setStyle() {');
		Win1.document.writeln('	var f = document.forms[0];');
		Win1.document.writeln('	var theCount = t.storedQueryIndex;');
		Win1.document.writeln('	var okValue = 0;');
		Win1.document.writeln('	if (t.storedQueryVarCount[theCount]==1) {');
		Win1.document.writeln('		var theValue = f.theStyle.value;');
		Win1.document.writeln('		if (theValue!="") okValue = 1;');
		Win1.document.writeln('	} else {');
		Win1.document.writeln('		var theValue = f.theStyle[0].value;');
		Win1.document.writeln('		if (f.theStyle[0].value!="") okValue = 1;');
		Win1.document.writeln('		for (var i=1;i<t.storedQueryVarCount[theCount];i++) {');
		Win1.document.writeln('			theValue = theValue + "|" + f.theStyle[i].value;');
		Win1.document.writeln('			if (f.theStyle[i].value!="") okValue += 1;');
		Win1.document.writeln('		}');
		Win1.document.writeln('	}');
		Win1.document.writeln('	if (okValue==t.storedQueryVarCount[theCount]) {');
		Win1.document.writeln('		t.sendStoredQuery(theCount,theValue);');
		Win1.document.writeln('	} else {');
		Win1.document.writeln('		alert("Please enter appropriate value");');
		Win1.document.writeln('	}');
		Win1.document.writeln('}');
		Win1.document.writeln('function selectQuery() {');
		Win1.document.writeln('	var f = document.forms[0];');
		Win1.document.writeln('	var theIndex = f.theQuery.selectedIndex;');
		Win1.document.writeln('	t.writeStoredQueryForm(theIndex);');
		Win1.document.writeln('}');
		Win1.document.writeln('</script>');
		Win1.document.writeln('</head>');
		
		Win1.document.writeln('<body bgcolor="Black" text="White" topmargin=0 leftmargin=0 rightmargin=0 onload="window.focus()">');
		Win1.document.writeln('<div align="center">');
		Win1.document.writeln('<font face="Arial" size="-2"><b>');
		Win1.document.writeln('<form action="" name="theStoreQueryForm" onsubmit="setStyle(); return false;">');
		Win1.document.writeln('<table cellspacing="2" nowrap bgcolor="' + textFrameFormColor + '" width=100%>');
		Win1.document.writeln('<tr><th colspan="3" align="CENTER">');
		Win1.document.writeln('<font face="Arial" size="-1"><b>Search</b><br></font>');
		Win1.document.writeln('<font face="Arial" size="-2"><b>Search is Case-Sensitive</b></font>');
		Win1.document.writeln('</th></tr>');
		Win1.document.writeln('<tr>');
		Win1.document.writeln('<td align="Left">');
		Win1.document.writeln('<font face="Arial" size="-1">' + LayerName[ActiveLayerIndex]);
		Win1.document.writeln('<select name="theQuery" onchange="selectQuery()">')

		for (var i=0;i<storedQueryCount;i++) {
			Win1.document.write('	<option value=' + i);
			if (i==storedQueryIndex) Win1.document.write(' selected');
			Win1.document.writeln('>' + storedQueryName[i]);
		}

		Win1.document.writeln('</select>');
		Win1.document.writeln('</font></td>');
		Win1.document.writeln('<td align="RIGHT"><font face="Arial" size="-1">');

		for (var i=0;i<storedQueryVarCount[storedQueryIndex];i++) {
			Win1.document.write('Value');
			if (storedQueryVarCount[storedQueryIndex]>1) Win1.document.write(' ' + (i+1));
			Win1.document.writeln(':');
			Win1.document.writeln('<input type=text name="theStyle" value=""><br>');
		}

		Win1.document.writeln('</font>');
		Win1.document.writeln('</td>');
		Win1.document.writeln('<td align="CENTER">');
		Win1.document.writeln('<input type="Button" name="setDU" value="Execute" onclick="setStyle()">  <br>');
		
		Win1.document.writeln('</td></tr></table></form>');
		Win1.document.writeln('</b></font></div>');
		Win1.document.writeln('</body></html>');
		Win1.document.close();
		Win1=null;
	
	}

}

// create the querystring for storedQuery and send it
function sendStoredQuery(theIndex,theValue) {
	showRetrieveData();
	var oldString = storedQueryString[theIndex];
	if (storedQueryVarCount[theIndex]>0) {
		var var1 = storedQueryVariable[theIndex].split("|");
		var var2 = theValue.split("|");
		for (var i=0;i<var1.length;i++) {
			oldString = swapStuff(oldString,var1[i],var2[i]);
		}
	
	} else {
		oldString = swapStuff(oldString,storedQueryVariable[theIndex],theValue);
	}
	//var newString = parseEntity(oldString);
	var newString = makeXMLsafe(oldString);
	//alert(newString);
	setQueryString = newString;
	var theString = writeQueryXML(newString);
	//alert("StoredQuery Request:\n" + theString);
	sendToServer(imsQueryURL,theString,queryXMLMode);
}

// see if there are storedQueries (Search) 
function checkStoredQueries(theReply) {
	var startpos = theReply.indexOf("<STOREDQUERY",1);
	if (startpos==-1) {
		//no storedqueries. . . do not display button
		useStoredQuery=false;
	}
		
}