var ie = false;
if(navigator.appName == "Microsoft Internet Explorer") ie = true;
//NN4 crashes with word "style", NN6 ignores "style"

function zeventrow(name, year)	//returns (string)home <tr>news <tr>recent <tr>50news <tr>50recent //uses ftmcalendar.js
{
	var s1 = '<TR><TD VALIGN="top">';
	s1 += '<IMG SRC="../map3.gif" ALT="1k image of India" WIDTH=48 HEIGHT=50>';
	s1 += '</TD><TD VALIGN="top">';
	var s2 = '<BR></TD></TR>';
	var s = "";
	var symmdd = "";
	var bnodate = false;
	var bhome = false;
	var b50 = false;
	var bpast = false;
	var bhomeshow = false;	//show one only
	var yearstart = (yearnow - 1)%10;
	var yearend = (yearnow + 1)%10;
	//alert(year);
	if (year != null)
	{
		yearstart = year%10;
		yearend = year%10;
		//alert();
	}
	//for ( var y = (yearnow - 1)%10; y <= (yearnow + 1)%10; y++ )	//1, 2, 3 for 2002, = range in ymmdd[]
	for ( var y = yearstart; y <= yearend; y++ )
	{
		for ( var m = 1; m <= 12; m++ )
		{
			for ( var d = 0; d <= 31; d++ )
			{
				dateknown = "";	
				bnodate = false;
				bhome = false;
				b50 = false;
				bpast = false;
				if (INDymmdd[y*10000 + m*100 + d] != "")	//an entry exists
				{
					symmdd = INDymmdd[10000*y + 100*m + d ];
					dateknown = datestring(y + 10*(Math.floor(yearnow/10) ), m, d) + ", ";
					if (symmdd.substring(0,1) == "d")	//no date, multiday or unknown, no date to be automatically shown
					{
						bnodate = true;
						dateknown = "";
						symmdd = symmdd.slice(1);
					}
					if (symmdd.substring(0,1) == "h")	//home page
					{
						bhome = true;
						symmdd = symmdd.slice(1);
					}
					if (symmdd.substring(0,1) == "c")	//50's club page
					{
						b50 = true;
						symmdd = symmdd.slice(1);
					}					
					if (nowms > eventms(y, m, d) )	bpast = true;  //show after event
					
					if ( (name == "news") && !bpast && !b50)   s += s1 + " " + dateknown + symmdd + s2;  
					if ( (name == "recent") && bpast && !b50)  s = s1 + dateknown + symmdd + s2 + s;  
					if ( (name == "50news") && !bpast && b50)  s += s1 + " " + dateknown + symmdd + s2;  
					if ( (name == "50recent") && bpast && b50) s = s1 + dateknown + symmdd + s2 + s;  
					if ( (name == "home")  && bhome && !bpast && !bhomeshow)
					{
						bhomeshow = true;
						if (bnodate)	
							s += symmdd;
						else
						{
							//s += dateknown + "<br>" + symmdd; 
							s += dateknown + symmdd; 
						}
					}
				}			
			}
		}
	}
	if (name == "home")
	{
		if ( !bhomeshow )
		{
			for ( var n = weekdaynow; n <= ( weekdaynow + 7 ); n++ )
			{
				if (regular[n%7] )
				{
					s = weekday[n%7] + " " + regular[n%7];
					break;
				}
			}
		}
	}

	return s;
}

function websitedesignby()	//uses webdata.js   030218
{
	//alert(window.location);
	var localsite = '/0colc/indian/indianhtmjs/';	//change this
	var endslice = localsite.length + 10;
	var s = "";

	var winloc = window.location + "";	//file:///C:/0our... IE  file:///C|/0our... NN  locks without + ""
	if ( (winloc.substring(0, 9) == "file:///C") && (winloc.substring(10, endslice) == localsite) )
	{
		s += '<A HREF=' + localpublishaddress + '>';
		s += '<span title=" Get PUBLISHED on the WWW for only £48 ! ">';
	}
	else
	{
		s += '<A HREF=' + webpublishaddress + '>';
		s += '<span title=" Get PUBLISHED on the WWW for only £48 ! ">';
	}

	s += '<FONT COLOR="#0000FF">Website</FONT></span></A> design by ';
	s += '<A HREF="mailto:';
	s += martinemail;
	s += '?subject=' + document.URL + ' ">';  //ok
	s += '<span title=" Tel 01223 860150 ">';
	s += '<FONT COLOR="#0000FF">Martin</FONT></span></A>';
	document.write(s);
}

