function cal_getObj(objID)
{
    if (document.getElementById) 
    {
        return document.getElementById(objID);
    }
    else if (document.all) 
    {
        return document.all[objID];
    }
    else if (document.layers) 
    {
        return document.layers[objID];
    }
}

function cal_checkClick(e)
{
	e?evt=e:evt=event;
	CSE=evt.target?evt.target:evt.srcElement;
	
	if (cal_getObj('fc'))
	{
		if (!cal_isChild(CSE,cal_getObj('fc')))
			cal_getObj('fc').style.display='none';
			
	    cal_getObj('ifc').style.display=cal_getObj('fc').style.display;
	}		
}

function cal_isChild(s,d)
{
	while(s) 
	{
		if (s==d) 
			return true;
			
		s=s.parentNode;
	}
	
	return false;
}

function cal_Left(obj)
{
    var curleft = 0;
    
    if (obj.offsetParent) 
    { 
        curleft = obj.offsetLeft;

        while (obj = obj.offsetParent) 
        { 
            curleft += obj.offsetLeft;
        }
    }
		
	return curleft + "px";
}

function cal_Top(obj)
{
    var curtop = 0;
    var curheight = 0;

    if (obj.offsetParent) 
    { 
        curtop = obj.offsetTop;
        curheight = obj.offsetHeight;

        while (obj = obj.offsetParent) 
        { 
            curtop += obj.offsetTop;
        }
        
        curtop += curheight;
    }
		
	return curtop + "px";
}
	
document.write('<table id="fc" style="position:absolute;border-collapse:collapse;background-color:#FFFFFF;border:1px solid #ABABAB;display:none;z-index:101;" cellpadding=2>');
document.write('<tr><td class="cla" onclick="csuby()"></td><td colspan=5 id="yrs" align="center" style="font:bold 13px Arial"></td><td align="right" class="cra" onclick="caddy()"></td></tr>');
document.write('<tr><td class="cla" onclick="csubm()"></td><td colspan=5 id="mns" align="center" style="font:bold 13px Arial"></td><td align="right" class="cra" onclick="caddm()"></td></tr>');
document.write('<tr><td align=center style="background:#ABABAB;font:12px Arial">S</td><td align=center style="background:#ABABAB;font:12px Arial">M</td><td align=center style="background:#ABABAB;font:12px Arial">T</td><td align=center style="background:#ABABAB;font:12px Arial">W</td><td align=center style="background:#ABABAB;font:12px Arial">T</td><td align=center style="background:#ABABAB;font:12px Arial">F</td><td align=center style="background:#ABABAB;font:12px Arial">S</td></tr>');

for(var kk=1;kk<=6;kk++)
{
	document.write('<tr>');
	
	for(var tt=1;tt<=7;tt++) 
	{
		num=7 * (kk-1) - (-tt);
		document.write('<td id="v' + num + '" style="width:20px;height:20px">&nbsp;</td>');
	}
	
	document.write('</tr>');
}

document.write('</table>');
document.write('<iframe id="ifc" src="#" frameborder="0" style="position:absolute;display:none;z-index:100;"></iframe>')

document.all?document.attachEvent('onclick',cal_checkClick):document.addEventListener('click',cal_checkClick,false);

// Calendar script
var now = new Date;
var sccm=now.getMonth();
var sccy=now.getFullYear();
var ccm=now.getMonth();
var ccy=now.getFullYear();

var updobj;

function cal_lcs(ielem) 
{
	updobj=ielem;
	
	var obj_fc = cal_getObj('fc');
	var obj_ifc = cal_getObj('ifc');
	
	obj_fc.style.left=cal_Left(ielem);
	obj_fc.style.top=cal_Top(ielem);
	obj_fc.style.display='';
	
	obj_ifc.style.left=obj_fc.style.left;
	obj_ifc.style.top=obj_fc.style.top;
	obj_ifc.style.display='';
	
	obj_ifc.style.width = obj_fc.offsetWidth + "px";
	obj_ifc.style.height = obj_fc.offsetHeight + "px";
	
	// First check date is valid
	curdt=ielem.value;
	curdtarr=curdt.split('/');
	isdt=true;
	
	for(var k=0;k<curdtarr.length;k++)
	{
		if (isNaN(curdtarr[k]))
			isdt=false;
	}
	
	if (isdt&(curdtarr.length==3)) 
	{
		ccm=curdtarr[1]-1;
		ccy=curdtarr[2];
		prepcalendar(curdtarr[0], curdtarr[1]-1, curdtarr[2]);
		prepcalendar('',curdtarr[1]-1,curdtarr[2]);
	}
}

