//		GLOBALS
	var debug = false;
	var initWhere="";  // this where is without the "where" word, just the constraints, i.e. "Active=1"
	var globalFormType="edit";
	var numrec = -1;  // the record number currently active
	var items;
	var types; // get the types
	var getAllRecords=true;
	var activeTable="";
	var lastWhere="";
	var navActive = false;
	var recordsPerPage=2;
	var numpages=0;
	var totalRecords=0; // totalRecords=recordsPerPage*(numpages-1) + 1
	var pageIndex=1;
	var orderby="";
	var showAlerts=true;
	var showform=true;
	var CurrentQuery="";
	var CRUDClear=true;
	var values;  // these are the saved values
	/* Another way to get XML into the page is to use the following
	//		<XML ID="ivcRecord" SRC="order.xml"></XML>
	//	<XML ID="ivcRecord" SRC="http://localhost/_ivcworking/OrmIsland/order.xml"></XML>
	//----------------------------------------------------------------------------
	*/
	var ivcRecord = GetXmlObject();
	var ivcRecordChanged = GetXmlObject();
	var prefix="";  // the prefix used previously.  We want to set this to nothing.
	var odbc,pk,query,connstr,burl,s,useodbc=false;
//	burl="http://localhost/ShapeXml/CustomersOrders.asmx/queryOrm"; // call the webservice
//	query="SELECT CustomerID,Address,Country,Phone,Fax,city FROM Customers";
/////////////////////////////////////////////////
var MozFox = false;
if(document.implementation && document.implementation.createDocument)
{
	MozFox = true;
	// Extend the Array to behave as a NodeList	
	Array.prototype.item = function(i)
	{
		return this[i];
	};
	// add IE's expr property
	Array.prototype.expr = "";
    // dummy, used to accept IE's stuff without throwing errors
	XMLDocument.prototype.setProperty  = function(x,y){};
	// Emulate IE's selectNodes
	XMLDocument.prototype.selectNodes = function(sExpr, contextNode)
	{
		var oResult = this.evaluate(sExpr, (contextNode?contextNode:this), 
							this.createNSResolver(this.documentElement),
							XPathResult.ORDERED_NODE_SNAPSHOT_TYPE, null);
		var nodeList = new Array(oResult.snapshotLength);
		nodeList.expr = sExpr;
		for(i=0;i<nodeList.length;i++)
			nodeList[i] = oResult.snapshotItem(i);
		return nodeList;
	};
	Element.prototype.selectNodes = function(sExpr)
	{
		var doc = this.ownerDocument;
		if(doc.selectNodes)
			return doc.selectNodes(sExpr, this);
		else
			throw "SarissaXPathOperationException: Method selectNodes is only supported by XML Nodes";
	};
	XMLDocument.prototype.selectSingleNode = function(sExpr, contextNode){
		var ctx = contextNode?contextNode:null;
		sExpr = "("+sExpr+")[1]";
		var nodeList = this.selectNodes(sExpr, ctx);
		if(nodeList.length > 0)
		    return nodeList.item(0);
		else
		    return null;
	};
	/**
	* <p>Extends the Element to emulate IE's selectNodes.</p>
	* @argument sExpr the XPath expression to use
	* @returns the result of the XPath search as an (Sarissa)NodeList
	* @throws An error if invoked on an HTML Element as this is only be
	*             available to XML Elements.
	*/
	Element.prototype.selectSingleNode = function(sExpr){
		var doc = this.ownerDocument;
		if(doc.selectSingleNode)
		    return doc.selectSingleNode(sExpr, this);
		else
		    throw "Method selectNodes is only supported by XML Elements";
	};
}

