<!--
var SERdd = new Array(); var SERdm = new Array(); var SERdy = new Array();
var SERpr = new Array(); var SERtt = new Array(); var SERsz = new Array();
var SERln = new Array(); var SERfi = new Array(); var SERca = new Array();
var SERampm = new Array(); var SERtx = new Array();

var SDTfm = new Array(); var SDTfy = new Array(); var SDTtm = new Array();
var SDTty = new Array(); var SDTname = new Array();

var SPR = new Array(); var SPRname = new Array();

var SSE = new Array(); var SSEname = new Array();

var xmlSermons=null;
if (window.ActiveXObject)
	{
// code for IE
		xmlSermons=new ActiveXObject("Microsoft.XMLDOM");
//		alert("IE Entered");
	}
else 
	{
		if (document.implementation.createDocument)
		{
//		alert("Mozilla Entered");

// code for Mozilla, Firefox, Opera, etc.
		xmlSermons=document.implementation.createDocument("","",null);
		}
		else
		{
		alert('Your browser cannot handle this script');
		}
	}
var nsermons = 0;
var ndates = 0;
var nnames = 0;
var ncats = 0;
if (xmlSermons!=null)
	{ 
	xmlSermons.async=false;
	xmlSermons.validateOnParse="false";
// check whether errors created by use of Chrome and Safari
	var cerr = "";
	try 
		{
		xmlSermons.load("SermonList.xml");
		}
	catch(e)
 		{
		  try //using XMLHttpRequest instead
		  {
		   var xmlhttp = new window.XMLHttpRequest();
		   xmlhttp.open("GET","SermonList.xml",false);
		   xmlhttp.send(null);
		   xmlSermons = xmlhttp.responseXML.documentElement;
		  }
		  catch(e)
		  {
		   cerr=e.message;
		  }
		}

	var dat_entries=xmlSermons.getElementsByTagName("DATERG");
	var ndates = dat_entries.length;
// alert ("No of Date Ranges  "+ndates);
	for (i=0;i<ndates;i++)
	 { 
	  SDTfm[i]=dat_entries[i].getElementsByTagName("FM")[0].childNodes[0].nodeValue;
	  SDTfy[i]=dat_entries[i].getElementsByTagName("FY")[0].childNodes[0].nodeValue;
	  SDTtm[i]=dat_entries[i].getElementsByTagName("TM")[0].childNodes[0].nodeValue;
	  SDTty[i]=dat_entries[i].getElementsByTagName("TY")[0].childNodes[0].nodeValue;
	  SDTname[i]=dat_entries[i].getElementsByTagName("DRDESC")[0].childNodes[0].nodeValue;
	 }

	var cat_entries=xmlSermons.getElementsByTagName("SERIES");
	var ncats = cat_entries.length;
// alert ("No of Series  "+ncats);
	for (i=0;i<ncats;i++)
	 { 
	  SSE[i]=cat_entries[i].getElementsByTagName("SCODE")[0].childNodes[0].nodeValue;
	  SSEname[i]=cat_entries[i].getElementsByTagName("SDESC")[0].childNodes[0].nodeValue;
	 }

	var spk_entries=xmlSermons.getElementsByTagName("SPEAKER");
	var nnames = spk_entries.length;
// alert ("No of Speakers  "+nnames);
	for (i=0;i<nnames;i++)
	 { 
	  SPR[i]=spk_entries[i].getElementsByTagName("PCODE")[0].childNodes[0].nodeValue;
	  SPRname[i]=spk_entries[i].getElementsByTagName("PNAME")[0].childNodes[0].nodeValue;
	 }

	var ser_entries=xmlSermons.getElementsByTagName("SERMON");
	var nsermons = ser_entries.length;
// alert ("No of sermons  "+nsermons);
	for (i=0;i<nsermons;i++)
	 { 
	  SERdd[i]=ser_entries[i].getElementsByTagName("DATE_D")[0].childNodes[0].nodeValue;
	  SERdm[i]=ser_entries[i].getElementsByTagName("DATE_M")[0].childNodes[0].nodeValue;
	  SERdy[i]=ser_entries[i].getElementsByTagName("DATE_Y")[0].childNodes[0].nodeValue;
	  SERampm[i]=ser_entries[i].getElementsByTagName("AMPM")[0].childNodes[0].nodeValue;
	  SERpr[i]=ser_entries[i].getElementsByTagName("PREACHER")[0].childNodes[0].nodeValue;
	  SERtx[i]=ser_entries[i].getElementsByTagName("BTEXT")[0].childNodes[0].nodeValue;
	  SERtt[i]=ser_entries[i].getElementsByTagName("DESCPN")[0].childNodes[0].nodeValue;
	  SERsz[i]=ser_entries[i].getElementsByTagName("F_SIZE")[0].childNodes[0].nodeValue;
	  SERln[i]=ser_entries[i].getElementsByTagName("HOWLONG")[0].childNodes[0].nodeValue;
	  SERca[i]=ser_entries[i].getElementsByTagName("CATGRY")[0].childNodes[0].nodeValue;
	  SERfi[i]=ser_entries[i].getElementsByTagName("F_NAME")[0].childNodes[0].nodeValue;
	 }

	}