function cal_evtTgt(e)
{
	var el;
	if(e.target)el=e.target;
	else if(e.srcElement)el=e.srcElement;
	if(el.nodeType==3)el=el.parentNode; // defeat Safari bug
	return el;
}

function cal_EvtObj(e)
{
    if(!e)
        e=window.event;
        
    return e;
}

function cs_over(e) 
{
	cal_evtTgt(cal_EvtObj(e)).style.background='#FFCC66';
}

function cs_out(e) 
{
	cal_evtTgt(cal_EvtObj(e)).style.background='#C4D3EA';
}

function cs_click(e) 
{
	updobj.value=calvalarr[cal_evtTgt(cal_EvtObj(e)).id.substring(1,cal_evtTgt(cal_EvtObj(e)).id.length)];
	cal_getObj('fc').style.display='none';
	cal_getObj('ifc').style.display='none';
	updobj.focus();
}

var mname = new Array('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
var mn=new Array('01','02','03','04','05','06','07','08','09','10','11','12');
var mnn=new Array('31','28','31','30','31','30','31','31','30','31','30','31');
var mnl=new Array('31','29','31','30','31','30','31','31','30','31','30','31');
var calvalarr=new Array(42);

function f_cps(obj) 
{
	obj.style.background='#C4D3EA';
	obj.style.font='10px Arial';
	obj.style.color='#333333';
	obj.style.textAlign='center';
	obj.style.textDecoration='none';
	obj.style.border='1px solid #6487AE';
	obj.style.cursor='pointer';
}

function f_cpps(obj) 
{
	obj.style.background='#C4D3EA';
	obj.style.font='10px Arial';
	obj.style.color='#ABABAB';
	obj.style.textAlign='center';
	obj.style.textDecoration='line-through';
	obj.style.border='1px solid #6487AE';
	obj.style.cursor='default';
}

function f_hds(obj) 
{
	obj.style.background='#FFF799';
	obj.style.font='bold 10px Arial';
	obj.style.color='#333333';
	obj.style.textAlign='center';
	obj.style.border='1px solid #6487AE';
	obj.style.cursor='pointer';
}

// day selected
function prepcalendar(hd, cm, cy) 
{
	now=new Date();
	sd=now.getDate();
	td=new Date();
	td.setDate(1);
	td.setFullYear(cy);
	td.setMonth(cm);
	cd=td.getDay();
//	cal_getObj('mns').innerHTML=mn[cm]+ ' ' + cy;
	
//	cal_getObj('mns').innerHTML = mn[cm]; //vvv
    cal_getObj('mns').innerHTML = mname[parseInt(mn[cm], 10) - 1]; //vvv
	
	cal_getObj('yrs').innerHTML = cy;
	marr=((cy%4)==0)?mnl:mnn;
	
	for(var d=1;d<=42;d++) 
	{
		f_cps(cal_getObj('v'+parseInt(d)));
		
		if ((d >= (cd -(-1))) && (d<=cd-(-marr[cm])))
		{
//			dip=((d-cd < sd)&&(cm==sccm)&&(cy==sccy));  //Uncomment this to disable previous dates of current month.
			dip=false;
			htd=((hd!='')&&(d-cd==hd));

            if(((d-cd)==sd)&&(cm==sccm)&&(cy==sccy))
                f_hds(cal_getObj('v'+parseInt(d)));
			else if (dip)
				f_cpps(cal_getObj('v'+parseInt(d)));
			else if (htd)
				f_hds(cal_getObj('v'+parseInt(d)));
			else
				f_cps(cal_getObj('v'+parseInt(d)));

            if(((d-cd)==sd)&&(cm==sccm)&&(cy==sccy))
            {
                cal_getObj('v'+parseInt(d)).onmouseover=null;
			    cal_getObj('v'+parseInt(d)).onmouseout=null;
            }
            else
            {
			    cal_getObj('v'+parseInt(d)).onmouseover=(dip)?null:cs_over;
			    cal_getObj('v'+parseInt(d)).onmouseout=(dip)?null:cs_out;
			}
			
			cal_getObj('v'+parseInt(d)).onclick=(dip)?null:cs_click;
			
			cal_getObj('v'+parseInt(d)).innerHTML=d-cd;	
//			calvalarr[d]=''+(d-cd)+'/'+(cm-(-1))+'/'+cy;
			calvalarr[d]=''+toTwoDigit(d-cd)+'/'+mn[cm]+'/'+cy;
		}
		else 
		{
			cal_getObj('v'+d).innerHTML='&nbsp;';
			cal_getObj('v'+parseInt(d)).onmouseover=null;
			cal_getObj('v'+parseInt(d)).onmouseout=null;
			cal_getObj('v'+parseInt(d)).style.cursor='default';
		}
	}
}

prepcalendar('', ccm, ccy);
//cal_getObj('fc'+cc).style.visibility='hidden';

function toTwoDigit(val)
{
    if(val<10)
        return "0" + val;
    else
        return val;
}

function caddm()
{
	marr=((ccy%4)==0)?mnl:mnn;
	
	ccm = ccm + 1;
	if (ccm>=12) 
	{
		ccm=0;
		ccy++;
	}
	cdayf();
	prepcalendar('', ccm, ccy);
}

function csubm() 
{
	marr=((ccy%4)==0)?mnl:mnn;
	
	ccm = ccm - 1;
	if (ccm<0) 
	{
		ccm=11;
		ccy--;
	}
	cdayf();
	prepcalendar('', ccm, ccy);
}

function cdayf() 
{
    if ((ccy>sccy)|((ccy==sccy)&&(ccm>=sccm)))
	    return;
    else 
    {
//	    ccy=sccy;   //Uncomment this to disable previous dates.
//	    ccm=sccm;   //Uncomment this to disable previous dates.
//	    cfd=scfd;
    }
}

function caddy()
{
	ccy++;
	marr=((ccy%4)==0)?mnl:mnn;
	
	cdayf();
	prepcalendar('', ccm, ccy);
}

function csuby()
{
	ccy--;	
	marr=((ccy%4)==0)?mnl:mnn;
	
	cdayf();
	prepcalendar('', ccm, ccy);
}

function cal_Check(e)
{
    var _code;
    
    if(window.event)
        _code = e.keyCode;
    else if(e.which)
        _code = e.which;
    
    if(!(((_code>=48)&&(_code<=57))||(_code==47)||(_code==45)))
    {
        return false;
    }
}

function cal_Validate(val)
{
    if(val.value=="")
        return;
        
    var pattern1 = /^(0[1-9]|[12][0-9]|3[01])([0][1-9]|[1][012])(19|([2-9]\d))\d\d$/;
    var pattern2 = /^(0[1-9]|[12][0-9]|3[01])[-/]([0][1-9]|[1][012])[-/](19|([2-9]\d))\d\d$/;
    var pattern3 = /[-]|[/]/;
    
    var re = new RegExp(pattern1);
    
    if(!re.test(val.value)) 
    {
        re = new RegExp(pattern2);
        
        if(!re.test(val.value))
        {
            alert("Invalid date.");
            val.value = "";
            val.focus();
            
            return;
        }
    }
    
    var re = new RegExp(pattern3);
    var _val = val.value;
    
    while(re.exec(_val))
    {
        _val = _val.replace(pattern3, "");
    }
    
    var _dd = _val.substring(0, 2);
    var _mm = _val.substring(2, 4);
    var _yyyy = _val.substring(4, 8);
    
    if((((_mm==4)||(_mm==6)||(_mm==9)||(_mm==11))&&(_dd>30))||((_mm==2)&&((_yyyy%4)>0)&&(_dd>28))||((_mm==2)&&((_yyyy%4)==0)&&(_dd>29)))
    {
        alert("Invalid date.");
        val.value = "";
        val.focus();
        
        return;
    }
    
    val.value = _dd + "/" + _mm + "/" + _yyyy;
}