function open_calendar(p_box,p_box2,p_y,p_m){ var vcode; var vwincal; var ggwincal; var Calendar = new Array(); var i; var dat = new Date(); var nowdat = new Date(); Calendar.Months = ["January","February","March","April","May","June","July","August","September","October","November","December"]; Calendar.Weeks = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"]; Calendar.DOMonth = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]; vwincal = window.open(" ", "calendar", "width=350,height=250,status=no,resizable=no,top=200,left=200"); vwincal.focus(); ggwincal = vwincal.opener; dat.setYear(p_y); dat.setMonth(p_m); dat.setDate('1'); if (dat.getMonth() < nowdat.getMonth()){ dat.setYear(dat.getFullYear()+1); } nowdat.setYear(dat.getFullYear()); nowdat.setMonth(p_m); nowdat.setDate('1'); if ((dat.getMonth() == 1) && (dat.getDate() % 4 == 0)){ Calendar.DOMonth[1] = 29; if (dat.getDate() % 100 == 0){ Calendar.DOMonth[1] = 28; if (dat.getDate() % 400 == 0){ Calendar.DOMonth[1] = 29; } } } vcode = "Calendar"; vcode = vcode + ""; vcode = vcode + "
"; vcode = vcode + ""; for(i in Calendar.Weeks) { vcode = vcode + ""; } vcode = vcode + ""; if (dat.getDay() != 0) { vcode = vcode + ""; } for (i=0;i "; } for(i=1;i<=Calendar.DOMonth[dat.getMonth()];i++) { nowdat.setDate(i); if (nowdat.getDay() == 0) { vcode = vcode + ""; } vcode = vcode + ""; if (nowdat.getDay() == 6) { vcode = vcode + ""; } } for (i = nowdat.getDay();i < 6;i++){ vcode = vcode + ""; } if (nowdat.getDay() != 6) { vcode = vcode + ""; } vcode = vcode + "
" + Calendar.Months[dat.getMonth()] + " " + dat.getFullYear() + "
" + Calendar.Weeks[i] + "
" + i + "
 
"; vcode = vcode + "Close"; vcode = vcode + "
"; vcode = vcode + ""; vwincal.document.write(vcode); vwincal.document.close(); }