var tb='b';var headbg='#554A40';var todaybg='#C6BCB3';var textclr='#FFFFFF';var linkclr='#000000';var noMessage='No events for today';var pageLoaded=0;window.onload=function(){pageLoaded=1;}
function loaded(i,f){if(document.getElementById&&document.getElementById(i)!=null)f();else if(!pageLoaded)setTimeout('loaded(\''+i+'\','+f+')',100);}
function monthlength(month,year){var dd=new Date(year,month,0);return dd.getDate();}
var moy=['January','February','March','April','May','June','July','August','September','October','November','December'];var today=new Date();var selDate=today.getFullYear()+getmmdd(today.getMonth()+1,today.getDate());function dispCal(yy,mm){if(mm<0||mm>12){alert('month must be between 1 and 12');return false;}
if(yy!=0&&(yy<1991||yy>2100)){alert('year must be after 1990 and before 2101');return false;}
var dow=['S','M','T','W','T','F','S'];var calendar=new Date();var today=calendar.getDate();calendar.setDate(1);if(yy>1990)calendar.setFullYear(yy);if(mm>0)calendar.setMonth(mm-1);var yy=year=calendar.getFullYear();var month=calendar.getMonth();calendar.setDate(today);var weekday=calendar.getDay();var daysInMonth=monthlength(month+1,year);var hilite_start='<td width="20" style="color:#CC3300;background:'+todaybg+'" align="center"><b>';var td_start='<td width="20" align="center">';var cal='<div id="cal"><div style="border:1pt solid #cccccc;height:auto;width:150px;background-color:#554A40; color:#FFFFFF"><table border="0" cellspacing="0" cellpadding="2" align="center"><tr><td colspan="7" style="color:#FFFFFF;background:'+headbg+'" align="center"><b>'+moy[month]+' '+year+'<\/b><\/td><\/tr><tr>';for(dex=0;dex<7;dex++){cal+=td_start+dow[dex]+'</td>';}
cal+='<\/tr><tr>';var day2=today;for(dex=today;dex>6;dex-=7)day2=dex;weekday-=day2-1;while(weekday<0)weekday+=7;for(dex=0;dex<weekday;dex++)cal+=td_start+' <\/td>';for(dex=1;dex<=daysInMonth;dex++){if(weekday==7){cal+='</tr><tr>';weekday=0;}
if(selDate==year+getmmdd(month+1,dex))cal+=hilite_start+'<span'+clickDate(dex,month,year)+'>'+dex+'<\/span><\/b><\/td>';else cal+=td_start+'<span '+clickDate(dex,month,year)+'>'+dex+'<\/span><\/td>';weekday+=1;}
for(dex=weekday;dex<7;dex++)cal+=td_start+' <\/td>';cal+='<\/tr><\/table><\/div>';if(document.getElementById){var mmb=month;mm=month+1;var yya=yyb=yy;if(mmb<1){mmb+=12;yyb--;}
var mma=month+2;if(mma>12){mma-=12;yya++;}
var yb=yy-1;var ya=yy+1;cal+='<table border="0" cellspacing="0" cellpadding="1" width="150" style="color:#FF3;background-color:#554A40"><tr><td><a href="#" onclick="if (cala = dispCal('+yyb+','+mmb+')) {document.getElementById(\'cal\').innerHTML = cala; return false;}">Prev Month</a></td><td align="right"><a href="#" onclick="if (cala = dispCal('+yya+','+mma+')) {document.getElementById(\'cal\').innerHTML = cala; return false;}">Next Month</a></td></tr></table>';}else{cal+='<div> </div>';}cal+='</div>';return cal;}
function start(){var x='<div id="calDate" style="word-wrap:hard;background-color:#C6BCB3;color:#000000;border:1pt solid #cccccc;width:150px"><\/div>';var y='';if(tb=='t')y=x+dispCal(0,0);else y=dispCal(0,0)+x;document.getElementById('calendar').innerHTML=y;ev();}
loaded('calendar',start);function clickDate(day,month,year){var ct=nextDate(year+getmmdd(month+1,day));if(ct=='')ct=nextDate('0000'+getmmdd(month+1,day));if(ct=='')return'style="color:'+textclr+'"';else return'style="cursor:pointer;text-decoration: underline; background-color:#FFFF00;font-size:13px;color:'+linkclr+'" onclick="selDate = '+year+getmmdd(month+1,day)+'; isDate('+day+','+month+','+year+');return false;"';}
function isDate(dayVal,monthVal,yearVal){var ct=nextDate(yearVal+getmmdd(monthVal+1,dayVal));if(ct=='')ct=nextDate('0000'+getmmdd(monthVal+1,dayVal));if(ct=='')ct=noMessage;document.getElementById('calDate').innerHTML=ct;return false;}
function nextDate(yymmdd){var x=dA.length;for(var i=0;i<x;i++){if(dA[i].substr(0,8)==yymmdd)return dA[i].substr(8);}
return'';}
function getmmdd(mm,dd){return(mm>9?''+mm:'0'+mm)+(dd>9?dd:'0'+dd);}
function ev(){var ct=nextDate(selDate);var ct=nextDate(selDate);if(ct=='')ct=nextDate('0000'+selDate.substr(4));if(ct=='')ct=noMessage;document.getElementById('calDate').innerHTML=ct;}