/////////////////////////////////////////////////
	function GetRecordsPerPage()
	{
		return recordsPerPage;
	}
	function SetRecordsPerPage(num)
	{
		recordsPerPage = num;
	}
	function getDbVal(s)
	{
		var flag=true;
		if(s == null) return s;
		for (var i = 0; i < s.length; i++){   
			var c = s.charAt(i);
			if (((c < "0") || (c > "9"))){ flag=false; break; }
		}
		if(!flag) 
		{
			s = "'"+s+"'";
			return s;
		} else return s;
	}
	function getWhereValues(nowire)  
	{
		if(types == null) return "";
		var name,val,islike=false,isGT,isLT; 
		var str="",equality="";
		for(var k=0; k < types.length; k++) 
		{
			name = types[k].firstChild.nodeValue.split(",");  
			islike=false;
			isLT=false;
			isGT=false;
			if(name[1].indexOf("text") > -1) continue;
			val = document.getElementById(prefix+name[0]).value;
			if(val == "") continue;
			var loc=val.indexOf("*");
			if(loc == -1) loc=val.indexOf("<");
			if(loc == -1) loc=val.indexOf(">");
			if(loc > -1) 
			{
				var tmp="",c;
				for(var j=0; j < val.length; j++)
				{
					c = val.charAt(j);
					if(c == '*')
					{ 
						if(nowire){ tmp += '%'; islike=true; }
						else{ tmp += '%25'; islike=true; }
					}  // since this has to go over the wire, encode % to %25
					else if(c == '<'){ isLT=true; }
					else if(c == '>'){ isGT=true; }
					else tmp += c;
				}
				val=tmp;
			}
			if(str.length > 1) 
			{
				str += " and ";
			}
			if(islike) equality=" like ";
			else if(isGT) equality=" > ";
			else if(isLT) equality=" < ";
			else equality="=";
//			alert(name[1]);
			if(name[1].indexOf("char") > -1) str += name[0]+equality+"'"+val+"'";
			else if(name[1].indexOf("int") > -1 || name[1].indexOf("number") > -1 || name[1].indexOf("double") > -1 || name[1].indexOf("float") > -1) str += name[0]+equality+val;
			else str += name[0]+equality+getDbVal(val);
		}
		if(initWhere != "") 
		{
			if(str == "") str += initWhere;
			else str += " and "+initWhere;
		}
		if(str == "") return "";
		else return str;
//		else return " where "+str;
	}
	function doFindAgain() // used internally, when there is no where clause
	{
		// spawn Event
		AppletEvent("before_find_again","");
		var dbnd="",cnt=0,tmp;
		var nodes = document.getElementsByTagName("input");
		for(var i=0; i < nodes.length; i++)
		{
			if("hidden" == nodes[i].getAttribute("type"))
			{
				tmp = nodes[i].getAttribute("databound");
				if(tmp != null)
				{
					if(cnt > 0) dbnd += ","+tmp;
					else{ cnt++; dbnd = tmp; }
				}
			}
		}
		var names= dbnd.split(",");
		var table=names[0].split(".")[0];
		activeTable=table;
		query = "select "+names+" from "+table;
		if(lastWhere == "") lastWhere = initWhere;
//		alert(lastWhere); 	
		s = ExecutePostEvt("ivcGetIslandXml.aspx","fields="+names+"&pageIndex="+pageIndex+"&table="+table+"&query="+query+"&conn="+"&where="+lastWhere+"&recordsPerPage="+recordsPerPage+"&sortfield="+orderby);
//		alert(pageIndex+"  :  "+s);
		// Cross Browser attempt
		 if (document.implementation.createDocument){ 
			// Mozilla, create a new DOMParser 
			var parser = new DOMParser(); 
			ivcRecordChanged = parser.parseFromString(s, "text/xml"); 
		 } else if (window.ActiveXObject){ 
			ivcRecordChanged.loadXML(s);
		 } 
		ivcRecord = ivcRecordChanged;
		items = ivcRecord.selectNodes("/ivcOrmRoot/ivcBaseData/ivcOrm");
		types = ivcRecord.selectNodes("/ivcOrmRoot/typesArray/type"); // get the types
		numpages = ivcRecord.selectNodes("/ivcOrmRoot/numPages")[0].firstChild.nodeValue;
		totalRecords = ivcRecord.selectNodes("/ivcOrmRoot/totalRecs")[0].firstChild.nodeValue;
		values=new Array(types.length);  // these are the saved values
		var data="<table border='0'>", name="";
//		var frmType="string"
//		globalFormType = frmType;
		var sr = document.getElementById("StartRecord");
		if(sr != null && sr.value != "") numrec = parseInt(sr.value)-2;
		else numrec=-1;
		getDataNext();
	}
	function doFind()
	{
		AppletEvent("before_find","");
		var dbnd="",cnt=0,tmp;
		var nodes = document.getElementsByTagName("input");
		for(var i=0; i < nodes.length; i++)
		{
			if("hidden" == nodes[i].getAttribute("type"))
			{
				tmp = nodes[i].getAttribute("databound");
				if(tmp != null)
				{
					if(cnt > 0) dbnd += ","+tmp;
					else{ cnt++; dbnd = tmp; }
				}
			}
		}
		var names= dbnd.split(",");
		var table=names[0].split(".")[0];
		activeTable=table;
		query = "select "+names+" from "+table;
		lastWhere = getWhereValues(false);
			var alertCurQuery=false;
			var cwhere=getWhereValues(true);
			CurrentQuery = query;
			if(cwhere != "") CurrentQuery += " where "+cwhere;
			CurrentQuery += orderby;
			if(alertCurQuery) alert(CurrentQuery); 	
		pageIndex = 1;
		s = ExecutePostEvt("ivcGetIslandXml.aspx","fields="+names+"&pageIndex="+pageIndex+"&table="+table+"&query="+query+"&conn="+"&where="+lastWhere+"&recordsPerPage="+recordsPerPage+"&sortfield="+orderby);
		if(s.length < 100) 
		{
			if(showAlerts) alert("No Records Found");
			document.getElementById("statusinfo").innerText = "";
			navActive = false;
			AppletEvent("no_recs_found","");
			return;
		}
		navActive = true;
//		alert(s.length);
		 if (document.implementation.createDocument){ 
			// Mozilla, create a new DOMParser 
			var parser = new DOMParser(); 
			ivcRecordChanged = parser.parseFromString(s, "text/xml"); 
		 } else if (window.ActiveXObject){ 
			ivcRecordChanged.loadXML(s);
		 } 
		ivcRecord = ivcRecordChanged;
		items = ivcRecord.selectNodes("/ivcOrmRoot/ivcBaseData/ivcOrm");
		types = ivcRecord.selectNodes("/ivcOrmRoot/typesArray/type"); // get the types
		numpages = ivcRecord.selectNodes("/ivcOrmRoot/numPages")[0].firstChild.nodeValue;
		totalRecords = ivcRecord.selectNodes("/ivcOrmRoot/totalRecs")[0].firstChild.nodeValue;
		values=new Array(types.length);  // these are the saved values
		var data="<table border='0'>", name="";
//		var frmType="string"
//		globalFormType = frmType;
		var sr = document.getElementById("StartRecord");
		if(sr != null && sr.value != "") numrec = parseInt(sr.value)-2;
		else numrec=-1;
		getDataNext();
		AppletEvent("after_find","");
	}
	function doFindFull()
	{
		var dbnd="",cnt=0,tmp;
		var nodes = document.getElementsByTagName("input");
		for(var i=0; i < nodes.length; i++)
		{
			if("hidden" == nodes[i].getAttribute("type"))
			{
				tmp = nodes[i].getAttribute("databound");
				if(tmp != null)
				{
					if(cnt > 0) dbnd += ","+tmp;
					else{ cnt++; dbnd = tmp; }
				}
			}
		}
		var names= dbnd.split(",");
		var table=names[0].split(".")[0];
		activeTable=table;
		query = "select "+names+" from "+table+getWhereValues(false);
//		alert(query); return;
		s = ExecutePostEvt("ivcGetIslandXml.aspx","query="+query+"&conn=");
		if(s.length < 100) 
		{
			if(showAlerts) alert("No Records Found");
			navActive = false;
			document.getElementById("statusinfo").innerText = "";
			AppletEvent("no_recs_found","");
			return;
		}
		navActive = true;
		 if (document.implementation.createDocument){ 
			// Mozilla, create a new DOMParser 
			var parser = new DOMParser(); 
			ivcRecordChanged = parser.parseFromString(s, "text/xml"); 
		 } else if (window.ActiveXObject){ 
			ivcRecordChanged.loadXML(s);
		 } 
		ivcRecord = ivcRecordChanged;
		items = ivcRecord.selectNodes("/ivcOrmRoot/ivcBaseData/ivcOrm");
		types = ivcRecord.selectNodes("/ivcOrmRoot/typesArray/type"); // get the types
		values=new Array(types.length);  // these are the saved values
		var data="<table border='0'>", name="";
//		var frmType="string"
//		globalFormType = frmType;
		var sr = document.getElementById("StartRecord");
		if(sr != null && sr.value != "") numrec = parseInt(sr.value)-2;
		else numrec=-1;
		getDataNext();
	}
	function init()
	{
		var dbnd="",cnt=0,tmp;
		var nodes = document.getElementsByTagName("input");
		for(var i=0; i < nodes.length; i++)
		{
			if("hidden" == nodes[i].getAttribute("type"))
			{
				tmp = nodes[i].getAttribute("databound");
				if(tmp != null)
				{
					if(cnt > 0) dbnd += ","+tmp;
					else{ cnt++; dbnd = tmp; }
				}
			}
		}
//		alert(dbnd);
		var names= dbnd.split(",");
		var table=names[0].split(".")[0];
		activeTable=table;
		if(getAllRecords) query = "select "+names+" from "+table;
		else  query = "select top 1 "+names+" from "+table;
		lastWhere="";
//		s = queryServerForXml(burl, query, connstr, odbc, pk);  // the web service solution, but only works locally
//		alert("fields="+names+"&pageIndex="+pageIndex+"&table="+table+"&query="+query+"&conn="+"&where="+"&recordsPerPage="+recordsPerPage); return;
		s = ExecutePostEvt("ivcGetIslandXml.aspx","fields="+names+"&pageIndex="+pageIndex+"&table="+table+"&query="+query+"&conn="+"&where="+initWhere+"&recordsPerPage="+recordsPerPage+"&sortfield="+orderby);
		if(s.length < 100) 
		{
			if(showAlerts) alert("No Records Found");
			navActive = false;
			document.getElementById("statusinfo").innerText = "";
			AppletEvent("no_recs_found","");
			return false;
		}
		else if(s.indexOf("GetSortedPageQuery") > -1) 
		{
			navActive = false;
			document.getElementById("statusinfo").innerHTML = "<font color='#ff0000'>Error</font>";
			AppletEvent("no_recs_found","");
			if(showAlerts) alert(s);
			return false;
		}
		navActive = true;
//		alert(s);
//		s = ExecutePostEvt("ivcGetIslandXml.aspx","query="+query+"&conn="+"&mode=single");
//		ormOut.innerText=s; 
//		alert(s); 
		//    var s = runRemoteScript("http://localhost/_ivcworking/OrmIsland/GetIslandXml.aspx");
		//    var s = runRemoteScript("http://localhost/_ivcworking/OrmIsland/order.xml");
		//   alert(s);
		 if (document.implementation.createDocument){ 
			// Mozilla, create a new DOMParser 
			var parser = new DOMParser(); 
			ivcRecordChanged = parser.parseFromString(s, "text/xml"); 
		 } else if (window.ActiveXObject){ 
			ivcRecordChanged.loadXML(s);
		 } 
		ivcRecord = ivcRecordChanged;
//		alert(ivcRecord+"");
//		ivcRecord.loadXML(s);
		//    ivcRecord.load("http://localhost/_ivcworking/OrmIsland/order.xml");  // not working
		items = ivcRecord.selectNodes("/ivcOrmRoot/ivcBaseData/ivcOrm");
		types = ivcRecord.selectNodes("/ivcOrmRoot/typesArray/type"); // get the types
		values=new Array(types.length);  // these are the saved values
		return true;
	}
