//-----------------------------------------------------------------------------------------------
//global variable declarations

var ONE = 1;
var TWO = 2;
var eek = false;
var ook = false;

var blankpic = new Array(
"blank/blank01.html","blank/blank02.html","blank/blank03.html","blank/blank04.html","blank/blank05.html",	
"blank/blank06.html","blank/blank07.html","blank/blank08.html","blank/blank09.html","blank/blank10.html",
"blank/blank11.html","blank/blank12.html","blank/blank13.html","blank/blank14.html","blank/blank15.html",
"blank/blank16.html","blank/blank17.html","blank/blank18.html","blank/blank19.html","blank/blank20.html",
"blank/blank21.html","blank/blank22.html","blank/blank23.html","blank/blank24.html","blank/blank25.html",
"blank/blank26.html","blank/blank27.html","blank/blank28.html","blank/blank29.html","blank/blank30.html",
"blank/blank31.html","blank/blank32.html","blank/blank33.html","blank/blank34.html","blank/blank35.html",
"blank/blank36.html","blank/blank37.html","blank/blank38.html","blank/blank39.html","blank/blank40.html",
"blank/blank41.html","blank/blank42.html","blank/blank43.html","blank/blank44.html","blank/blank45.html",
"blank/blank46.html","blank/blank47.html","blank/blank48.html","blank/blank49.html","blank/blank50.html",
"blank/blank51.html","blank/blank52.html","blank/blank53.html","blank/blank54.html","blank/blank55.html",
"blank/blank56.html","blank/blank57.html","blank/blank58.html","blank/blank59.html","blank/blank60.html");

