
function show_calendar4x(str_target, str_datetime, icon_path,topval,leftval) {
		
		str_target = unescape(str_target)					
		var arr_months = ["January", "February", "March", "April", "May", "June",
                "July", "August", "September", "October", "November", "December"];
        var week_days = ["Su", "Mo", "Tu", "We", "Th", "Fr", "Sa"];
        var n_weekstart = 0; // day week starts from (normally 0 or 1)

        var dt_datetime = (str_datetime == null || str_datetime =="" ?  new Date() : str2dt4x(str_datetime));
        var dt_prev_month = new Date(dt_datetime);
        dt_prev_month.setMonth(dt_datetime.getMonth()-1);
        var dt_next_month = new Date(dt_datetime);
        dt_next_month.setMonth(dt_datetime.getMonth()+1);
        var dt_prev_year = new Date(dt_datetime);
        dt_prev_year.setYear(dt_datetime.getYear()-1);
        var dt_next_year = new Date(dt_datetime);
        var year = dt_datetime.getYear()+1;
		if  (year == 100 )
		{
			year = 2000;
		}
         dt_next_year.setYear(year);

        var dt_firstday = new Date(dt_datetime);
        dt_firstday.setDate(1);
        dt_firstday.setDate(1-(7+dt_firstday.getDay()-n_weekstart)%7);
        var dt_lastday = new Date(dt_next_month);
        dt_lastday.setDate(0);

        // html generation (feel free to tune it for your particular application)
        // print calendar header
        var str_buffer = new String (
                "<html>\n"+
                "<head>\n"+
                "        <title>Calendar</title>\n"+
                "</head>\n"+
                "<body bgcolor=\"White\">\n"+
                "<table class=\"clsOTable\" cellspacing=\"0\" border=\"0\" width=\"100%\">\n"+
                "<tr><td bgcolor=\"#4682B4\">\n"+
                "<table cellspacing=\"1\" cellpadding=\"3\" border=\"0\" width=\"100%\">\n"+
                "<tr>\n"+
                "        <td bgcolor=\"#4682B4\"><a href=\"#\" onclick=\"window.opener.show_calendar4x('"+
                escape(str_target)+"', '"+ dt2dtstr4x(dt_prev_year)+"','"+icon_path+"');\">"+
                "<img src=\"" + icon_path +"images/prev_year.gif\" width=\"16\" height=\"16\" border=\"0\""+
                " alt=\"previous year\"></a></td>\n"+
                "        <td bgcolor=\"#4682B4\"><a href=\"#\" onclick=\"javascript:window.opener.show_calendar4x('"+
                escape(str_target)+"', '"+ dt2dtstr4x(dt_prev_month)+"','"+icon_path+"');\">"+
                "<img src=\"" + icon_path +"images/prev.gif\" width=\"16\" height=\"16\" border=\"0\""+
                " alt=\"previous month\"></a></td>\n"+

                "        <td bgcolor=\"#4682B4\" colspan=\"3\">"+
                "<font color=\"white\" face=\"tahoma, verdana\" size=\"1\">"
                +arr_months[dt_datetime.getMonth()]+" "+dt_datetime.getFullYear()+"</font></td>\n"+

                "        <td bgcolor=\"#4682B4\" align=\"right\"><a href=\"#\" onclick=\"javascript:window.opener.show_calendar4x('"
                +escape(str_target)+"', '"+dt2dtstr4x(dt_next_month)+"','"+icon_path+"');\">"+
                "<img src=\"" + icon_path +"images/next.gif\" width=\"16\" height=\"16\" border=\"0\""+
                " alt=\"next month\"></a></td>\n"+
                "        <td bgcolor=\"#4682B4\" align=\"right\"><a href=\"#\" onclick=\"javascript:window.opener.show_calendar4x('"
                +escape(str_target)+"', '"+dt2dtstr4x(dt_next_year)+"','"+icon_path+"');\">"+
                "<img src=\"" + icon_path +"images/next_year.gif\" width=\"16\" height=\"16\" border=\"0\""+
                " alt=\"next year\"></a></td>\n"+
                "</tr>\n");

        var dt_current_day = new Date(dt_firstday);
        // print weekdays titles
        str_buffer += "<tr>\n";
        for (var n=0; n<7; n++)
                str_buffer += "        <td bgcolor=\"#87CEFA\">"+
                "<font color=\"white\" face=\"tahoma, verdana\" size=\"2\">"+
                week_days[(n_weekstart+n)%7]+"</font></td>\n";
        // print calendar table
        str_buffer += "</tr>\n";
        while (dt_current_day.getMonth() == dt_datetime.getMonth() ||
                dt_current_day.getMonth() == dt_firstday.getMonth()) {
                // print row heder
                str_buffer += "<tr>\n";
                for (var n_current_wday=0; n_current_wday<7; n_current_wday++) {
                                if (dt_current_day.getDate() == dt_datetime.getDate() &&
                                        dt_current_day.getMonth() == dt_datetime.getMonth())
                                        // print current date
                                        str_buffer += "        <td bgcolor=\"#FFB6C1\" align=\"right\">";
                                else if (dt_current_day.getDay() == 0 || dt_current_day.getDay() == 6)
                                        // weekend days
                                        str_buffer += "        <td bgcolor=\"#DBEAF5\" align=\"right\">";
                                else
                                        // print working days of current month
                                        str_buffer += "        <td bgcolor=\"white\" align=\"right\">";

                                if (dt_current_day.getMonth() == dt_datetime.getMonth())
                                        // print days of current month
                                        str_buffer += "<a href=\"javascript:window.opener."+unescape(str_target)+
                                        ".value='"+dt2dtstr4x(dt_current_day)+"'; window.close();\">"+
                                        "<font color=\"black\" face=\"tahoma, verdana\" size=\"2\">";
                                else
                                        // print days of other months
                                        str_buffer += "<a href=\"javascript:window.opener."+unescape(str_target)+
                                        ".value='"+dt2dtstr4x(dt_current_day)+"'; window.close();\">"+
                                        "<font color=\"gray\" face=\"tahoma, verdana\" size=\"2\">";
                                str_buffer += dt_current_day.getDate()+"</font></a></td>\n";
                                dt_current_day.setDate(dt_current_day.getDate()+1);
                }
                // print row footer
                str_buffer += "</tr>\n";
        }
        // print calendar footer
        str_buffer +=
                "</table>\n" +
                "</tr>\n</td>\n</table>\n" +
                "</body>\n" +
                "</html>\n";

        var vWinCal = window.open("", "Calendar",
                "width=200,height=210,status=no,resizable=yes,top="+topval +",left="+leftval);
        vWinCal.opener = self;
        vWinCal.focus();
        var calc_doc = vWinCal.document;
        calc_doc.write (str_buffer);
        calc_doc.close();
}
// datetime parsing and formatting routimes. modify them if you wish other datetime format
function str2dt4x (str_datetime) {
        var re_date = /^(\d+)\/(\d+)\/(\d+)$/;
        if (!re_date.exec(str_datetime))
                return alert("Invalid Datetime format: "+ str_datetime);
        return (new Date (RegExp.$3, RegExp.$1-1, RegExp.$2));
}
function dt2dtstr4x (dt_datetime) {
        return(new String ((dt_datetime.getMonth()+1)+"/"+dt_datetime.getDate()+"/"+dt_datetime.getFullYear()));
}


