var xpos, ypos;
var xwin, ywin;
var vWinCal

function DisplayMonth(str_target, str_target2, str_datetime, obj_X, obj_Y) {
	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;
	var start_date = new Date();
	var dt_datetime = (str_datetime == null || str_datetime =="" ?  new Date() : str2dt4(str_datetime));
	var dt_prev_month = new Date(dt_datetime);
//	dt_prev_month.setMonth(dt_datetime.getMonth()-1);
	dt_prev_month.setMonth(start_date.getMonth());
	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);

	var str_buffer = new String (
"<html>\n"+
"<head>\n"+
"<title>Calendar</title>\n"+
"<link href=\"transport.css\" type=\"text/css\" rel=\"stylesheet\">\n"+
"</head>\n"+
"<body bgcolor=\"White\">\n"+
"<table class=\"pcal\" cellspacing=\"0\" border=\"0\" width=\"100%\">\n"+
"<tr><td bgcolor=\"#C08000\">\n"+
"<table cellspacing=\"1\" cellpadding=\"3\" border=\"0\" width=\"100%\">\n"+
"<tr>\n	<td bgcolor=\"#C08000\"><a href=\"javascript:window.opener.DisplayMonth('"+str_target+"', '"+str_target2+"', '"+dt2dtstr4(dt_prev_month)+"', "+obj_X+", "+obj_Y +");\">"+
"<img src=\"images/B-prev.gif\" width=\"16\" height=\"16\" border=\"0\""+
" alt=\"previous month\"></a></td>\n"+
"	<td align =\"center\" bgcolor=\"#C08000\" colspan=\"5\">"+
"<font color=\"white\" face=\"Arial, Helvetica\" size=\"2\">"
+arr_months[dt_datetime.getMonth()]+" "+dt_datetime.getFullYear()+"</font></td>\n"+
"	<td bgcolor=\"#C08000\" align=\"right\"><a href=\"javascript:window.opener.DisplayMonth('"+str_target+"', '"+str_target2+"', '"+dt2dtstr4(dt_next_month)+"', "+obj_X+", "+obj_Y+");\">"+
"<img src=\"images/B-next.gif\" width=\"16\" height=\"16\" border=\"0\""+
" alt=\"next month\"></a></td>\n</tr>\n"
);

var dt_current_day = new Date(dt_firstday);
str_buffer += "<tr>\n";
for (var n=0; n<7; n++)
	str_buffer += "<td bgcolor=\"#E0A040\">" + "<font color=\"white\" face=\"Arial, Helvetica\" size=\"2\">" + week_days[(n_weekstart+n)%7] + "</font></td>\n";
	str_buffer += "</tr>\n";
	while (dt_current_day.getMonth() == dt_datetime.getMonth() ||
		dt_current_day.getMonth() == dt_firstday.getMonth()) {
		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())
					str_buffer += "	<td bgcolor=\"#FFA0A0\" align=\"right\">";
				else if (dt_current_day.getDay() == 0)
					str_buffer += "	<td bgcolor=\"#D0D0D0\" align=\"right\">";
				else
					str_buffer += "	<td bgcolor=\"white\" align=\"right\">";

				if (dt_current_day.getMonth() == dt_datetime.getMonth())
					str_buffer += "<a href=\"javascript:window.opener."+str_target+
					".value='"+dt2dtstr4(dt_current_day)+"'; window.opener."+str_target2+
					".value='"+dt2dow(dt_current_day)+"'; window.close();\">"+
					"<font color=\"black\" face=\"Arial, Helvetica\" size=\"2\">"+
					dt_current_day.getDate()+"</a></font></td>\n";
				else 
					str_buffer += "</font></td>\n";
				dt_current_day.setDate(dt_current_day.getDate()+1);
		}
		str_buffer += "</tr>\n";
	}
str_buffer += "</table>\n" + "</tr>\n</td>\n</table>\n" +
"<p align=\"center\"><a class=\"foot\" href=\"javascript:window.close()\">Close This</p>\n"+
"</body>\n" + "</html>\n";

vWinCal = OpenCalWindow(obj_X, obj_Y)

var calc_doc = vWinCal.document;
calc_doc.write (str_buffer);
calc_doc.close();
}

function str2dt4 (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 dt2dtstr4 (dt_datetime) {
return (new String (
(dt_datetime.getMonth()+1)+"/"+dt_datetime.getDate()+"/"+dt_datetime.getFullYear()));
}
function dt2dow (dt_datetime) {
var long_days = ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"];
return (new String (
long_days [dt_datetime.getDay()]));
}

function OpenCalWindow(xpos, ypos){
vWinCal = window.open("", "Calendar", "width=200,height=220,status=no,resizable=yes,left="+xpos+", top="+ypos);
vWinCal.opener = self;
vWinCal.focus();
return (vWinCal);
}

function GetXok(obj_pop){
xpos=obj_pop.offsetLeft;
if (document.all) {
	xwin = window.screenLeft;}
 else {
	xwin = window.screenX;
xpos = xwin + xpos;}
return (xpos+60);
}

function GetX(obj_pop) {
	xpos = 0;
	if (obj_pop.offsetParent) {
		xpos+=obj_pop.offsetLeft;
    obj_pop=obj_pop.offsetParent;
		xpos+=obj_pop.offsetLeft;
	} else if (obj_pop.y) {
		xpos+=obj_pop.x;}
	if (document.all) {
		xwin = window.screenLeft;}
	 else {
		xwin = window.screenX;}
	xpos = xwin + xpos;
  return xpos+60;
}

function GetYquick(obj_pop){
ypos=obj_pop.y;
ypos=obj_pop.offsetTop;
if (document.all) {
	ywin = window.screenTop;}
 else {
	ywin = window.screenY;
ypos = ywin + ypos;}
return (ypos);
}

function GetY(obj_pop) {
	ypos = 0;
	if (obj_pop.offsetParent) {
		ypos+=obj_pop.offsetTop;
    obj_pop=obj_pop.offsetParent;
		ypos+=obj_pop.offsetTop;
	} else if (obj_pop.y) {
		ypos+=obj_pop.y;}
	if (document.all) {
		ywin = window.screenTop;}
	 else {
		ywin = window.screenY;}
	ypos = ywin + ypos;
  return ypos+200;
}