//-----------------------------------------------------------------------------------------------
function doClear(x,pathStr){

var lFrame = document.getElementById('list');
var mFrame = document.getElementById('main');

	switch(x){
	case 'e': {mFrame.src = pathStr + "caspic_e.html";} break;
	case 'i': {mFrame.src = pathStr + "caspic_i.html";} break;
	case 's': {mFrame.src = pathStr + "caspic_s.html";} break;
	case 'w': {mFrame.src = pathStr + "caspic_w.html";} break;
	default: {mFrame.src = "blank2.html";} break;
	}

var rnd = Math.floor(Math.random()*60);

	lFrame.src = blankpic[rnd];

}
//-----------------------------------------------------------------------------------------------
function doClearMain(x,pathStr){

var mFrame = document.getElementById('main');

	switch(x){
	case 'e': {mFrame.src = pathStr + "caspic_e.html";} break;
	case 'i': {mFrame.src = pathStr + "caspic_i.html";} break;
	case 's': {mFrame.src = pathStr + "caspic_s.html";} break;
	case 'w': {mFrame.src = pathStr + "caspic_w.html";} break;
	default: {mFrame.src = "blank2.html";} break;
	}
}
//-----------------------------------------------------------------------------------------------
function doFrameResize(x){

var lFrame = document.getElementById('list');
var mFrame = document.getElementById('main');
var clWidth = 0, clHeight = 0;

  	if( typeof( window.innerWidth ) == 'number' ){
    	//Non-IE
    	clWidth = window.innerWidth;
    	clHeight = window.innerHeight;
  	} 
	else if( document.documentElement && ( document.documentElement.clientWidth || document.documentElement.clientHeight ) ){
    	//IE 6+ in 'standards compliant mode'
    	clWidth = document.documentElement.clientWidth;
    	clHeight = document.documentElement.clientHeight;
  	} 
	else if( document.body && ( document.body.clientWidth || document.body.clientHeight ) ){
    	//IE 4 compatible
    	clWidth = document.body.clientWidth;
    	clHeight = document.body.clientHeight;
  	}
  
	switch(x){
	case 1: {lFrame.height=clHeight-130; mFrame.height=lFrame.height;} break;
	case 2: {lFrame.height=clHeight-154; mFrame.height=lFrame.height;} break;
	default:{lFrame.height=clHeight-130; mFrame.height=lFrame.height;} break;
	}

}
//-----------------------------------------------------------------------------------------------
function doShowInfo(x){

var mFrame = document.getElementById('main');
var btn1 = document.getElementById('btnUD');
var btn2 = document.getElementById('btnBR');
	
	switch(x){

	case 1:{if(!eek){btn1.value = 'CLOSE'; btn2.value = 'BROWSERS'; mFrame.src = 'updates.txt';}
		else{btn1.value = 'UPDATES'; btn2.value = 'BROWSERS'; mFrame.src = 'intro.html';}

		eek = !eek;
		ook = false;

		}break;

	case 2:{
		if(!ook){btn2.value = 'CLOSE'; btn1.value = 'UPDATES'; mFrame.src = 'browser.txt';}
		else{btn2.value = 'BROWSERS'; btn1.value = 'UPDATES'; mFrame.src = 'intro.html';}

		ook = !ook;
		eek = false;

		}break;
		default : alert('Sorry, something has\n\ngone wrong...'); break;
	}
}
//-----------------------------------------------------------------------------------------------
function doWindow(x){

var oink = window.open('','','toolbar=no,location=no,status=yes,menubar=no,scrollbars=yes,resizable=yes');//three quoted parameters!

	oink.moveTo(0,0);

	oink.resizeTo(screen.availWidth,screen.availHeight);

	oink.document.location = x;

}
//-----------------------------------------------------------------------------------------------
//-----------------------------------------------------------------------------------------------
function doCountyList(oink,country){

var eek=0;
var x=0;
var url;
var sheet="";
var source="";
var lFrame = document.getElementById('list');

	lFrame = (lFrame.contentWindow) ? lFrame.contentWindow : (lFrame.contentDocument.document) ? lFrame.contentDocument.document : lFrame.contentDocument;

	doClear(country,'');

	self.status="Searching Data File";

	switch(country){
	case 'e': url='data/england/';break;
	case 'i': url='data/ireland/';break;
	case 's': url='data/scotland/';break;
	case 'w': url='data/wales/';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	//with(Math){eek=abs(oink);}
	eek = Math.abs(oink);
	
	if(eek>0){

	switch(country){
	case 'e': source='england';sheet='england';break;
	case 'i': source='ireland';sheet='ireland';break;
	case 's': source='scotland';sheet='scotland';break;
	case 'w': source='wales';sheet='wales';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	lFrame.document.open();
	lFrame.document.clear();

	lFrame.document.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>");

	lFrame.document.write("<html>");
	lFrame.document.write("<head>");
	lFrame.document.write("<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>");
	lFrame.document.write("<title>County Listings</title>");
	lFrame.document.write("<link rel='stylesheet' href='css/" + sheet + ".css' media='screen' type='text/css'>");
	lFrame.document.write("</head>");
	lFrame.document.write("<body>");
	lFrame.document.write("<table class='links'>");
	lFrame.document.write("<tr><td nowrap>");
	lFrame.document.write("<h1 class='heading'>");

	switch(country){
	case 'e': {lFrame.document.write(ecounty[0] + "<br>");
		   lFrame.document.write(ecounty[eek]);break;}
	case 'i': {lFrame.document.write(icounty[0] + "<br>");
		   lFrame.document.write(icounty[eek]);break;}
	case 's': {lFrame.document.write(scounty[0] + "<br>");
		   lFrame.document.write(scounty[eek]);break;}
	case 'w': {lFrame.document.write(wcounty[0] + "<br>");
		   lFrame.document.write(wcounty[eek]);}break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	lFrame.document.write("</h1>");
	lFrame.document.write("</td></tr>");

	//lFrame.document.write("<tr><td><font size='2' color='#800080'>");
	//lFrame.document.write("<img src='images/general/newfile.gif'> New entry<br><img src='images/general/minicam.gif'> New photo<br><img src='images/general/earth.gif'> New aerial view</font></td></tr>");
	
	lFrame.document.write("<tr><td><hr></td></tr>");
	
	switch(country){
	case 'e': {while(edata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + ecounty[eek];
		   if(edata[x][1] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + edata[x][0] + "' href=" + url + edata[x][4] + " target='main'>" + edata[x][0] + "&nbsp;" + edata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'i': {while(idata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + icounty[eek];
		   if(idata[x][1] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + idata[x][0] + "' href=" + url + idata[x][4] + " target='main'>" + idata[x][0] + "&nbsp;" + idata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 's': {while(sdata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + scounty[eek];
		   if(sdata[x][1] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + sdata[x][0] + "' href=" + url + sdata[x][4] + " target='main'>" + sdata[x][0] + "&nbsp;" + sdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'w': {while(wdata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + wcounty[eek];
		   if(wdata[x][1] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + wdata[x][0] + "' href=" + url + wdata[x][4] + " target='main'>" + wdata[x][0] + "&nbsp;" + wdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}}break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;

	}//end switch(country)

	lFrame.document.write("</table>");
	lFrame.document.write("</body>");
	lFrame.document.write("</html>");
	lFrame.document.close();

	}

	self.status=self.defaultStatus;

//display county map

	//showMap(eek,country);

}
//-----------------------------------------------------------------------------------------------
//this lists all the sites for the selected period
function doEraList(awk,country){

var eek=0;
var x=0;
var url;
var alpha="";
var beta="";
var sheet="";
var source="";
var lFrame = document.getElementById('list');

	lFrame = (lFrame.contentWindow) ? lFrame.contentWindow : (lFrame.contentDocument.document) ? lFrame.contentDocument.document : lFrame.contentDocument;

	doClear(country,'');

	self.status="Searching Data File";

	//with(Math){eek=abs(awk);}
	eek = Math.abs(awk);

	switch(country){
	case 'e': url='data/england/';alpha=eera[0];beta=eera[eek]; break;
	case 'i': url='data/ireland/';alpha=iera[0];beta=iera[eek]; break;
	case 's': url='data/scotland/';alpha=sera[0];beta=sera[eek]; break;
	case 'w': url='data/wales/';alpha=wera[0];beta=wera[eek]; break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	if(eek>0){
	switch(eek){
	case 1 : oink="ERA01";break; 
	case 2 : oink="ERA02";break; 
	case 3 : oink="ERA03";break;
	case 4 : oink="ERA04";break; 
	case 5 : oink="ERA05";break; 
	case 6 : oink="ERA06";break;
	case 7 : oink="ERA07";break; 
	case 8 : oink="ERA08";break; 
	case 9 : oink="ERA09";break;
	case 10: oink="ERA10";break; 
	case 11: oink="ERA11";break;
	case 12: oink="UNK";break; 
	default : oink="UNK"; break;
	}

	switch(country){
	case 'e': source='england';sheet='england';break;
	case 'i': source='ireland';sheet='ireland';break;
	case 's': source='scotland';sheet='scotland';break;
	case 'w': source='wales';sheet='wales';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	lFrame.document.open();
	lFrame.document.clear();

	lFrame.document.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>");

	lFrame.document.write("<html>");
	lFrame.document.write("<head>");
	lFrame.document.write("<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>");
	lFrame.document.write("<title>Era Listings</title>");
	lFrame.document.write("<link rel='stylesheet' href='css/" + sheet + ".css' media='screen' type='text/css'>");
	lFrame.document.write("</head>");
	lFrame.document.write("<body>");
	lFrame.document.write("<table class='links'>");
	lFrame.document.write("<tr><td nowrap>");
	lFrame.document.write("<h1 class='heading'>");
	lFrame.document.write(alpha + "<br>");
	lFrame.document.write(beta);
	lFrame.document.write("</h1>");
	lFrame.document.write("</td></tr>");

	//lFrame.document.write("<tr><td><font size='2' color='#800080'>");
	//lFrame.document.write("<img src='images/general/newfile.gif'> New entry<br><img src='images/general/minicam.gif'> New photo<br><img src='images/general/earth.gif'> New aerial view</font></td></tr>");

	lFrame.document.write("<tr><td><hr></td></tr>");

	switch(country){
	case 'e': {while(edata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + beta;
		   if(edata[x][2].indexOf("#" + oink) > -1){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + edata[x][0] + "' href=" + url + edata[x][4] + " target='main'>" + edata[x][0] + "&nbsp;" + edata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'i': {while(idata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + beta;
		   if(idata[x][2].indexOf("#" + oink) > -1){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + idata[x][0] + "' href=" + url + idata[x][4] + " target='main'>" + idata[x][0] + "&nbsp;" + idata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 's': {while(sdata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + beta;
		   if(sdata[x][2].indexOf("#" + oink) > -1){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + sdata[x][0] + "' href=" + url + sdata[x][4] + " target='main'>" + sdata[x][0] + "&nbsp;" + sdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'w': {while(wdata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + beta;
		   if(wdata[x][2].indexOf("#" + oink) > -1){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + wdata[x][0] + "' href=" + url + wdata[x][4] + " target='main'>" + wdata[x][0] + "&nbsp;" + wdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}}break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;

	}//end of switch(country)

	lFrame.document.write("</table>");
	lFrame.document.write("</body>");
	lFrame.document.write("</html>");
	lFrame.document.close();

	}

	self.status=self.defaultStatus;
}
//-----------------------------------------------------------------------------------------------
//this lists all the sites for the selected style
function doStyleList(awk,country){

var eek=0;
var x=0;
var url;
var alpha="";
var beta="";
var sheet="";
var source="";
var lFrame = document.getElementById('list');

	lFrame = (lFrame.contentWindow) ? lFrame.contentWindow : (lFrame.contentDocument.document) ? lFrame.contentDocument.document : lFrame.contentDocument;

	doClear(country,'');

	self.status="Searching Data File";

	//with(Math){eek=abs(awk);}
	eek = Math.abs(awk);

	switch(country){
	case 'e': url='data/england/';alpha=etype[0];beta=etype[eek];break;
	case 'i': url='data/ireland/';alpha=itype[0];beta=itype[eek];break;
	case 's': url='data/scotland/';alpha=stype[0];beta=stype[eek];break;
	case 'w': url='data/wales/';alpha=wtype[0];beta=wtype[eek];break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	if(eek>0){

	switch(eek){
	case 1 : oink="STA";break; case 2 : oink="STB";break; case 3 : oink="STC";break;
	case 4 : oink="STD";break; case 5 : oink="STE";break; case 6 : oink="STF";break;
	case 7 : oink="STG";break; case 8 : oink="STH";break; case 9 : oink="STI";break;
	case 10: oink="STJ";break; case 11: oink="STK";break; case 12: oink="STL";break; 
	case 13: oink="STM";break; case 14: oink="STN";break; case 15: oink="UNK";break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	switch(country){
	case 'e': source='england';sheet='england';break;
	case 'i': source='ireland';sheet='ireland';break;
	case 's': source='scotland';sheet='scotland';break;
	case 'w': source='wales';sheet='wales';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	lFrame.document.open();
	lFrame.document.clear();

	lFrame.document.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>");

	lFrame.document.write("<html>");
	lFrame.document.write("<head>");
	lFrame.document.write("<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>");
	lFrame.document.write("<title>Style Listings</title>");
	lFrame.document.write("<link rel='stylesheet' href='css/" + sheet + ".css' media='screen' type='text/css'>");
	lFrame.document.write("</head>");
	lFrame.document.write("<body>");
	lFrame.document.write("<table class='links'>");
	lFrame.document.write("<tr><td nowrap>");
	lFrame.document.write("<h1 class='heading'>");
	lFrame.document.write(alpha + "<br>");
	lFrame.document.write(beta);
	lFrame.document.write("</h1>");
	lFrame.document.write("</td></tr>");

	//lFrame.document.write("<tr><td><font size='2' color='#800080'>");
	//lFrame.document.write("<img src='images/general/newfile.gif'> New entry<br><img src='images/general/minicam.gif'> New photo<br><img src='images/general/earth.gif'> New aerial view</font></td></tr>");

	lFrame.document.write("<tr><td><hr></td></tr>");

	switch(country){
	case 'e': {while(edata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + beta;
		   if(edata[x][3].indexOf("#" + oink) > -1){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + edata[x][0] + "' href=" + url + edata[x][4] + " target='main'>" + edata[x][0] + "&nbsp;" + edata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'i': {while(idata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + beta;
		   if(idata[x][3].indexOf("#" + oink) > -1){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + idata[x][0] + "' href=" + url + idata[x][4] + " target='main'>" + idata[x][0] + "&nbsp;" + idata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 's': {while(sdata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + beta;
		   if(sdata[x][3].indexOf("#" + oink) > -1){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + sdata[x][0] + "' href=" + url + sdata[x][4] + " target='main'>" + sdata[x][0] + "&nbsp;" + sdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'w': {while(wdata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + beta;
		   if(wdata[x][3].indexOf("#" + oink) > -1){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + wdata[x][0] + "' href=" + url + wdata[x][4] + " target='main'>" + wdata[x][0] + "&nbsp;" + wdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}}break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;

	}//end of switch(country)

	lFrame.document.write("</table>");
	lFrame.document.write("</body>");
	lFrame.document.write("</html>");
	lFrame.document.close();

	}

	self.status=self.defaultStatus;
}
//-----------------------------------------------------------------------------------------------
//this lists all the sites for English Heritage, Duchas, Historic Scotland and CADW...
//[x][7] holds the key to whether or not a site is relevant
function doCarer(country,agency){

var oink="CA";
var x=0;
var url;
var sheet="";
var source="";
var lFrame = document.getElementById('list');

	lFrame = (lFrame.contentWindow) ? lFrame.contentWindow : (lFrame.contentDocument.document) ? lFrame.contentDocument.document : lFrame.contentDocument;

	doClear(country,'');

	self.status="Searching Data File";

	switch(country){
	case 'e': url='data/england/';
		switch(agency){
		case 'eh': oink="EH";break;
		case 'nt': oink="NT";break;
		case 'hha': oink="HHA";break;
		default : alert('Sorry, something has\n\ngone wrong...'); break;
		}
		break;
	case 'i': url='data/ireland/';break;
	case 's': url='data/scotland/';
		switch(agency){
		case 'hs': oink="HS";break;
		case 'nts': oink="NTS";break;
		case 'hha': oink="HHA";break;
		default : alert('Sorry, something has\n\ngone wrong...'); break;
		}
		break;
	case 'w': url='data/wales/';
		switch(agency){
		case 'cadw': oink="CADW";break;
		case 'nt': oink="NT";break;
		case 'hha': oink="HHA";break;
		default : alert('Sorry, something has\n\ngone wrong...'); break;
		}
		break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	switch(country){
	case 'e': source='england';sheet='england';break;
	case 'i': source='ireland';sheet='ireland';break;
	case 's': source='scotland';sheet='scotland';break;
	case 'w': source='wales';sheet='wales';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	lFrame.document.open();
	lFrame.document.clear();

	lFrame.document.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>");

	lFrame.document.write("<html>");
	lFrame.document.write("<head>");
	lFrame.document.write("<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>");
	lFrame.document.write("<title>Carer Listings</title>");
	lFrame.document.write("<link rel='stylesheet' href='css/" + sheet + ".css' media='screen' type='text/css'>");
	lFrame.document.write("</head>");
	lFrame.document.write("<body>");
	lFrame.document.write("<table class='links'>");
	lFrame.document.write("<tr><td nowrap>");
	lFrame.document.write("<h1 class='heading'>");

	switch(country){
	case 'e': 
		switch(agency){
		case 'eh': lFrame.document.write("English Heritage");break;
		case 'nt': lFrame.document.write("The National Trust");break;
		case 'hha': lFrame.document.write("Historic Houses<br>Association");break;
		default : alert('Sorry, something has\n\ngone wrong...'); break;
		}
		break;
	case 'i': lFrame.document.write("Dúchas");break;
	case 's': 
		switch(agency){
		case 'hs': lFrame.document.write("Historic Scotland");break;
		case 'nts': lFrame.document.write("The National Trust<br>for Scotland");break;
		case 'hha': lFrame.document.write("Historic Houses<br>Association");break;
		default : alert('Sorry, something has\n\ngone wrong...'); break;
		}
		break;
	case 'w': 
		switch(agency){
		case 'cadw': lFrame.document.write("CADW");break;
		case 'nt': lFrame.document.write("The National Trust");break;
		case 'hha': lFrame.document.write("Historic Houses<br>Association");break;
		default : alert('Sorry, something has\n\ngone wrong...'); break;
		}
		break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	lFrame.document.write("</h1>");
	lFrame.document.write("</td></tr>");

	//lFrame.document.write("<tr><td><font size='2' color='#800080'>");
	//lFrame.document.write("<img src='images/general/newfile.gif'> New entry<br><img src='images/general/minicam.gif'> New photo<br><img src='images/general/earth.gif'> New aerial view</font></td></tr>");

	lFrame.document.write("<tr><td><hr></td></tr>");
	
	switch(country){
	case 'e':{while(edata[x][0] != "#"){
		   if(edata[x][7] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + edata[x][0] + "' href=" + url + edata[x][4] + " target='main'>" + edata[x][0] + "&nbsp;" + edata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'i':{while(idata[x][0] != "#"){
		   if(idata[x][7] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + idata[x][0] + "' href=" + url + idata[x][4] + " target='main'>" + idata[x][0] + "&nbsp;" + idata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 's':{while(sdata[x][0] != "#"){
		   if(sdata[x][7] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + sdata[x][0] + "' href=" + url + sdata[x][4] + " target='main'>" + sdata[x][0] + "&nbsp;" + sdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'w':{while(wdata[x][0] != "#"){
		   if(wdata[x][7] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + wdata[x][0] + "' href=" + url + wdata[x][4] + " target='main'>" + wdata[x][0] + "&nbsp;" + wdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}}break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;

	}//end switch(country)

	lFrame.document.write("</table>");
	lFrame.document.write("</body>");
	lFrame.document.write("</html>");
	lFrame.document.close();
	
	self.status=self.defaultStatus;
}
//-----------------------------------------------------------------------------------------------
//this lists all the sites with an aerial photo from Google Earth...
//[x][8] holds the key to whether or not a site is relevant
function doAerialView(country){

var oink="AV";
var x=0;
var url;
var sheet="";
var source="";
var ook="";
var lFrame = document.getElementById('list');

	lFrame = (lFrame.contentWindow) ? lFrame.contentWindow : (lFrame.contentDocument.document) ? lFrame.contentDocument.document : lFrame.contentDocument;

	doClear(country,'');

	self.status="Searching Data File";

	switch(country){
	case 'e': url='images/photos/england/';break;
	case 'i': url='images/photos/ireland/';break;
	case 's': url='images/photos/scotland/';break;
	case 'w': url='images/photos/wales/';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	switch(country){
	case 'e': source='england';sheet='england';break;
	case 'i': source='ireland';sheet='ireland';break;
	case 's': source='scotland';sheet='scotland';break;
	case 'w': source='wales';sheet='wales';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	lFrame.document.open();
	lFrame.document.clear();

	lFrame.document.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>");

	lFrame.document.write("<html>");
	lFrame.document.write("<head>");
	lFrame.document.write("<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>");
	lFrame.document.write("<title>Aerial Views</title>");
	lFrame.document.write("<link rel='stylesheet' href='css/" + sheet + ".css' media='screen' type='text/css'>");
	lFrame.document.write("</head>");
	lFrame.document.write("<body>");
	lFrame.document.write("<table class='links'>");
	lFrame.document.write("<tr><td nowrap>");
	lFrame.document.write("<h1 class='heading'>");
	lFrame.document.write("Google Earth Images");
	lFrame.document.write("</h1>");
	lFrame.document.write("</td></tr>");

	//lFrame.document.write("<tr><td><font size='2' color='#800080'>");
	//lFrame.document.write("<img src='images/general/newfile.gif'> New entry<br><img src='images/general/minicam.gif'> New photo<br><img src='images/general/earth.gif'> New aerial view</font></td></tr>");

	lFrame.document.write("<tr><td><hr></td></tr>");

	switch(country){
	case 'e':{while(edata[x][0] != "#"){
		   if(edata[x][8] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + edata[x][0] + "' href=" + url + edata[x][9] + " target='new'>" + edata[x][0] + "&nbsp;" + edata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'i':{while(idata[x][0] != "#"){
		   if(idata[x][8] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + idata[x][0] + "' href=" + url + idata[x][9] + " target='new'>" + idata[x][0] + "&nbsp;" + idata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 's':{while(sdata[x][0] != "#"){
		   if(sdata[x][8] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + sdata[x][0] + "' href=" + url + sdata[x][9] + " target='new'>" + sdata[x][0] + "&nbsp;" + sdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'w':{while(wdata[x][0] != "#"){
		   if(wdata[x][8] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + wdata[x][0] + "' href=" + url + wdata[x][9] + " target='new'>" + wdata[x][0] + "&nbsp;" + wdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}}break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;

	}//end switch(country)

	lFrame.document.write("</table>");
	lFrame.document.write("</body>");
	lFrame.document.write("</html>");
	lFrame.document.close();
	
	self.status=self.defaultStatus;
}
//-----------------------------------------------------------------------------------------------
//this lists all the sites for the selected letter
function doAlpha(awk,country){

var eek=0;
var x=0;
var url;
var sheet="";
var source="";
var lFrame = document.getElementById('list');

	lFrame = (lFrame.contentWindow) ? lFrame.contentWindow : (lFrame.contentDocument.document) ? lFrame.contentDocument.document : lFrame.contentDocument;

	doClear(country,'');

	self.status="Searching Data File";

	switch(country){
	case 'e': url='data/england/';break;
	case 'i': url='data/ireland/';break;
	case 's': url='data/scotland/';break;
	case 'w': url='data/wales/';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	//with(Math){eek=abs(awk);}
	eek = Math.abs(awk);

	if(eek>0){

	switch(eek){
	case 1 : oink="A";break; case 2 : oink="B";break; case 3 : oink="C";break;
	case 4 : oink="D";break; case 5 : oink="E";break; case 6 : oink="F";break;
	case 7 : oink="G";break; case 8 : oink="H";break; case 9 : oink="I";break;
	case 10: oink="J";break; case 11: oink="K";break; case 12: oink="L";break;
	case 13: oink="M";break; case 14: oink="N";break; case 15: oink="O";break;
	case 16: oink="P";break; case 17: oink="Q";break; case 18: oink="R";break;
	case 19: oink="S";break; case 20: oink="T";break; case 21: oink="U";break;
	case 22: oink="V";break; case 23: oink="W";break; case 24: oink="X";break;
	case 25: oink="Y";break; case 26: oink="Z";break; 
	default: oink="A"; break;
	}

	if(oink!="#"){

		switch(country){
		case 'e': source='england';sheet='england';break;
		case 'i': source='ireland';sheet='ireland';break;
		case 's': source='scotland';sheet='scotland';break;
		case 'w': source='wales';sheet='wales';break;
		default : alert('Sorry, something has\n\ngone wrong...'); break;
		}

	lFrame.document.open();
	lFrame.document.clear();

	lFrame.document.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>");

	lFrame.document.write("<html>");
	lFrame.document.write("<head>");
	lFrame.document.write("<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>");
	lFrame.document.write("<title>Alphabetical Listings</title>");
	lFrame.document.write("<link rel='stylesheet' href='css/" + sheet + ".css' media='screen' type='text/css'>");
	lFrame.document.write("</head>");
	lFrame.document.write("<body>");
	lFrame.document.write("<table class='links'>");
	lFrame.document.write("<tr><td nowrap>");
	lFrame.document.write("<h1 class='big'>");
	lFrame.document.write(oink);
	lFrame.document.write("</h1>");
	lFrame.document.write("</td></tr>");

	//lFrame.document.write("<tr><td><font size='2' color='#800080'>");
	//lFrame.document.write("<img src='images/general/newfile.gif'> New entry<br><img src='images/general/minicam.gif'> New photo<br><img src='images/general/earth.gif'> New aerial view</font></td></tr>");

	lFrame.document.write("<tr><td><hr></td></tr>");

	switch(country){
	case 'e': {while(edata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + oink;
		   if(edata[x][0].charAt(0)==oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + edata[x][0] + "' href=" + url + edata[x][4] + " target='main'>" + edata[x][0] + "&nbsp;" + edata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'i': {while(idata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + oink;
		   if(idata[x][0].charAt(0)==oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + idata[x][0] + "' href=" + url + idata[x][4] + " target='main'>" + idata[x][0] + "&nbsp;" + idata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 's': {while(sdata[x][0] != "#"){
		   //self.status="Searching Data File " + x + " For " + oink;
		   if(sdata[x][0].charAt(0)==oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + sdata[x][0] + "' href=" + url + sdata[x][4] + " target='main'>" + sdata[x][0] + "&nbsp;" + sdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'w': {while(wdata[x][0] != "#"){
		   if(wdata[x][0].charAt(0)==oink){
		   //self.status="Searching Data File " + x + " For " + oink;
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + wdata[x][0] + "' href=" + url + wdata[x][4] + " target='main'>" + wdata[x][0] + "&nbsp;" + wdata[x][10] + "</a>");
		   lFrame.document.write("</td></tr>");}x++;}}break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;

	}//end of switch(country)

	lFrame.document.write("</table>");
	lFrame.document.write("</body>");
	lFrame.document.write("</html>");
	lFrame.document.close();

	}//end of if(oink...
	}//end of if(eek...

	self.status=self.defaultStatus;
}
//-----------------------------------------------------------------------------------------------
//this lists all the sites with photos, giving links to the thumbnail pages...
//omitting trailing images as this function is called from index.html and the paths don't work...
//this would be solved if I re-arrange the levels of folders...
function doPhotos(country, pathStr){

var oink="PH";
var x=0;
var url;
var sheet="";
var source="";
var lFrame = document.getElementById('list');

	lFrame = (lFrame.contentWindow) ? lFrame.contentWindow : (lFrame.contentDocument.document) ? lFrame.contentDocument.document : lFrame.contentDocument;

	doClear(country, pathStr);

	self.status="Searching Data File";

	switch(country){
	case 'e': url=pathStr + 'images/photos/england/';break;
	case 'i': url=pathStr + 'images/photos/ireland/';break;
	case 's': url=pathStr + 'images/photos/scotland/';break;
	case 'w': url=pathStr + 'images/photos/wales/';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	switch(country){
	case 'e': source='england';sheet='england';break;
	case 'i': source='ireland';sheet='ireland';break;
	case 's': source='scotland';sheet='scotland';break;
	case 'w': source='wales';sheet='wales';break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	lFrame.document.open();
	lFrame.document.clear();

	lFrame.document.write("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>");

	lFrame.document.write("<html>");
	lFrame.document.write("<head>");
	lFrame.document.write("<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>");
	lFrame.document.write("<title>Photos Listings</title>");
	lFrame.document.write("<link rel='stylesheet' href='" + pathStr + "css/" + sheet + ".css' media='screen' type='text/css'>");
	lFrame.document.write("</head>");
	lFrame.document.write("<body>");

	lFrame.document.write("<table class='links'>");

	lFrame.document.write("<tr><td nowrap>");
	lFrame.document.write("<h1 class='heading'>");

	switch(country){
	case 'e': lFrame.document.write("English Photos");break;
	case 'i': lFrame.document.write("Irish Photos");break;
	case 's': lFrame.document.write("Scottish Photos");break;
	case 'w': lFrame.document.write("Welsh Photos");break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;
	}

	lFrame.document.write("</h1>");
	lFrame.document.write("</td></tr>");

	//lFrame.document.write("<tr><td><font size='2' color='#800080'>");
	//lFrame.document.write("<img src='" + pathStr + "images/general/newfile.gif'> New entry<br><img src='" + pathStr + "images/general/minicam.gif'> New photo<br><img src='" + pathStr + "images/general/earth.gif'> New aerial view</td></tr>");
	
	lFrame.document.write("<tr><td><hr></td></tr>");
	
	switch(country){
	case 'e':{while(edata[x][0] != "#"){
		   if(edata[x][5] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + edata[x][0] + "' href=" + url + edata[x][6] + " target='main'>" + edata[x][0] + "</a>");
		   //+ "<font size='2' color='#FF0000'>" + " " + edata[x][10] + "</font>");//<br>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'i':{while(idata[x][0] != "#"){
		   if(idata[x][5] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + idata[x][0] + "' href=" + url + idata[x][6] + " target='main'>" + idata[x][0] + "</a>");
		   //+ "<font size='2' color='#FF0000'>" + " " + idata[x][10] + "</font>");//<br>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 's':{while(sdata[x][0] != "#"){
		   if(sdata[x][5] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + sdata[x][0] + "' href=" + url + sdata[x][6] + " target='main'>" + sdata[x][0] + "</a>");
		   //+ "<font size='2' color='#FF0000'>" + " " + sdata[x][10] + "</font>");//<br>");
		   lFrame.document.write("</td></tr>");}x++;}break;}

	case 'w':{while(wdata[x][0] != "#"){
		   if(wdata[x][5] == oink){
		   lFrame.document.write("<tr><td nowrap>");
		   lFrame.document.write("<a title='" + wdata[x][0] + "' href=" + url + wdata[x][6] + " target='main'>" + wdata[x][0] + "</a>");
		   //+ "<font size='2' color='#FF0000'>" + " " + wdata[x][10] + "</font>");//<br>");
		   lFrame.document.write("</td></tr>");}x++;}}break;
	default : alert('Sorry, something has\n\ngone wrong...'); break;

	}//end switch(country)

	lFrame.document.write("</table>");
	lFrame.document.write("</body>");
	lFrame.document.write("</html>");
	lFrame.document.close();
	
	self.status=self.defaultStatus;

}
//-----------------------------------------------------------------------------------------------