var gdCtrl = new Object();

var goSelectTag = new Array();

var gcGray = "#ffffff";

var gcToggle = "#999999";//font

var gcBG = "#e3ffcf";

var d = new Date();

var giYear = d.getFullYear();

var giMonth = d.getMonth()+1;

var giDay = d.getDate();



//****************************************************************************

// Param: popCtrl is the widget beyond which you want this calendar to appear;

//        dateCtrl is the widget into which you want to put the selected date.

// i.e.: <input type="text" name="dc" style="text-align:center" readonly><INPUT type="button" value="V" onclick="fPopCalendar(dc,dc);return false" id=button1 name=button1>

//****************************************************************************

function fPopCalendar(popCtrl, dateCtrl){

	event.cancelBubble=true;

  	gdCtrl = dateCtrl;

 

  	if(gdCtrl.value!="")

  	{



	

	  	var tempDate=gdCtrl.value.toString();



		var tempYear=tempDate.charAt(0)+tempDate.charAt(1)+tempDate.charAt(2)+tempDate.charAt(3);

		giYear=parseInt(tempYear);
		

//	  	var tempMonth=tempDate.charAt(0)+tempDate.charAt(1);



		if (giYear<100) {

			var tempMonth=tempDate.charAt(3)+tempDate.charAt(4);

			giMonth=parseInt(tempMonth);			

		}else{

			var tempMonth=tempDate.charAt(5)+tempDate.charAt(6);

			giMonth=parseInt(tempMonth);
		

			giMonth = tempMonth;

		}

		if (giYear==0){
			ddd = new Date();
			giYear = ddd.getFullYear();
			giMonth = ddd.getMonth() + 1;
		}

//		var tempYear=tempDate.charAt(gdCtrl.value.length-2)+tempDate.charAt(gdCtrl.value.length-1);



	}

  	fSetYearMon(giYear, giMonth);// set the values of the selection boxes to today

  

  	var point = fGetXY(popCtrl);

  	with (DivPopCal.style) {

  		left = point.x;

		top  = point.y+popCtrl.offsetHeight+1;

		width = DivPopCal.offsetWidth;

		height = DivPopCal.offsetHeight;

		fToggleTags(point);

		visibility = 'visible';

  	}  

  	DivPopCal.focus();

}



function fResetDate(){

	var d = new Date();

	fSetDate(d.getFullYear(), d.getMonth()+1, d.getDate());

}



function fSetDate(iYear, iMonth, iDay){

	if (iMonth<10) iMonth="0"+iMonth;


//	gdCtrl.value =iMonth+"-"+iDay+"-"+iYear; //Here, you could modify the locale as you need !!!!  

	

	gdCtrl.value =iYear+"-"+iMonth+"-"+iDay; 



  	fHideCalendar();

}



function fClearDate(){



	gdCtrl.value =""; 



  	fHideCalendar();	

}





function fHideCalendar(){

  DivPopCal.style.visibility = "hidden";

  for (i in goSelectTag)

  	goSelectTag[i].style.visibility = "visible";

  goSelectTag.length = 0;

}



function fSetSelected(aCell){

  var iOffset = 0;

  var iYear = parseInt(tbSelYear.value);

  var iMonth = parseInt(tbSelMonth.value);



//  aCell.bgColor = gcBG;

  with (aCell.children["cellText"]){

  	var iDay = parseInt(innerText);

  	if (color==gcGray)

		iOffset = (ipos<10)?-1:1;

	iMonth += iOffset;

	if (iMonth<1) {

		iYear--;

		iMonth = 12;

	}else if (iMonth>12){

		iYear++;

		iMonth = 1;

	}

  }

  fSetDate(iYear, iMonth, iDay);

}



function Point(iX, iY){

	this.x = iX;

	this.y = iY;

}



function fBuildCal(iYear, iMonth) {

  	var aMonth=new Array();

  	for(i=1;i<7;i++)

  		aMonth[i]=new Array(i);



  	var dCalDate=new Date(iYear, iMonth-1, 1);

  	var iDayOfFirst=dCalDate.getDay();

  	var iDaysInMonth=new Date(iYear, iMonth, 0).getDate();

  	var iOffsetLast=new Date(iYear, iMonth-1, 0).getDate()-iDayOfFirst+1;

	

  	var iDate = 1;

  	var iNext = 1;



  	for (d = 0; d < 7; d++)

		aMonth[1][d] = (d<iDayOfFirst)?-(iOffsetLast+d):iDate++;

  	for (w = 2; w < 7; w++)

  		for (d = 0; d < 7; d++)

			aMonth[w][d] = (iDate<=iDaysInMonth)?iDate++:-(iNext++);

  	return aMonth;

}



function fDrawCal(iYear, iMonth, iCellWidth, iCellHeight, iTextSize) {

	with (document) {

  		for (var i = 0; i < 6; i++) {

			write("<tr>");

			for (var j = 0; j < 7; j++) {

				write("<td id=calCell bgcolor='"+gcBG+"' align='center' width='"+iCellWidth+"' height='"+iCellHeight+"' style='font:bold "+iTextSize+" Arial;cursor:hand;' onMouseOver='this.bgColor=gcToggle' onMouseOut='this.bgColor=gcBG' onclick='fSetSelected(this)'>");

				write("<font id=cellText ipos=''> </font>");

				write("</td>")

			}

			write("</tr>");

		}

  	}

}



