<!-- hide from old browsers
//##################################################################
//# Copyright 1998(C)       # G-cal v.2.1                          #
//# Tom Kjeldsen            # Gregorian calendar                  #
//# DooleySoft              # Released 27-07-1998                  #
//# E-mail:                 ########################################
//# et.phone.home@dooley.dk                                      # 
//# Web site: http://dooely.dk                                  #
//##################################################################
//# I give you permission to utilize this script and all of it's   #
//# components as long as this part stays intact and untouched.    #
//# Using this script souly for making profit in any currency is   #
//# strictly prohibited without the written permission of Tom      #
//# Kjeldsen                                                       #
//##################################################################
//# Basicly, you have to have my written permission to use this    #
//# script for making any money.                                   #
//##################################################################
//# This script is a javascript version 1.2                        #
//################################################################## 

// --------------------------
function GCal(sye,smo,snomo) {
// --------------------------

// --------------------------
function y2k(number) { return (number < 1000) ? number + 1900 : number; }

var debug = '<FONT COLOR="red"> D-e-b-u-g:' 

var numsye = sye-0 
var numsmo = smo-1 
var numsnomo = snomo-0


var noOfMonth = numsnomo
var now = new Date()
//var year = y2k(now.getYear())
var year = numsye
//var month = now.getMonth()
var month = numsmo
var date = now.getDate()
//var nowyear = y2k(now.getYear())
var nowyear = y2k(now.getYear())
var nowmonth = now.getMonth()
var nowdate = now.getDate()
//document.write(now) 

var text = ''
            
var weekar = new Array(16)
weekar[0] = "Mon"
weekar[1] = "Tue"
weekar[2] = "Wed"
weekar[3] = "Thu"
weekar[4] = "Fri"
weekar[5] = "Sat"
weekar[6] = "Sun"
weekar[7] = "Week"
weekar[8] = "Man"
weekar[9] = "Tir"
weekar[10] = "Ons"
weekar[11] = "Tors"
weekar[12] = "Fre"
weekar[13] = "Lør"
weekar[14] = "Søn"
weekar[15] = "Uge"

var monthar = new Array(24)
monthar[0] = "January"
monthar[1] = "February"
monthar[2] = "March"
monthar[3] = "April"
monthar[4] = "May"
monthar[5] = "June"
monthar[6] = "July"
monthar[7] = "August"
monthar[8] = "September"
monthar[9] = "October"
monthar[10] = "November"
monthar[11] = "December"
monthar[12] = "Januar"
monthar[13] = "Februar"
monthar[14] = "Marts"
monthar[15] = "April"
monthar[16] = "Maj"
monthar[17] = "Juni"
monthar[18] = "Juli"
monthar[19] = "August"
monthar[20] = "September"
monthar[21] = "Oktober"
monthar[22] = "November"
monthar[23] = "December"

var monoar = new Array(24)
monoar[0] = 31 // Jan
monoar[1] = 28 // Feb
monoar[2] = 31 // Mar
monoar[3] = 30 // Apr
monoar[4] = 31 // May
monoar[5] = 30 // Jun
monoar[6] = 31 // Jul
monoar[7] = 31 // Aug
monoar[8] = 30 // Sep
monoar[9] = 31 // Okt
monoar[10] = 30 // Nov
monoar[11] = 31 // Dec
monoar[12] = "January"
monoar[13] = "Februar"
monoar[14] = "Marts"
monoar[15] = "April"
monoar[16] = "Maj"
monoar[17] = "Juni"
monoar[18] = "Juli"
monoar[19] = "August"
monoar[20] = "September"
monoar[21] = "Oktober"
monoar[22] = "November"
monoar[23] = "December"

// --------------------------
function leapYear(year) {
// --------------------------
var leap = false
var y400 = year % 400
var y100 = year % 100
var y4 = year % 4

   if (y400 == 0)
    leap = true
   if (y4 == 0) 
      if ( y100 ^= 0 ) 
         leap = true 
return leap
} //end leapYear

// --------------------------
function getDays(month,year) {
// --------------------------
monoar[1] = (leapYear(year)) ? 29 : 28 // Feb
return monoar[month]
} //end getDays

// --------------------------
function drawCal(firstDay, month, year) {
// --------------------------
var border = 0
var cellspacing = 0
var dayColor = "RED"
var todayColor = "YELLOW"
var infoColor = "GREEN"

var aktColor = "#000000"
var dayPicBig = 'cal2col2.gif'
var txtCalType = 'G-cal info page'

var chomonth = 0 //12
var choweek = 0 //8
var mojump = month + 1

// generate HTML
var text = '<A NAME="M' + mojump + '"></A>' 

// top header MMYYYY
var monthName = monthar[month]
text += '<CENTER>'
text += '<TABLE BORDER=' + border + ' CELLSPACING=' + cellspacing + ' CELLPADDING=0>' 
text += '<TH COLSPAN=2>' 

var mowi = 2
text += '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>' 
text += '<TR><TD>' 
text += ''
text += '</TD></TR>' 
text += '</TABLE></TD>'

text += '</TH><TH COLSPAN=5>' 
text += '<FONT COLOR="GREEN" SIZE="7"><B>'
text += monthName + ' ' + year 
text += '</FONT></B>' 
text += '</TH><TH COLSPAN=1>' 
text += '<A HREF="cal.htm"><IMG SRC="caleye0.jpg" ALT="'
text += txtCalType
text += '" WIDTH=61 HEIGHT=50></A>'
text += '</TH>' 

// column header
var openCol = '<TD><FONT COLOR="BLUE" SIZE="4"><B>'
var closeCol = '</B></FONT></TD>'
var dayNo = 0
for (var i = 0; i < month; ++i) {
 dayNo += getDays(i,year)
}
text += '<TR ALIGN="center" VALIGN="center">'
text += openCol
text += '<IMG SRC="calwemon.jpg" WIDTH=16 HEIGHT=13 ALT="Moon">'
text += weekar[0 + choweek] + closeCol
text += openCol
text += '<IMG SRC="calwetue.jpg" WIDTH=16 HEIGHT=13 ALT="Mars">'
text += weekar[1 + choweek] + closeCol
text += openCol
text += '<IMG SRC="calwewed.jpg" WIDTH=16 HEIGHT=13 ALT="Mercury">'
text += weekar[2 + choweek] + closeCol
text += openCol
text += '<IMG SRC="calwethu.jpg" WIDTH=16 HEIGHT=13 ALT="Jupiter">'
text += weekar[3 + choweek] + closeCol
text += openCol
text += '<IMG SRC="calwefri.jpg" WIDTH=16 HEIGHT=13 ALT="Venus">'
text += weekar[4 + choweek] + closeCol
text += openCol
text += '<IMG SRC="calwesat.jpg" WIDTH=16 HEIGHT=13 ALT="Saturn">'
text += weekar[5 + choweek] + closeCol
text += openCol
text += '<IMG SRC="calwesun.jpg" WIDTH=16 HEIGHT=13 ALT="Sun">'
text += weekar[6 + choweek] + closeCol 
text += openCol
text += weekar[7 + choweek] + closeCol
text += '</TR>'

document.write(text) 
text = ""

// do the days
var aktday = 1
var curCell = 1
var weekBase = 0
var lastDay = getDays(month,year)
var aday = false   
for (var row = 1; row <= Math.ceil((lastDay + firstDay - 1) / 7); ++row) {
 text += '<TR>'
 for (var col = 1; col <= 8; ++col) {
  if (aktday > lastDay)
   aday = false
  if (curCell == firstDay)
   aday = true
  if (col == 8) {
   text += '<TD><CENTER><FONT COLOR=' + infoColor + ' SIZE="+5">'
   text += Math.ceil(weekBase / 7)
   text += '</FONT></CENTER></TD>'
   break 
  } 
  if (aday) {
   dayNo += 1  
   weekBase = dayNo + (7 - col)  
    dayPicBig = 'cal2col2.gif'
  if (aktday == nowdate & month == nowmonth & year == nowyear) {
// current cell represent today's date
   aktColor = todayColor
  } else {
    aktColor = dayColor
  }
   text += '<TD>'
   text += '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>' 
   text += '<TR><TD COLSPAN=4>' 
   text += '<CENTER><IMG SRC="calbodt1.gif" WIDTH=74 HEIGHT=3></CENTER>'
   text += '</TD></TR>' 
   text += '<TR><TD>' 
   text += '<IMG SRC="calbodl1.gif" WIDTH=3 HEIGHT=60>'
   text += '</TD><TD>' 
   text += '<A HREF="http://www.geocities.com/dates366/"><IMG SRC="' + dayPicBig + '" ALT="'
   text += 'Day ' + aktday
   text += '" WIDTH=40 HEIGHT=50 BORDER=0></A>'
   text += '</TD><TD>'
   text += '<FONT COLOR=' + aktColor + ' SIZE="+1">'
   text += aktday
   text += '</FONT><FONT COLOR=' + infoColor + ' SIZE="-1">'
   text += '<BR>' + dayNo + '<BR>'
   text += '<A HREF="http://www.ecben.net/calendar.shtml"><IMG SRC="cal2col2.gif" ALT="'
   text += 'Click here for info on today...(' + nowdate + '/' + nowmonth + '-' + nowyear + ')'
   text += '" WIDTH=15 HEIGHT=15 BORDER=0></A>'
   text += '</TD><TD ALIGN="RIGHT">' 
   text += '<IMG SRC="calbodl1.gif" WIDTH=3 HEIGHT=60>'
   text += '</TD></TR>' 
   text += '<TR><TD COLSPAN=4>' 
   text += '<CENTER><IMG SRC="calbodt1.gif" WIDTH=74 HEIGHT=3></CENTER>'
   text += '</TD></TR>' 
   text += '</FONT></TABLE></TD>'
   aktday++
  } else
   text += '<TD></TD>';
  curCell++
}   
 text += '</TR>'
 document.write(text) 
 text = ""
} //end drawCal
}

// --------------------------
function setCal(year, month) {
// --------------------------
var firstDayInstance = new Date(year, month, 1)
var firstDay = firstDayInstance.getDay()
firstDayInstance = null

if (firstDay == 0)
{
 firstDay = 7
}

if (year > 99)
   {
    firstDay += 0
   } else
    firstDay -= 1
//debug += '/'+year
//debug += '/'+month	
//debug += '/'+firstDay
drawCal(firstDay, month, year) 
} //end setCal

// --------------------------
//start GCal
// --------------------------

document.close();
document.open();
document.write('<HTML><head><title>G-cal - The Calendar Page/Inter-galactical Preview</title><META NAME="ROBOTS" CONTENT="NOINDEX, NOFOLLOW"></head><BODY BGCOLOR="#000000" TEXT=red LINK=black VLINK=black ALINK=black>');

//debug += now

var endmo = noOfMonth
var mo = numsmo

for (var moc = 0; moc < endmo; ++moc) {
if (mo  == 12){
 mo = 0
 year = year + 1
}
setCal(year, mo)
mo = mo + 1
}

//setCal(year, month)

text += '</TABLE>'
text += '</CENTER>'

// write the HTML
document.write(text) 

//debug += '</FONT>' 
//document.write(debug) 

document.write('<CENTER><BR><BR><BR><IMG SRC="caleye0.jpg" WIDTH=61 HEIGHT=50></CENTER></BODY></HTML>');

document.close();

} //end GCal

// -->