function setValue(element) {

 if (element.value.length  > 0 )
 {
	if  ( element.value.length == 4 && isNaN(element.value)== false)
	{
	  today = new Date();
	  stemp = element.value + today.getFullYear();
	  element.value = stemp;
	  
	}
	if  ( (element.value.length == 3 || element.value.length == 4 || element.value.length == 5 )&& isNaN(element.value)== true)
	{
	  today = new Date();
	  stemp = element.value + "/" + today.getFullYear();
	  element.value = stemp;
	  
	}
	var smon,sday,syr;
	if  ( element.value.length == 8 && isNaN(element.value)== false )
		{
			
			smon = element.value.substr(0,2);
			sday = element.value.substr(2,2);
			syr = element.value.substr(4,4);
			element.value = smon + "/" + sday + "/" + syr;
			
		}
	if (dateCheck(element.value,'%m/%d/%yyyy')==false)
	        	 {
				element.focus();
				return false;
						
			}
 }

}

function setExpiresValue(element,cnt) {

 if (element.value.length  > 0 )
 {
	if  ( element.value.length == 4 && isNaN(element.value)== false)
	{
	  today = new Date();
	  stemp = element.value + today.getFullYear();
	  element.value = stemp;
	  
	}
	if  ( (element.value.length == 3 || element.value.length == 4 || element.value.length == 5 )&& isNaN(element.value)== true)
	{
	  today = new Date();
	  stemp = element.value + "/" + today.getFullYear();
	  element.value = stemp;
	  
	}
	var smon,sday,syr;
	if  ( element.value.length == 8 && isNaN(element.value)== false )
		{
			
			smon = element.value.substr(0,2);
			sday = element.value.substr(2,2);
			syr = element.value.substr(4,4);
			element.value = smon + "/" + sday + "/" + syr;
			
		}
	if (dateCheck(element.value,'%m/%d/%yyyy')==false)
	        	 {
				element.focus();
				return false;
						
			}
		
        setDate(element.value,cnt);
 }

}

function setDate(svalue,cnt)
{
	var dt=new Date(svalue);
	var d = dt.getDay();
	var m=dt.getMonth();
	var y=dt.getFullYear()+1;
    eval("Company.Expires"+cnt+".value") =  m+"/"+d+"/"+y ;
}