//set Arrays
//weekday names
	var DOWK = new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
//month names
	var MTNM = new Array("January","February","March","April","May","June","July","August","September","October","November","December")
//number of days in month
	var DIMT = new Array("31","28","31","30","31","30","31","31","30","31","30","31")
//---------------------- font colors -------------------------------/
	var color = new Array ("color='black'","color='blue'","color='red'","color='green'")
//set some necessary date-related variables
	var today = new Date()
// -------------------------Calendar Square Size in pixels------------------------/
	var s = 110
//Find those days
//----------- Function to find first day of month ------------------/
function CurrentMonth(){
//find the beginning
	var a = today.getDate()
	var b = today.getDay()
	var c = today.getMonth()
	var d = today.getFullYear()

	for (a; a>7; a=a-7){
}
	for (a; a>1; a--){b--
}
		if (b<0){b=b+7
}
	day = a
	weekday = b
	month = c
	year = d
}

//---------------------- Previous Month Days -----------------------/
function PreviousMonth(){
//find the beginning
	var a = today.getDate()
 	var b = today.getDay()
	var c = today.getMonth()
	var d = today.getFullYear()
 	for (a; a>7; a=a-7){
}
 	for (a;a>1; a--){b--
} 
		if (b<0){b=b+7
}
c=c-1
	if (c<0){c=11; d=d-1}
a=DIMT[c]
b=b-1

	if (b<0){b=6}
	for (a; a>7; a=a-7){
}
	for (a; a>1; a--){b--
}
		if (b<0){b=b+7
}
	day = a
	weekday = b
	month = c
	year = d
}
//------------------------- Find first day of Next Month -----------/
function NextMonth(){
	var a = today.getDate()
	var b = today.getDay()
	var c = today.getMonth()
	var d = today.getFullYear()

	for (a; a<=DIMT[c]; a=a+7){
}
a=a-7
	for (a; a<DIMT[c]; a++){b++
}
		if (b>=7){b=b-7}
a=1
b=b+1
	if(b>6){b=0}
c=c+1
	if (c>11){c=0; d++}

	day = a
	weekday = b
	month = c
	year = d
}
//------------------------- Inserting Holidays and Events ----------/
//----------------------------- Events -----------------------------/
function special2(){
	for (act in active[month]){
//k="<br><br>";
			if (x == active[month][act].substring(0,active[month][act].indexOf("~"))){
k=("<center><font size = '-1'" + color[1] + ">" + active[month][act].substring(active[month][act].indexOf("~")+1) + "</font></center>")
}
}
//----------------------------------------Insert Holidays-----------/
	l=""
	for (hol in holiday[month]){
			if (x == holiday[month][hol].substring(0,holiday[month][hol].indexOf("~"))){z=2;
l=("<center><font size = '-1'" + color[2] + ">" + holiday[month][hol].substring(holiday[month][hol].indexOf("~")+1) + "</font></center>")
}
}
}
//Let's build a calendar -----/
function calendar(){
//--------------------------------------- Calendar Header ----------/
document.write("<center><table background='../images/bkgrnds/50fade.gif' border=1>")
<!-- document.write("<center><table background='../images/bkgrnds/b_rock.jpg' border=1>") -->
document.write("<tr><th colspan=7 align=center>")
document.write("<h1>" + MTNM[month] + "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" + year + "</h1>")
document.write("</th></tr>")
document.write("<tr>")
	for (x=0; x<=6; x++){
document.write("<th width=" + s + "><font face='arial' size=-1>" + DOWK[x] + "</font></th>")
}
document.write("</tr><tr>")
//----------------------- fill in empty beginning cells ------------/
	for (x=weekday; x>=1; x--){
document.write("<td height=" + s + ">&nbsp;</td>")
}

//------------------------------- fill in dates --------------------/
	for (x=1; x<=DIMT[month]; x++){z=0
	document.write("<td align=left valign=top height=" + s + "><font size=+1 ")
		if (weekday == 0){z=2
}

//--------------------Insert Activities FUNCTION 'special"----------/
	k="<br>"
special2()
document.write(color[z] + ">" + x + "</font><br>" + "<a href='events/" + year + "/" + MTNM[month] + "_" + x + ".htm'>" + k + "</a>" + l)
k="<br><br>"
//-------------------Finish Off Week--------------------------------/
document.write("</td>")
		if (weekday == 6){document.write("</tr><tr>"); weekday=0;
}
		else {weekday++}
}
//---------------------fill in empty ending cells ------------------/
	if (weekday>0){
		for (x=weekday; x<=6; x++){
document.write("<td height=" + s + ">&nbsp;</td>")
}
}
document.write("</tr></table></center>") 
}