else
	{
	alert('The document containing sermon details is either missing or unavailable. You will not be able to access sermons until this fault is rectified. Please go to our Contacts page www.bulkingtoncongregational.org/BCCcontact.html and report the problem via e-mail.Thank you, and many apologies for any inconvenience caused.');
	}


function PSbyDate(opt)
{
// Select sermons by date range opt 0 - create content for select list selbydate
//                             otherwise call ProcSermon to select by date values 

if (opt == 0)
	{
	for (i = ndates; i >0; i--)
	  {
	  j = i-1;
	  document.write('<option value="'+j+'">'+SDTname[j]+'</option>');
	  }
	}
else
	{
	var w = document.getElementById('selbydate');
	var x = w.selectedIndex;
      var idx = w.options[x].value;
	ProcSermon("D",SDTfm[idx],SDTfy[idx],SDTtm[idx],SDTty[idx]);
	}

}

function PSbyVisitor(opt,vname)
{
// Select sermons by visiting speaker  opt 0 - create content of select table selbyvis (missing first entry)
//                                     opt 1 - call ProcSermon to select by visitor name
//                                    otherwise - lookup full name from abbreviation

if (opt == 0)
	{
	for (i = 0; i < nnames; i++)
	  {
	  if (SPR[i] != "HUM") {
		document.write('<option value="'+i+'">'+SPRname[i]+'</option>');
		}
	  }
	}
else
	{
	var w = document.getElementById('selbyvis');
	var x = w.selectedIndex;
	if (opt == 1)
	  {
	  var idx = w.options[x].value;
// alert(x+" value"+idx);
	  ProcSermon("V",SPR[idx],0,0,0);
	  }
	else
	  {
		var pname = "Not Found";
		for (i1 = 0; i1 < nnames; i1++)
	  	{
// alert("Comparing "+vname+" with "+SPR[i1]+" i1="+i1);
		  if (vname == SPR[i1])
		  {
			pname = SPRname[i1];
			i1 = nnames;
		  }
	  	}
// alert("Returning "+pname);
		return (pname);
	  }
	}


}

function PSbyBook(opt)
{
// Select sermons by Book or Series  -  opt 0 create content of select table selbybook
//                                    otherwise call ProcSermon to select by series

if (opt == 0)
	{
	for (i = 0; i < ncats; i++)
	  {
	   if (i==0)
		{
		document.write('<option selected="selected" value="'+i+'">'+SSEname[i]+'</option>');
		}
	   else
		{
		document.write('<option value="'+i+'">'+SSEname[i]+'</option>');
		}
	  }
	}
else
	{
	var w = document.getElementById('selbybook');
	var x = w.selectedIndex;
	var idx = w.options[x].value;
	ProcSermon("S",SSE[idx],0,0,0);
	}


}

