//Open Child window and write back values
//Thanks to Nongjian Zhou's for the excelent code found at http://www.codeproject.com

function StartPopupCode93() 
	{		
		document.write(" <input type=button id=LookupPopUp93 onclick='LookupOpenPopup93()' value='Find Address'  text='Click to complete your address'>");	
	}; 


function LookupOpenPopup93() 
	{ 
		window.open('http://www.simplylookupadmin.co.uk/WebSearchWinButton.aspx'+'?id=33333333333333333333318B534714935973555548&co='+escape(document.forms[1].bpostalcode.value)+'&rt='+escape(self.location), 'WIN', 'toolbar=0,location=0,directories=0,status=1,menubar=0,scrollbars=0,resizable=1,width=520,height=540'); 
	}; 


function GetStringFromQuery93(param) 
	{ 
		var BeginPos; 
		var EndPos; 

		if (self.location.search.length>1) 
			{ 
				BeginPos=self.location.search.indexOf(param + "=")+param.length+1; 
				EndPos=self.location.search.indexOf("&",BeginPos); 
				if (EndPos==(-1)) EndPos=self.location.search.length; 
				return unescape(self.location.search.substring(BeginPos,EndPos)); 
			} 
		else if (self.location.hash.length>1) 
			{ 
				BeginPos=self.location.hash.indexOf(param + "=") +param.length+1; 
				EndPos=self.location.hash.indexOf("&",BeginPos); 
				if(EndPos==(-1)) EndPos=self.location.hash.length; 
				return unescape(self.location.hash.substring(BeginPos,EndPos )); 
			}
		else 
		return(''); 
	};	
	
if (typeof(window.opener) != 'undefined')
	{
	
	if (GetStringFromQuery93('ZID').toUpperCase() == 'ZPLOOKUP93') 
		{
			
LookupSetFieldVal93("baddr1", GetStringFromQuery93('ZL1'));LookupSetFieldVal93("baddr2", GetStringFromQuery93('ZL2'));LookupSetFieldVal93("saddr3", GetStringFromQuery93('ZL3'));LookupSetFieldVal93("bcity", GetStringFromQuery93('ZL4'));LookupSetFieldVal93("bpostalcode", GetStringFromQuery93('ZL5'));
			
			window.close();
		}; 	
	}

function LookupSetFieldVal93(FieldName, data) 
	{ 
		
		for (FrCounter=0; FrCounter <= window.opener.document.forms.length-1 ; FrCounter++) 
			{ 
				for (FiCounter=0; FiCounter <= window.opener.document.forms[FrCounter].length-1 ; FiCounter++) 
					{ 
						if (window.opener.document.forms[FrCounter].elements[FiCounter].name==FieldName)
							{
								window.opener.document.forms[FrCounter].elements[FiCounter].value = unescape(data);
							} 
					}; 
			};
	}; 		

StartPopupCode93();