// ====================================================================
// ====================================================================
	function URLEncode( inStr )
	{
		if(inStr == null) return "";
		// The Javascript escape and unescape functions do not correspond
		// with what browsers actually do...
		var SAFECHARS = "0123456789" +					// Numeric
						"ABCDEFGHIJKLMNOPQRSTUVWXYZ" +	// Alphabetic
						"abcdefghijklmnopqrstuvwxyz" +
						"-_.!~*'()";					// RFC2396 Mark characters
		var HEX = "0123456789ABCDEF";
	
		var plaintext = inStr; 
		var encoded = "";
		for (var i = 0; i < plaintext.length; i++ ) {
			var ch = plaintext.charAt(i);
		    if (ch == " ") {
			    encoded += "+";				// x-www-urlencoded, rather than %20
			} else if (SAFECHARS.indexOf(ch) != -1) {
			    encoded += ch;
			} else {
			    var charCode = ch.charCodeAt(0);
				if (charCode > 255) {
				    alert( "Unicode Character '" + ch + "' cannot be encoded using standard URL encoding.\n" +
						"(URL encoding only supports 8-bit characters.)\n" +
							"A space (+) will be substituted." );
					encoded += "+";
				} else {
					encoded += "%";
					encoded += HEX.charAt((charCode >> 4) & 0xF);
					encoded += HEX.charAt(charCode & 0xF);
				}
			}
		} // for
		return encoded;
	};
	
	function URLDecode( inStr )
	{
	   // Replace + with ' '
	   // Replace %xx with equivalent character
	   // Put [ERROR] in output if %xx is invalid.
	   var HEXCHARS = "0123456789ABCDEFabcdef"; 
	   var encoded = inStr;
	   var plaintext = "";
	   var i = 0;
	   while (i < encoded.length) {
	       var ch = encoded.charAt(i);
		   if (ch == "+") {
		       plaintext += " ";
			   i++;
		   } else if (ch == "%") {
				if (i < (encoded.length-2) 
						&& HEXCHARS.indexOf(encoded.charAt(i+1)) != -1 
						&& HEXCHARS.indexOf(encoded.charAt(i+2)) != -1 ) {
					plaintext += unescape( encoded.substr(i,3) );
					i += 3;
				} else {
					alert( 'Bad escape combination near ...' + encoded.substr(i) );
					plaintext += "%[ERROR]";
					i++;
				}
			} else {
			   plaintext += ch;
			   i++;
			}
		} // while
	   return plaintext;
	}
	
	function queryServerForXml(baseUrl, query, connectionString, odbc, pk)  // non-working webservice post attempt
	{
		var qp="doOdbc="+odbc+"&pk="+pk+"&query="+query+"&connstr="+URLEncode(connectionString);
//		alert(qp);
		return ExecutePostEvt(baseUrl, qp);
	}
	
	function GetXmlObject() 
	{
		if (typeof window.ActiveXObject != 'undefined' ) {
			return new ActiveXObject("MSXML2.DOMDocument.3.0");
		}
		else {
			return new XMLHttpRequest();
		}
	}
	function GetHttpObject() 
	{
		if (typeof window.ActiveXObject != 'undefined' ) {
			return new ActiveXObject("Microsoft.XMLHTTP");
		}
		else {
			return new XMLHttpRequest();
		}
	}
	function AsyncCallBack(ret,fid)
	{
		switch(fid) // execute a function somewhere
		{
			case 0:
				alert(fid+":  "+ret);
			break;
			case 1:
				alert(fid+":  "+ret);
			break;
			case 2:
				alert(fid+":  "+ret);
			break;
			case 3:
				alert(fid+":  "+ret);
			break;
		}
	}
	function ExecuteScriptAsync( rscript, params, fid )
	{
		var httpObj = GetHttpObject();
		httpObj.open("POST", rscript, true, "", "");
		httpObj.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
		httpObj.send(params); // if sending variables, omit the "?", i.e. if the get was url?name=max&day=now, then send only "name=max&day=now"
		httpObj.onreadystatechange = function () {
			if (httpObj.readyState == 4) AsyncCallBack(httpObj.responseText,fid); 
		}
	}
	function ExecutePostEvt( url, pars )
	{
		var httpObj = GetHttpObject();
		httpObj.open("POST", url, false, "", "");
		httpObj.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
		httpObj.send(pars); // if sending variables, omit the "?", i.e. if the get was url?name=max&day=now, then send only "name=max&day=now"
		return httpObj.responseText;	
	}
	function runRemoteScript( rscript )
	{
		var httpObj = GetHttpObject();
		httpObj.open("GET", rscript, false, "", "");
		httpObj.setRequestHeader("Content-Type","text/xml");
		httpObj.send(null);
		return httpObj.responseText;	
	}
    
    // build the form	//////////////////////////////////////////////////////////////////////////////////////////////////////
	function switchMode(mode)
	{
		var data="<table border='0'>", name="";
		globalFormType = mode;
		for(var k=0; k < types.length; k++) 
		{
			name = types[k].firstChild.nodeValue.split(",");
			if(mode == "edit")
				data += "<tr><td>"+name[0]+"</td><td><input type='text' id='"+prefix+name[0]+"' name='"+name[0]+"'></td></tr>";
			if(mode == "string")
				data += "<tr><td>"+name[0]+"</td><td><span id='"+prefix+name[0]+"'></span></td></tr>";
		}
		var tbl = document.getElementById("formContent");
		tbl.innerHTML = data+"</table>";
		if(numrec > -1) numrec--;
		getDataNext();
	}
	function showForm(frmType)
	{
		navActive = false;
		if(!init()) return;
		numpages = ivcRecord.selectNodes("/ivcOrmRoot/numPages")[0].firstChild.nodeValue;
		totalRecords = ivcRecord.selectNodes("/ivcOrmRoot/totalRecs")[0].firstChild.nodeValue;
		var data="<table border='0'>", name="";
		if(frmType == null) frmType="edit"
		globalFormType = frmType;
		var sr = document.getElementById("StartRecord");
		if(sr != null && sr.value != "") numrec = parseInt(sr.value)-2;
		else numrec=-1;
		if(getAllRecords) getDataNext();
		else clearForm();
		// spawn Event
		AppletEvent("initial_Load","");
		AppletEvent("update_table",null);
		showform = false;
	}
	function getFormHtml()
	{
		return document.getElementById("formContent").innerHTML;
	}
	function setFormHtml(htmlTbl)
	{
		document.getElementById("formContent").innerHTML = htmlTbl;
		if(numrec > -1) numrec--;
		getDataNext();
	}