function fUpdateCal(iYear, iMonth) {

  myMonth = fBuildCal(iYear, iMonth);

  var i = 0;

  for (w = 0; w < 6; w++)

	for (d = 0; d < 7; d++)

		with (cellText[(7*w)+d]) {

			ipos = i++;

			if (myMonth[w+1][d]<0) {

				color = gcGray;

				innerText = -myMonth[w+1][d];

			}else{

				color = "black";

				if (d==0) color = "red";

				if (d==6) color = "blue";

				innerText = myMonth[w+1][d];

			}

		}

}



function fSetYearMon(iYear, iMon){

  	var yy = 1900;



	tbSelMonth.options[iMon-1].selected = true;

	tbSelYear.options[iYear-yy].selected = true;

  	fUpdateCal(iYear, iMon);

}



function fPrevMonth(){

  var iMon = tbSelMonth.value;

  var iYear = tbSelYear.value;



  if (--iMon<1) {

	  iMon = 12;

	  iYear--;

  }

  if (iYear < 1900)

  	iYear++;

  fSetYearMon(iYear, iMon);

}



function fNextMonth(){

  var iMon = tbSelMonth.value;

  var iYear = tbSelYear.value;



  if (++iMon>12) {

	  iMon = 1;

	  iYear++;

  }

  if (iYear > 2080)

  	iYear--;

  fSetYearMon(iYear, iMon);

}



function fToggleTags(){

  with (document.all.tags("SELECT")){

 	for (i=0; i<length; i++)

 		if ((item(i).ipos!="Won")&&fTagInBound(item(i))){

 			item(i).style.visibility = "hidden";

 			goSelectTag[goSelectTag.length] = item(i);

 		}

  }

}



function fTagInBound(aTag){

  with (DivPopCal.style){

  	var l = parseInt(left);

  	var t = parseInt(top);

  	var r = l+parseInt(width);

  	var b = t+parseInt(height);

	var ptLT = fGetXY(aTag);

	return !((ptLT.x>r)||(ptLT.x+aTag.offsetWidth<l)||(ptLT.y>b)||(ptLT.y+aTag.offsetHeight<t));

  }

}



function fGetXY(aTag){

  var oTmp = aTag;

  var pt = new Point(0,0);

  do {

  	pt.x += oTmp.offsetLeft;

  	pt.y += oTmp.offsetTop;

  	oTmp = oTmp.offsetParent;

  } while(oTmp.tagName!="BODY");

  return pt;

}



//var gMonths = new Array("January","February","March","April","May","June","July","August","September","October","November","December");

var gMonths = new Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");

var WeekDay = new Array("Su","Mo","Tu","We","Th","Fr","Sa");



with (document) {



	write("<div id='DivPopCal' onclick='event.cancelBubble=true' style='POSITION:absolute;visibility:hidden;border:2px ridge;width:10;z-index:100'>");

	write("<table border='0' bgcolor='#ffffff'>");

	write("<tr>");

	write("<td valign='middle' align='center'><nobr><a href='#' onClick='fPrevMonth()' title='Previous Month'><img src='images/arrow_left.gif' border='0'></a>");

	write("&nbsp;<select name='tbSelMonth' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' ipos='Won'>");

	for (i=0; i<12; i++)

		write("<option value='"+(i+1)+"'>"+gMonths[i]+"</option>");

	write("</SELECT>");

	write("&nbsp;<SELECT name='tbSelYear' onChange='fUpdateCal(tbSelYear.value, tbSelMonth.value)' ipos='Won'>");

	var y=1900;

	for(i=y;i<y+200;i++)

		write("<OPTION value='"+i+"'>"+i+"</OPTION>");

	write("</SELECT>");

	write("&nbsp;<a href='#' onClick='fNextMonth()' title='Next Month'><img src='images/arrow_right.gif' border='0'></a>");

	write("</nobr></td>");

	write("</tr><tr>");

	write("<td align='center'>");

	write("<TABLE STYLE='border:solid 1px; cell-padding:2; cell-spacing:2'>");

	write("<tr>");

	for(i=0; i<7; i++)

		write("<td><font size='2' face='Verdana'>" + WeekDay[i] + "</font></td>");

	write("</tr>");

//	write("<tr><td colspan='7' height='1px' width='100%' bgcolor='#ff0000'></td></tr>");

	fDrawCal(giYear, giMonth, 10, 10, 10);

	write("</table>");

	write("</td>");

	write("</tr><tr><td align='center'>");

	write("<span onclick='fResetDate()' style='cursor:hand;font-family:Verdana'><img src='images/btn_today.gif'></span>");

	write("</td></tr>");

	write("<tr><td align='center'>");

	write("<span onclick='fHideCalendar()' style='cursor:hand;font-family:Verdana'><font size=1>Cancel</font></span>&nbsp;&nbsp;&nbsp;");

	write("<span onclick='fClearDate()' style='cursor:hand;font-family:Verdana'><font size=1>Clear</font></span>");

	write("</td></tr>");

	write("</table></div>");



}