function ProcSermon(opt,from1,from2,to1,to2)
{

var code2put = '';

var p1 = '<p style="border-bottom:solid #CCCCCC;"><a href="sermons/';
var p2 = '"><img src="images/mp3.gif" alt="mp3" align="right"/></a>Recorded ';
var p2h = '"><img src="images/mp3.gif" alt="mp3" align="right"/></a>Humorous snippet no.';
var p3 = '<br />Preacher: ';
var p4 = '<br />Text or Subject: <strong>';
var p4a = '<br /></strong>Description: <strong><i>';
var p5 = '</i></strong><br />Duration: ';
var p6 = ' File size: ';
var pname = "";
var snipno = 0;
var found = 0;

 switch(opt)
  {
//  code for date selection
  case "D":
	var frdate = (from2 * 100) + (from1 * 1);
	var todate = (to2 * 100) + (to1 * 1);
	for (i = nsermons; i > 0; i--)
	{
// these are not being converted to values properly
	  sidx = i - 1;
	  j = SERdy[sidx] * 100;
	  k = SERdm[sidx] * 1;
	  dchk = j + k;
	  if (frdate <= dchk)
	  {
		if (todate >= dchk)
		{
// omit humour from date selection
		  if (SERca[sidx] != 'HUM')
			{
			pname = PSbyVisitor(3,SERpr[sidx]);
			code2put += p1+SERfi[sidx]+p2+SERdd[sidx]+'/'+SERdm[sidx]+'/'+SERdy[sidx]+' '+SERampm[sidx]+p3+pname+p4+SERtx[sidx]+p4a+SERtt[sidx]+p5+SERln[sidx]+p6+SERsz[sidx]+'</p>';
			found += 1;
			}
		}
	  } 
	}
  break;

//  code for series or book selection
  case "S":
	for (i = nsermons; i > 0; i--)
	  {
		sidx = i - 1;
		series = SERca[sidx];
		serfound = series.search(from1);
		if (serfound >= 0)
			{
			if (from1 == 'HUM')
			  {
			  snipno += 1;
			  code2put += p1+SERfi[sidx]+p2h+snipno+p4+SERtx[sidx]+p4a+SERtt[sidx]+p5+SERln[sidx]+p6+SERsz[sidx]+'</p>';
			  found += 1;
			  }
			else
			  {
			  pname = PSbyVisitor(3,SERpr[sidx]);
			  code2put += p1+SERfi[sidx]+p2+SERdd[sidx]+'/'+SERdm[sidx]+'/'+SERdy[sidx]+' '+SERampm[sidx]+p3+pname+p4+SERtx[sidx]+p4a+SERtt[sidx]+p5+SERln[sidx]+p6+SERsz[sidx]+'</p>';
			  found += 1;
			  }
			}
	  }
  break;


//  code for preacher selection
  default:
	pname = PSbyVisitor(3,from1);
	for (i = nsermons; i > 0; i--)
	  {
		sidx = i - 1;
		if (from1 == SERpr[sidx])
			{
			if (SERca[sidx] != 'HUM')
			  {
			  code2put += p1+SERfi[sidx]+p2+SERdd[sidx]+'/'+SERdm[sidx]+'/'+SERdy[sidx]+' '+SERampm[sidx]+p3+pname+p4+SERtx[sidx]+p4a+SERtt[sidx]+p5+SERln[sidx]+p6+SERsz[sidx]+'</p>';
			  found += 1;
			  }
			}
	  }



  }
// end of switch
	if (found ==0)
	  {
	  document.getElementById("sermondetail").innerHTML = "<p><b>No Sermons Found</b></p>";
	  }

	else
	  {
	  document.getElementById("sermondetail").innerHTML = code2put;
	  }
}