//    alert(ivcRecord.selectSingleNode("/ivcOrmRoot/typesArray/type[1]").text);
	/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
        
    function getNode(doc, xpath) {
      return doc.selectSingleNode(xpath);
    }
    
    function getNodeText(doc, xpath) {
      var retval = "";
      var value = doc.selectSingleNode(xpath);
      if (value.firstChild) retval = value.firstChild.nodeValue;
      return retval;
    }
    
    function getXml(element)
    {
	return element.xml;
    }
    
    function clearForm()
    {
	if(types == null) return;
	var name;
	for(var k=0; k < types.length; k++) 
	{
		name = types[k].firstChild.nodeValue.split(",");
		var aname = prefix+name[0];
		editor_obj = document.getElementById("_" +aname + "_editor");
		if(editor_obj != null) editor_setHTML(aname, "");
		else document.getElementById(prefix+name[0]).value = "";
	}
	document.getElementById("statusinfo").innerText = "";
    }
    // use this method to jump
    function JumpToRecord(rec)
    {
	pageIndex= parseInt((rec-1)/recordsPerPage)+1;
//	numrec = pageIndex*recordsPerPage - rec;
	var newrec=rec-(pageIndex-1)*recordsPerPage-1;
//	alert(numrec);
	doFindAgain();
	if(newrec > 0) gotoRecord(newrec)
	AppletEvent("update_table",null);
    }
    // internal method
    function gotoRecord(rec)
    {
	    numrec = rec-1;
	    getDataNext();
    }
  
	function getdata(node)
	{
	    return (node ? (node.text ? node.text : "&nbsp;") : "&nbsp;"); 
	}

    function getDataNext() {  
    if(!navActive) return;
        if (numrec > items.length-2) 
        {
		if(pageIndex < numpages)
		{
			document.getElementById("statusinfo").innerText = "<font color='#ff0000'>Busy</font>";
			pageIndex++;
			doFindAgain();
			numrec=-1;
			AppletEvent("update_table",null);
		}
		else return;
	}
      numrec++;
      var getrec;
     if(MozFox) getrec = numrec+1;
     else getrec = numrec;
		var name;
		var lnode=getNode(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + getrec + "]");
	var att = lnode.getAttribute("ops");  
//	alert();
		for(var k=0; k < types.length; k++) 
		{
			name = types[k].firstChild.nodeValue.split(",");  
			values[k] = getNodeText(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + getrec + "]/"+name[0]);
			if(globalFormType == "edit")
			{ 
				var aname = prefix+name[0];
				editor_obj = document.getElementById("_" +aname + "_editor");
				if(!showform && editor_obj != null) editor_setHTML(aname, values[k]);
				else document.getElementById(prefix+name[0]).value = values[k];
			}
			else if(globalFormType == "string")
				document.getElementById(prefix+name[0]).innerText = values[k];
		}
	var numrecs = document.getElementById("statusinfo");
	
	numrecs.innerHTML = (pageIndex-1)*recordsPerPage+(numrec+1)+" of "+totalRecords;
	AppletEvent("record_changed",numrecs.innerHTML);
    }
    
    function getDataPrev() {
	    if(!navActive) return;
        if (numrec < 1) 
        {
//		alert("numrec="+numrec+" rpp="+recordsPerPage+" idx="+pageIndex);
		if(pageIndex > 1)
		{
			document.getElementById("statusinfo").innerText = "<font color='#ff0000'>Busy</font>";
			pageIndex--;
			doFindAgain();
			numrec=recordsPerPage;
			AppletEvent("update_table",null);
		}
		else return;
	}
      numrec--;
//      if (numrec < 0) numrec = items.length - 1;
      
      var getrec;
     if(MozFox) getrec = numrec+1;
     else getrec = numrec;
		var name;
	var lnode = getNode(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + getrec + "]");
	var att = lnode.getAttribute("ops");
		for(var k=0; k < types.length; k++) 
		{
			name = types[k].firstChild.nodeValue.split(",");
			values[k] = getNodeText(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + getrec + "]/"+name[0]);
			if(globalFormType == "edit")
			{
				var aname = prefix+name[0];
				editor_obj = document.getElementById("_" +aname + "_editor");
				if(editor_obj != null) editor_setHTML(aname, values[k]);
				else document.getElementById(prefix+name[0]).value = values[k];
			}
			else if(globalFormType == "string")
				document.getElementById(prefix+name[0]).innerText = values[k];
		}
	var numrecs = document.getElementById("statusinfo");
	
	numrecs.innerHTML = (pageIndex-1)*recordsPerPage+(numrec+1)+" of "+totalRecords;
	AppletEvent("record_changed",numrecs.innerHTML);
    }
    
	// returns an array of the current values.  Use this method if the user changes the data.
	//  Use the valuse array to get the saved values.  This is usefull to test if the data has changed.
    function getCurrentValues()  
    {
	var name; 
	var array=new Array(types.length);
	for(var k=0; k < types.length; k++) 
	{
		name = types[k].firstChild.nodeValue.split(",");  
		array[k] = document.getElementById(prefix+name[0]).value;
	}
	return array;
    }
    
    function showSavedValues()
    {
	for(var k=0; k < values.length; k++) 
	{
		alert(values[k]);
	}
    }
    
    function showValues()
    {
	var array = getCurrentValues();
	for(var k=0; k < array.length; k++) 
	{
		alert(array[k]);
	}
    }
    
    function doOp(op)
    {
	alert("The operation "+op+" is not implemented yet");
    }
    
    function updateLocal()
    {
	var name,node;
      var getrec;
     if(MozFox) getrec = numrec+1;
     else getrec = numrec;
	for(var k=0; k < types.length; k++) 
	{
		name = types[k].firstChild.nodeValue.split(",");
		node = getNode(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + getrec + "]/"+name[0]);
		node.text = document.getElementById(prefix+name[0]).value;
	}
	node = getNode(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + getrec + "]");
	node.setAttribute("ops","update");  // set the operation in the XML
//	if(debug)alert("Record "+(numrec+1)+" - "+node.getAttribute("ops"));
	if(debug){alert(GetPagePost()+"&ivcUDMode=update"+"&ivcUDTable="+activeTable); return;}
	var ret=ExecutePostEvt("HandleFormForm.aspx",GetPagePost()+"&ivcUDMode=update"+"&ivcUDTable="+activeTable);
	if(ret != "success") alert("Failed to update this record: \n"+ret);
	else if(MozFox)
	{
		if(CRUDClear) clearForm();
		doFindFull();
		JumpToRecord(getrec)
	}
	AppletEvent("update_table","Updated Record");
    }
    function updateRemote(op)
    {
	alert("The operation "+op+" is not implemented yet");
    }
    
    function deleteLocal()
    {
      var getrec;
     if(MozFox) getrec = numrec+1;
     else getrec = numrec;
	node = getNode(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + getrec + "]");
	node.setAttribute("ops","delete");  // set the operation in the XML so the server will know what to delete
//	if(debug)alert("Record "+numrec+" - "+node.getAttribute("ops"));
	if(debug){alert(GetPagePost()+"&ivcUDMode=delete"+"&ivcUDTable="+activeTable); return;}
	var ret=ExecutePostEvt("HandleFormForm.aspx",GetPagePost()+"&ivcUDMode=delete"+"&ivcUDTable="+activeTable);	
	if(ret != "success") alert("Failed to delete this record: "+ret);
	removeLocal(); 
	if(CRUDClear) clearForm();
		if(totalRecords > 1) 
		{
			if(getrec == totalRecords) getrec -= 1;
			doFindFull();
			JumpToRecord(getrec);
		}
 	AppletEvent("update_table","Deleted Record");
   } 
    // this function completely removes the data
    function removeLocal()
    {
      var getrec;
     if(MozFox) getrec = numrec+1;
     else getrec = numrec;
	node = getNode(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + getrec + "]");
	node.parentNode.removeChild(node);
//	alert("done");
    }
    function deleteRemote(op)
    {
	alert("The operation "+op+" is not implemented yet");
    }
	
    function addLocal()
    {
	    var arec;
	    if(arec == 0) arec=items.length;
	    else arec ++;
	    /*
	var ormroot = ivcRecord.getElementsByTagName("ivcBaseData");
	var ele = ivcRecord.createElement("ivcOrm");
	var att = ivcRecord.createAttribute("ops");
	ele.setAttributeNode(att);  
			
	att = ivcRecord.createAttribute("cnt");
	ele.setAttributeNode(att);  
			
	var name;
	var ele2;
	var tn;
	for(var k=0; k < types.length; k++) 
	{
		name = types[k].text.split(",");
		ele2 = ivcRecord.createElement(name[0]);
		tn = ivcRecord.createTextNode(document.getElementById(prefix+name[0]).value);
		ele2.appendChild(tn);
		ele.appendChild(ele2);
	}
    	
	ormroot[0].appendChild(ele);
	items = ivcRecord.selectNodes("/ivcOrmRoot/ivcBaseData/ivcOrm");
//	alert("fini:  "+items.length);
//	alert(getXml(ormroot[0]));
//	document.getElementById("ormOut").innerText = getXml(ivcRecord.getElementsByTagName("ivcBaseData")[0]);
	// update the server
	*/
	if(debug){alert(GetPagePost()+"&ivcUDMode=insert"+"&ivcUDTable="+activeTable); return;}
	var ret=ExecutePostEvt("HandleFormForm.aspx",GetPagePost()+"&ivcUDMode=insert"+"&ivcUDTable="+activeTable);
	if(ret != "success") alert("Failed to insert this record: "+ret);
	else{
		if(CRUDClear) clearForm();
		if(MozFox) doFindFull();
		else doFind();
		JumpToRecord(totalRecords)
	}
	AppletEvent("update_table","Inserted Record");
    }
    function addRemote(op)
    {
	alert("The operation "+op+" is not implemented yet");
    }
    function getCurrentXml()
    {
		if(numrec < 0){ alert("No record selected"); return ""; }
	    	return getXml(getNode(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + numrec + "]"));
    }
    function getAllXml()
    {
	    	return getXml(getNode(ivcRecord, "/ivcOrmRoot"));
    }
    function ConvertHeaderTxt(name)
    {
	    var len=name.length; var tout="",tmp="";
	    for(var j=0; j < len; j++)
	    {
		    ch=name.charAt(j);
		    if(j == 0) ch = ch.toUpperCase( );
		    else
		    {
			    if(ch == '_') 
			    {
				    ch=" "; tout += ch; j++;
				    ch=name.charAt(j);
				    ch = ch.toUpperCase( );
			    }
		    }
		    tout += ch;
	    }
	    return tout;
    }
    function GetPopupTable() {  
		var name,zout="<table style=\"color:rgb(255,255,255); width:100%; font-family:Verdana; font-size:8pt; background-color:rgb(192,192,225); border: rgb(92,92,92); \">";
		zout += "<tr><td nowrap>Rec #</td>";
		for(var k=0; k < types.length; k++) 
		{
			name = types[k].firstChild.nodeValue.split(",");
			zout += "<td>"+ConvertHeaderTxt(name[0])+"</td>";
		}
		zout += "</tr>";
	var increment=0;
	if(MozFox) increment = 1;
	for (z=0; z < items.length; z++) 
	{
		var lnode = getNode(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + (z+increment) + "]");
		zout += "<tr style=\"color:black; background-color: whitesmoke\" onmouseover=\"this.style.backgroundColor='lightyellow';\" onmousedown=\"opener.gotoRecord("+z+")\" onmouseout=\"this.style.backgroundColor='whitesmoke';\">";
		zout += "<td>"+(z+1)+"</td>";
		for(var k=0; k < types.length; k++) 
		{
			name = types[k].firstChild.nodeValue.split(",");
			values[k] = getNodeText(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + (z+increment) + "]/"+name[0]);
			if(values[k] != null && values[k] != "") zout += "<td>"+values[k]+"</td>";
			else  zout += "<td><br></td>";
		}
		zout += "</tr>";
	}
	zout += "</table>";
	my_window= window.open ("", "mywindow1","scrollbars=yes,status=1,width=350,height=150,resizable=yes"); 
	my_window.document.write( zout );  
    }
    function GetTable(tblDiv, header, fields) {  
		var name,zout="<span style='height:450; overflow:auto;overflow-x:hidden;'><table style=\"color:rgb(255,255,255); width:100%; font-family:Verdana; font-size:8pt; background-color:rgb(192,192,225); border: rgb(92,92,92); \">";
		zout += "<tr align='center'><td nowrap>Rec #</td>";
		var i,j,k,z,hidx;
		var usefields=null,usehead=null;
		if(header != null)
		{
			usehead = header.split(",");
		}
		if(fields != null)
		{
			usefields = fields.split(",");
		}
		var docontinue=false;
		for(k=0; k < types.length; k++) 
		{
			name = types[k].firstChild.nodeValue.split(",");
			if(usefields != null) 
			{
				for(i=0; i < usefields.length; i++)
				{
					if(name[0].toLowerCase() == usefields[i].toLowerCase()){hidx = i; docontinue=true; break;}
				}
				if(docontinue) docontinue=false;
				else continue;
			}
			if(usehead != null) zout += "<td nowrap>"+ConvertHeaderTxt(usehead[hidx])+"</td>";
			else zout += "<td nowrap>"+ConvertHeaderTxt(name[0])+"</td>";
		}
		zout += "</tr>";
	var increment=0;
	if(MozFox) increment = 1;
	docontinue=false;
	for (z=0; z < items.length; z++) 
	{
		var lnode = getNode(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + (z+increment) + "]");
		zout += "<tr style=\"color:black; background-color: whitesmoke\" onmouseover=\"this.style.backgroundColor='lightyellow';\" onmousedown=\"gotoRecord("+z+")\" onmouseout=\"this.style.backgroundColor='whitesmoke';\">";
		zout += "<td nowrap>" + (z+1) + "</td>";
		if(lnode == null){ document.getElementById(tblDiv).innerHTML = "Error generating table"; return; }
		for(k=0; k < types.length; k++) 
		{
			name = types[k].firstChild.nodeValue.split(",");
			if(usefields != null) 
			{
				for(i=0; i < usefields.length; i++)
				{
					if(name[0].toLowerCase() == usefields[i].toLowerCase()){docontinue=true; break;}
				}
				if(docontinue) docontinue=false;
				else continue;
			}
			values[k] = getNodeText(ivcRecord, "/ivcOrmRoot/ivcBaseData/ivcOrm[" + (z+increment) + "]/"+name[0]);
			if(values[k] != null && values[k] != "") zout += "<td>"+values[k]+"</td>";
			else  zout += "<td><br></td>";
		}
		zout += "</tr>";
	}
	zout += "</table></span>";
	document.getElementById(tblDiv).innerHTML = zout;
    }
    
