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

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


function LookupOpenPopup08() 
	{ 
		window.open('http://www.simplylookupadmin.co.uk/WebSearchWinButton.aspx'+'?id=33333333333333333333318B015693935978553548&co='+escape(document.forms[0].txtPostCode.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 GetStringFromQuery08(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 (GetStringFromQuery08('ZID').toUpperCase() == 'ZPLOOKUP08') 
		{
			
LookupSetFieldVal08("txtHouseNumber", GetStringFromQuery08('ZL1'));LookupSetFieldVal08("txtStreet", GetStringFromQuery08('ZL2'));LookupSetFieldVal08("txtVillage", GetStringFromQuery08('ZL3'));LookupSetFieldVal08("txtArea", GetStringFromQuery08('ZL4'));LookupSetFieldVal08("txtCity", GetStringFromQuery08('ZL5'));LookupSetFieldVal08("txtCounty", GetStringFromQuery08('ZL6'));LookupSetFieldVal08("txtPostCode", GetStringFromQuery08('ZL7'));LookupSetFieldVal08("txtCountry", GetStringFromQuery08('ZL8'));
			
			window.close();
		}; 	
	}

function LookupSetFieldVal08(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);
							} 
					}; 
			};
	}; 		

StartPopupCode08();