function eventstring(name)	//returns string home news recent
{
	var s1 = '<TR><TD VALIGN="top">';
	s1 += '<IMG SRC="palm2.gif" ALT="1k image of palm tree from ';
	s1 += 'http://fl-mall.com/stores/lovebeach/" WIDTH=29 HEIGHT=50>';
	s1 += '</TD><TD VALIGN="top">';
	var s2 = '<BR></TD></TR>';
	var s = "";
	var srecent = "";
	var snews = "";
	var shome = "";
	var dateknown = "";
	for ( var y = (yearnow - 1)%10; y <= (yearnow + 1)%10; y++ )	//1, 2, 3 for 2002, = range in CRBymmdd[]
	{
		for ( var m = 1; m <= 12; m++ )
		{
			for ( var d = 0; d <= 31; d++ )
			{
				if (CRBymmdd[y*10000 + m*100 + d] != "")
				{
					if (d != 0)	//date in month known
					{
						dateknown = datestring(y + 10*(Math.floor(yearnow/10) ), m, d);
					}
					s = CRBymmdd[10000*y + 100*m + d ];	
					if (nowms > eventms(y, m, d) )	//show after event
					{
						srecent = s1 + dateknown + " " + s + s2 + srecent;
					}
					else
					{
						snews += s1 + dateknown + " " + s + s2;
						if (s.charAt(0) == " " && shome == "")	//show on home page
						{
							//shome = datestring(y + 10*(Math.floor(yearnow/10) ), m, d) + " " + s;
							shome = dateknown + " " + s;
						}
					}
					s = "";
					dateknown = "";	
				}
			}
		}
	}
	if (name == "home")
	{
		return shome;
	}
	if (name == "news")
	{
		return snews;
	}
	if (name == "recent")
	{
		return srecent;
	}
}

var weekday = new Array(7);
	weekday[0] = 'Sunday';
	weekday[1] = 'Monday';
	weekday[2] = 'Tuesday';
	weekday[3] = 'Wednesday';
	weekday[4] = 'Thursday';
	weekday[5] = 'Friday';
	weekday[6] = 'Saturday';
	
var monthname = new Array(13);
	monthname[1] = 'January';
	monthname[2] = 'February';
	monthname[3] = 'March';
	monthname[4] = 'April';
	monthname[5] = 'May';
	monthname[6] = 'June';
	monthname[7] = 'July';
	monthname[8] = 'August';
	monthname[9] = 'September';
	monthname[10] = 'October';
	monthname[11] = 'November';
	monthname[12] = 'December';

function datestring(year1, month1, date1)	//2001 12 31 > Monday 2001 December 31
{
	var ds = new Date();
	ds.setYear(year1);
	ds.setMonth(month1 - 1);
	ds.setDate(date1);	//day
	var day = ds.getDay();	
	var s =  weekday[day] + " " + year1 + " " + monthname[month1] + " " + date1;
	return(s);
}

function getcookienumber(name, max)	//returns number from cookie(name) or a random number, 1 - max
{
	var namestr = name + "=";
	var namelen = namestr.length;
	var cooklen = document.cookie.length;
	var string = null;
	var i = 0;
	while (i < cooklen)
	{
		var j = i +namelen;
		if (document.cookie.substring(i, j)== namestr)
		{
			endstr=document.cookie.indexOf(";",j);
			if (endstr==-1)
			{
				endstr = document.cookie.length;
			}
			string = unescape(document.cookie.substring(j, endstr));
		}
		i=document.cookie.indexOf(" ",i) + 1;
		if (i==0) break;
	}
	if ( (string == "NaN") || (string == null) )
	{
		number = parseInt(Math.floor(Math.random() * (max + 1) ) );	//1-max
	}
	else
	{
		number = parseInt(string);
	}
	return number;
}

var quotebackground = "00AA00";	//6BBD00 00FF00  8FFF8F  light green

