function show_calendar(str_target, str_datetime) {
	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 = 1; // day week starts from (normally 0 or 1)

	var dt_datetime = (str_datetime == null || str_datetime =="" ?  new Date() : str2dt(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_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);
	if (typeof(str_target) == "undefined")
        str_target = new Date()
        //alert (str_target)
	// html generation (feel free to tune it for your particular application)
	// print calendar header
	// print calendar header
	var str_buffer = new String (
		"<html>\n"+
		"<head>\n"+
		"	<title>Pick a Date... Any Date</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=\"javascript:window.opener.show_calendar('"+
		str_target+"', '"+ dt2dtstr(dt_prev_month)+"'+document.cal.time.value);\">"+
		"<img src=\"prev.gif\" width=\"16\" height=\"16\" border=\"0\""+
		" alt=\"previous month\"></a></td>\n"+
		"	<td bgcolor=\"#4682B4\" colspan=\"5\">"+
		"<font color=\"white\" face=\"tahoma, verdana\" size=\"2\">"
		+arr_months[dt_datetime.getMonth()]+" "+dt_datetime.getFullYear()+"</font></td>\n"+
		"	<td bgcolor=\"#4682B4\" align=\"right\"><a href=\"javascript:window.opener.show_calendar('"
		+str_target+"', '"+dt2dtstr(dt_next_month)+"'+document.cal.time.value);\">"+
		"<img src=\"next.gif\" width=\"16\" height=\"16\" border=\"0\""+
		" alt=\"next month\"></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=\""+get_link(dt_current_day)+"\" target=\"_blank\" >"+
					"<font color=\"black\" face=\"tahoma, verdana\" size=\"2\">";
				else 
					// print days of other months
					str_buffer += "<a href=\""+get_link(dt_current_day)+"\" target=\"_blank\" >"+
					"<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 +=
		"<form name=\"cal\">\n<tr><td colspan=\"7\" bgcolor=\"#87CEFA\">"+
		"<font color=\"White\" face=\"tahoma, verdana\" size=\"2\">"+
		"<input type=\"text\" name=\"time\" value=\""+dt2tmstr(dt_datetime)+
		"\" size=\"8\" maxlength=\"8\" ></font></form>\n</td></tr>\n" +
		"</table>\n" +
		"</tr>\n</td>\n</table>\n" +
"<span><a href=\"index.htm\" target=\"_blank\" >Main Page</a></span>"+
"<span><a>...</a></span>"+
"<span><a href=\"Dates.htm\" target=\"_blank\" >Pick a date</a></span>"+
		"</body>\n" +
		"</html>\n";



	var vWinCal = window.open("cornerFrame", "Calendar", 
		"width=200,height=250,status=no,resizable=yes,top=200,left=200");
	vWinCal.opener = self;
	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 str2dt (str_datetime) 
{ 
   var re_date = /^(\d+)\.(\d+)\.(\d+)/;
   if (!re_date.exec(str_datetime))
   {
      var r = new RegExp("/");
      r.global = true;
      str_datetime = str_datetime.replace(r,"-");
      str_datetime = str_datetime.replace(r,"-");
      if (str_datetime.indexOf('-') == -1)
      {
         return alert("Invalid Datetime format: "+ str_datetime);
      }
      else
      {
         var re_date = /^(\d+)-(\d+)-(\d+)/;
         if (!re_date.exec(str_datetime))
         {
            return alert("notused Datetime format: "+ str_datetime);
         }
      }
   }
   return (new Date (RegExp.$3, RegExp.$2-1, RegExp.$1, RegExp.$4, RegExp.$5, RegExp.$6));
}
function dt2dtstr (dt_datetime) {
	return (new String (
			dt_datetime.getDate()+"."+(dt_datetime.getMonth()+1)+"."+dt_datetime.getFullYear()));
}
function dt2tmstr (dt_datetime) {
	return (new String (""));
			//dt_datetime.getHours()+":"+dt_datetime.getMinutes()+":"+dt_datetime.getSeconds()));
}

function get_link(aDate)
{
var arr_Docs = ["DEF1989-1996", "DEF1989-1996", "DEF1989-1996","DEF1989-1996", 
                "DEF1989-1996", "DEF1989-1996",	"DEF1989-1996","DEF1989-1996",
                 "DEF1997-1999", "DEF1997-1999","DEF1997-1999","def2000",
                 "def2001", "def2002", "def"];

// Get Year
xYear =  aDate.getFullYear()

// Format Date
thisdate = d8_date(aDate)
// get exceptions

Doc = Check_Dates(thisdate)
//Doc = arr_Docs[xYear-1989]

if (Doc == 'Std')
  Doc = arr_Docs[xYear-1989]


return Doc+'.htm'+'#Date'+thisdate
}


function d8_date(aDate)
{    
    xYear =  aDate.getFullYear()
    xMonth = aDate.getMonth()+1 
    xDate =   aDate.getDate()

    return xYear+lPad(xMonth,2)+lPad(xDate,2)
}


function Check_Dates(thisdate)
{
 var arr_dates = [ "19880501","20010522","20010523","20010524"]
 var arr_diff  = ["DEF1997-1999","places\\France","places\\France","places\\France"]
   for (i=0; i< arr_dates.length; i++)
   {
      if (arr_dates[i] == thisdate)
       return arr_diff[i]
  }
return 'Std'

}

function lPad(aString,aLen,aValue)
{
 var s,l,v
    if (typeof(aValue) == "undefined")   
    {
        if (isNaN(aString))
            v = " "
        else
            v = "0"
    }
    else
        v=aValue
 s=""  
 l=String(aString).length
      for (i=l; i<aLen; ++i)
      {
         s+= v
      }
      s+=aString
 return s
}