function GetPagePost()
{ 
	var dbn;
 var PostString="",val="";
 // look for dropdowns(selects)
 var eles = document.getElementsByTagName("select") ;
 if(eles != null)
 {
  for(var i=0; i < eles.length; i++) 
  {
if(eles[i].selectedIndex == -1) continue;
dbn = eles[i].getAttribute("db");
if(dbn == null || dbn == "false") continue;
   name = eles[i].getAttribute("name");
   val = eles[i].options[eles[i].selectedIndex].value;
   if(val == null) val = eles[i].options[eles[i].selectedIndex].text;
   val = URLEncode(val);
   if(PostString == "") PostString = name+"="+val;
   else PostString += "&"+name+"="+val;
  }
 }
 // look for inputs(text,checkboxes & radiobuttons)
 eles = document.getElementsByTagName("input") ;
 if(eles != null)
 {
  for(var i=0; i < eles.length; i++) 
  {
   if(eles[i] == null) continue;
dbn = eles[i].getAttribute("db");
if(dbn == null || dbn == "false") continue;
   name = eles[i].getAttribute("name");
   if(eles[i].getAttribute("type") == "text")// || eles[i].getAttribute("type") == "hidden")  // omit hiddens
   { 
    val = eles[i].value;
   val = URLEncode(val);
    if(PostString == "") PostString = name+"="+val;
    else PostString += "&"+name+"="+val;
   }
   else if(eles[i].getAttribute("type") == "radio") // atleast one of the radio's need to be selected
   {
    if(eles[i].checked) 
    {
	    val=eles[i].getAttribute("value");
	    if(PostString == "") PostString = name+"="+val;
	    else PostString += "&"+name+"="+val;
    }
    else val=0;
   }
   else if(eles[i].getAttribute("type") == "checkbox") 
   {
    if(eles[i].checked) val=eles[i].value;
    else val=0;
    if(PostString == "") PostString = name+"="+val;
    else PostString += "&"+name+"="+val;
   }
  }
 }
 // look for textareas
 eles = document.getElementsByTagName("textarea") ;
 if(eles != null)
 {
  for(var i=0; i < eles.length; i++) 
  {
   dbn = eles[i].getAttribute("db");
   if(dbn == null || dbn == "false") continue;
   name = eles[i].getAttribute("name");
   val = eles[i].value;
   val = URLEncode(val);
   if(PostString == "") PostString = name+"="+val;
   else PostString += "&"+name+"="+val;
  }
 }
 
	return PostString;
}