var navfontcolourlight = "FFFFFF";	//lighter when mouseover = A:hover = BODY
var navfontcolourdark = "FFFF00";	//normal, after mouseout = A:active = A:link = BODY = Click for
var fontcolourgreyedout = "EECC00";	//greyed out, !=navbackcolourlight, EECC00
var navbackcolourlight = "FFAA99";	//lighter when mouseover
var navbackcolourdark = "FF8800";	//normal, after mouseout

var numberoflinks = 110;
caption = new Array(numberoflinks);
span = new Array(numberoflinks);
link = new Array(numberoflinks);

for (var n = 0; n <= numberoflinks; n++ )
	caption[n]="";

//caption[0]=" ";	//first must be " "
span[0]=" ";	//or wrong font, colour in NN4
link[0]=" ";	//don't know why

caption[10]="TRANSMITTING";
//span[10]=" Click for details of the kits for Transmitting ";
span[10]=" Antenna Noise Bridge, Two Tone Oscillator, Speech Compressor ";
link[10]="kitanb3.htm";
caption[11]="Antenna Noise Bridge";
span[11]=" Click for details of the Antenna Noise Bridge kit ";
link[11]="kitanb3.htm";
caption[12]="Two Tone Oscillator";
span[12]=" Click for details of the Two Tone Oscillator kit ";
link[12]="kit2t2.htm";
caption[13]="Speech Compressor";
span[13]=" Click for details of the Speech Compressor kit ";
link[13]="kitsc2.htm";

caption[20]="MSF 60 kHz";
span[20]=" Click for details of the kits for 60 kHz ";
link[20]="kitclock2.htm";
caption[21]="MSF Clock";
span[21]=" Click for details of the MSF Clock kit ";
link[21]="kitclock2.htm";
caption[22]="60 kHz Receiver";
span[22]=" Click for details of the 60 kHz Receiver kit ";
link[22]="kit60c.htm";
caption[23]="Retuning 17 - 136 kHz ";
span[23]=" Click for details of retuning the 60 kHz Receiver kit ";
link[23]="kit136b.htm";

caption[30]="RECEIVING";
span[30]=" Click for details of the kits for Receiving ";
link[30]="kitat2.htm";
caption[31]="Antenna Tuner";
span[31]=" Click for details of the Antenna Tuner kit ";
link[31]="kitat2.htm";
caption[32]="Tunable Audio Notch Filter";
span[32]=" Click for details of the Tunable Audio Notch Filter kit ";
link[32]="kittanf.htm";
caption[33]="VLF Receiver";
span[33]=" Click for details of the 10-150 kHz VLF Receiver kit ";
link[33]="kitvlf.htm";
caption[34]="LF Converter";
span[34]=" Click for details of the 100-600 kHz LF Converter kit ";
link[34]="kitlfc.htm";
caption[35]="198 kHz Converter";
span[35]=" Click for details of the 198 kHz Converter kit ";
link[35]="kit198.htm";
caption[36]="50 & 70 MHz Converter";
span[36]=" Click for details of the 50&70 MHz Converter kit ";
link[36]="kit5070.htm";
caption[37]="Crystal Calibrator";
span[37]=" Click for details of the Crystal Calibrator kit ";
link[37]="kitcal.htm";

caption[40]="AUDIO";
span[40]=" Click for details of the kits for Audio ";
link[40]="kitao.htm";
caption[41]="Audio Oscillator";
span[41]=" Click for details of the Audio Oscillator kit ";
link[41]="kitao.htm";
caption[42]="Sound Meter";
span[42]=" Click for details of the Sound Meter kit ";
link[42]="kitsm.htm";
caption[43]="Chime";
span[43]=" Click for details of the Programmable Chime kit ";
link[43]="kitchime.htm";

caption[90]="ORDER Form";
span[90]=" A handy order form for you to print ";
link[90]="kitorder2.htm";

caption[100]="HOME Page";
span[100]=" Click to go back to our Home Page ";
link[100]="kithome.htm";

function savenextnumbertocookie(name, number, max) 	//saves next in sequence 1 - max
{
	number = number%max;	//0 - (max-1)
	number++;
	var expdate=new Date();
	expdate.setTime(expdate.getTime() + (1*24*60*60*1000*365));	//+1 year of milliseconds
	expdate=expdate.toGMTString();
	document.cookie=name+"="+escape(number)+";expires="+expdate+";"	//no spaces
}

////////////////// old code ////////////////////