// Clocks: written by Marc Fluks. Version 03/01/2006
//
   var now        = new Date()
// Find day of the week for March 25 and October 25.
   var julianmar  = Math.round((30.6*4)-0.5)+Math.round((365.25*now.getUTCFullYear())-0.5)+25+1720981.5
   var julianoct  = Math.round((30.6*11)-0.5)+Math.round((365.25*now.getUTCFullYear())-0.5)+25+1720981.5
   var daymar     = (julianmar+1.5)/7
   var dayoct     = (julianoct+1.5)/7
   var daymar     = Math.round(7*(daymar-Math.round(daymar-.5)))
   var dayoct     = Math.round(7*(dayoct-Math.round(dayoct-.5)))
// Find the last Sunday in March and October.
   var array      = [25,31,30,29,28,27,26,25]
   var daymar     = array[daymar]
   var dayoct     = array[dayoct]
// Find Julian Day for last Sunday in March and October at 1:00 UTC.
   var julianmar  = Math.round((30.6*4)-0.5)+Math.round((365.25*now.getUTCFullYear())-0.5)+daymar+1720981.5
   var julianmar  = julianmar+1.00/24
   var julianoct  = Math.round((30.6*11)-0.5)+Math.round((365.25*now.getUTCFullYear())-0.5)+dayoct+1720981.5
   var julianoct  = julianoct+1.00/24
// Find CET Timezone (values -2 for DST and -1 for standard time).
   var julian     = Math.round(30.6*((now.getUTCMonth()+1)+(((now.getUTCMonth()+1)<3)?13:1))-0.5)+Math.round(365.25*(now.getUTCFullYear()+(((now.getUTCMonth()+1)<3)?-1:0))-0.5)+now.getUTCDate()+1720981.5
   var julian     = julian+(now.getUTCHours()+now.getUTCMinutes()/60+now.getUTCSeconds()/3600)/24
   var CETTimezone = (julian-julianmar)*(julian-julianoct)
   var CETTimezone = -1.5+.5*(CETTimezone/Math.sqrt(CETTimezone*CETTimezone))
// Find CETDay.
   var CETDay     = (now.getUTCHours()+now.getUTCMinutes()/60+now.getUTCSeconds()/3600-CETTimezone)/24
   var CETDay     = Math.round(CETDay-0.5)
   var CETDay     = 7+now.getUTCDay()+CETDay
// Redefine Days from 0 to 6.
   var array      = [0,1,2,3,4,5,6,0,1,2,3,4,5,6,0]
   var CETDay     = array[CETDay]
// Find shiftday: is localday later/earlier than CETDay ?
   var shiftday   = 7+(now.getDay()-CETDay)
   var array      = [0,1,0,0,0,0,-1,0,1,0,0,0,0,-1]
   var shiftday   = array[shiftday]
// How many days are present in the local month ?
   var array      = [1,0,0,0]
   var shiftyear  = array[Math.round(4*((now.getFullYear()/4)-Math.round((now.getFullYear()/4)-.5)))]
   var array      = [31,28,31,30,31,30,31,31,30,31,30,31]
   var shiftyear  = shiftyear*((30-array[now.getMonth()])*(31-array[now.getMonth()])/6)
   var daysinmonth = array[now.getMonth()]+shiftyear
// Find shiftweek: is localweek later/earlier than CETWeek ?
   var month28    = [0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,0,0,0]
   var month29    = [0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0]
   var month30    = [0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0]
   var month31    = [0,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,0,0,0,0,1,1,0,1]
   var shiftweek28 = (month28[now.getDate()])*((29-daysinmonth)*(30-daysinmonth)*(31-daysinmonth)/6)
   var shiftweek29 = (month29[now.getDate()])*((daysinmonth-28)*(30-daysinmonth)*(31-daysinmonth)/2)
   var shiftweek30 = (month30[now.getDate()])*((daysinmonth-28)*(daysinmonth-29)*(31-daysinmonth)/2)
   var shiftweek31 = (month31[now.getDate()])*((daysinmonth-28)*(daysinmonth-29)*(daysinmonth-30)/6)
   var shiftweek  = shiftday*(shiftweek28+shiftweek29+shiftweek30+shiftweek31)
// Find CETWeek and CETYear.
   var array      = [0,1,1,1,1,1,1,1,2,2,2,2,2,2,2,3,3,3,3,3,3,3,4,4,4,4,4,4,4,5,5,5]
   var CETWeek    = (array[now.getDate()]+5*(now.getMonth()))-shiftweek
   var array      = [60,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,1]
   var shiftyear  = (array[CETWeek]-CETWeek)/60
   var CETWeek    = array[CETWeek]
   var firstdate  = CETWeek
   var CETWeek    = ((CETWeek<10)?"0":"")+CETWeek
   var CETYear    = now.getFullYear()-shiftyear
// Find CETMonth (0=january, 11=december).
   var CETMonth = Math.round(((CETWeek-1)/5)-.5)
   var array      = ['January','February','March','April','May','June','July','August','September','October','November','December']
   var months     = array[CETMonth]
// Find CETLeapYear: is CETYear a leap year ? (0=no, 1=yes)
   var array      = [1,0,0,0]
   var CETLeapYear = array[Math.round(4*((now.getFullYear()/4)-Math.round((now.getFullYear()/4)-.5)))]
// Find first date of CET week.
   var array      = [0,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29,1,8,15,22,29]
   var firstdate  = array[firstdate]
// Find first day of CET week.
   var firstday   = Math.round(30.6*((CETMonth+1)+(((CETMonth+1)<3)?13:1))-0.5)+Math.round(365.25*(CETYear+(((CETMonth+1)<3)?-1:0))-0.5)+firstdate+1720981.5
   var firstday   = (firstday+1.5)/7
   var firstday   = Math.round(7*(firstday-Math.round(firstday-.5)))
// Find shiftdate: how many days is CETDay later than first day of CET week ?
   var shiftdate  = 7+CETDay-firstday
   var array      = [0,1,2,3,4,5,6,0,1,2,3,4,5,6]    
   var shiftdate  = array[shiftdate]
// Find CET date.
   var CETDate    = firstdate+shiftdate
   var CETDate    = ((CETDate<10)?"0":"")+CETDate
// Find CET time.
   var array      = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,0,1,2]
   var CETHours   = 24+now.getUTCHours()-CETTimezone
   var CETHours   = array[CETHours]
   var CETMinutes = now.getUTCMinutes()
   var CETSeconds = now.getUTCSeconds()
   var CETTime    = ((CETHours<10)?"0":"")+CETHours+((CETMinutes<10)?":0":":")+CETMinutes+((CETSeconds<10)?":0":":")+CETSeconds
// Reload page at 00:00:00 CETTime.
   var reload = 24*3600-(3600*CETHours+60*CETMinutes+CETSeconds)
   document.write("<header>")
   document.write("<META HTTP-EQUIV=Refresh CONTENT="+reload+" URL="+document.location.href+">")
   document.write("</header>")
// The html.
   document.write("<br><a name=archives></a><center><table bgcolor=#BDCDEF border=0><tr><td width=150 valign=center>")
   document.write("<img src=http://www.me-net.combidom.com/graphics/helsetsir.gif alt=[logo] align=left border=0 width=150 hspace=25></td>")
   document.write("<td valign=center bgcolor=#3366CC><table border=0><tr>")
   document.write("<td valign=center bgcolor=#3366CC><center><font size=6 color=white>")
   document.write("&nbsp;&nbsp;&nbsp;<b>ME-NET&nbsp;&nbsp;&nbsp;<hr>&nbsp;&nbsp;&nbsp;List</b>&nbsp;&nbsp;&nbsp;</font>")
   document.write("<br><br><b style='color:white;font-size:12px;font-weight:bold;background-color:#ff6600'>&nbsp;&nbsp;email=public@combidom.com<br>password=public&nbsp;</b></center>")
   document.write("</td><td>")
   document.write("<table border=0 bgcolor=#3366CC link=white vlink=white>")
   // Archives.
   var colour    = ['#BDCDEF','white','white','white','white','white','white']
   var year      = CETYear-100*Math.round((CETYear/100)-.5)
   var year      = ((year<10)?"0":"")+year
   var month     = CETMonth+1
   var month     = ((month<10)?"0":"")+month
   var archive   = "http://list/ecompass.nl/cgi-bin/wa?A1=ind"+year+month+"&L=me-net&O=D&H=1&D=0&T=1"
   document.write("<tr><td colspan=2 width=150 align=left >")
   document.write("<table width=100% border=1><tr><td bgcolor=#3366CC width=49%>")
   // Today.
   document.write("<a href=http://www.me-net.combidom.com/melist/day.htm?day=today target=_content style='text-decoration:none'><font size=2 color=white><b>Today</b></font></a>")
   document.write("</td><td bgcolor=#3366CC>")
   // Yesterday.
   document.write("<a href=http://www.me-net.combidom.com/melist/day.htm?day=yesterday  target=_content style='text-decoration:none'><font size=2 color=white><b>Yesterday</b></font></a>")
   document.write("</td></tr><tr><td>")
   // Sunday.
   var array     = [0,1,2,3,4,5,6]
   var back      = array[CETDay]
   var archive   = "http://www.me-net.combidom.com/melist/day.htm?day=sunday"
   document.write("<a href="+archive+" target=_content style='text-decoration:none'><font size=2 color="+colour[back]+"><b>Sunday</b></font></a>")
   document.write("</td><td>")
   // Monday.
   var array     = [6,0,1,2,3,4,5]
   var back      = array[CETDay]
   var archive   = "http://www.me-net.combidom.com/melist/day.htm?day=monday"
   document.write("<a href="+archive+" target=_content style='text-decoration:none'><font size=2 color="+colour[back]+"><b>Monday</b></font></a>")
   document.write("</td></tr><tr><td>")
   // Tuesday.
   var array     = [5,6,0,1,2,3,4]
   var back      = array[CETDay]
   var archive   = "http://www.me-net.combidom.com/melist/day.htm?day=tuesday"
   document.write("<a href="+archive+" target=_content style='text-decoration:none'><font size=2 color="+colour[back]+"><b>Tuesday</b></font></a>")
   document.write("</td><td>")
   // Wednesday.
   var array     = [4,5,6,0,1,2,3]
   var back      = array[CETDay]
   var archive   = "http://www.me-net.combidom.com/melist/day.htm?day=wednesday"
   document.write("<a href="+archive+" target=_content style='text-decoration:none'><font size=2 color="+colour[back]+"><b>Wednesday</b></font></a>")
   document.write("</td></tr><tr><td>")
   // Thursday.
   var array     = [3,4,5,6,0,1,2]
   var back      = array[CETDay]
   var archive   = "http://www.me-net.combidom.com/melist/day.htm?day=thursday"
   document.write("<a href="+archive+" target=_content style='text-decoration:none'><font size=2 color="+colour[back]+"><b>Thursday</b></font></a>")
   document.write("</td><td>")
   // Friday.
   var array     = [2,3,4,5,6,0,1]
   var back      = array[CETDay]
   var archive   = "http://www.me-net.combidom.com/melist/day.htm?day=friday"
   document.write("<a href="+archive+" target=_content style='text-decoration:none'><font size=2 color="+colour[back]+"><b>Friday</b></font></a>")
   document.write("</td></tr><tr><td>")
   // Saturday.
   var array     = [1,2,3,4,5,6,0]
   var back      = array[CETDay]
   var archive   = "http://www.me-net.combidom.com/melist/day.htm?day=saturday"
   document.write("<a href="+archive+" target=_content style='text-decoration:none'><font size=2 color="+colour[back]+"><b>Saturday</b></font></a>")
   // Week.
   document.write("</td><td bgcolor=#3366CC>")
   document.write("<a href=http://list.ecompass.nl/cgi-bin/wa?S2=me-net&X=-1&I=1&a=today-6&b=today&q=From  target=_content style='text-decoration:none'><font size=2 color=white><b>Week</b></font></a>")
   // End table past week.
   document.write("</td></tr></table>")
   document.write("</td></tr>")
   // RSS/XML/HOME.
   document.write("<tr><td colspan=2 align=center width=150><a href=http://list.ecompass.nl/cgi-bin/wa?RSS&L=me-net&v=1.0 style='text-decoration:none' target=_content><b style='color:white;font-size:10px;font-weight:bold;background-color:#ff6600'>&nbsp;&nbsp;RSS&nbsp;&nbsp;</b></a>&nbsp;<a href=http://list.ecompass.nl/cgi-bin/wa?RSS&L=me-net&v=ATOM1.0 style='text-decoration:none' target=_content><b style='color:white;font-size:10px;font-weight:bold;background-color:#ff6600'>&nbsp;XML&nbsp;</b></a>&nbsp;<a href=http://www.lsoft.com/scripts/WL.EXE?SL1=me-net&H=LIST.ECOMPASS.NL style='text-decoration:none' target=_content><b style='color:white;font-size:10px;font-weight:bold;background-color:#ff6600'>&nbsp;HOME&nbsp;</b></a></td></tr>")
   // Search past week.
   document.write("<tr><td colspan=2 align=center width=150><font size=2 color=white><b>Search Past Week's List</b></font></td></tr>")
   document.write("<tr><td width=150 colspan=2 align=left valign=center>")
   document.write("<FORM action=http://list.ecompass.nl/cgi-bin/wa TARGET=_content>")
   document.write("<INPUT TYPE=HIDDEN NAME=S2 VALUE=me-net>")
   document.write("<INPUT TYPE=HIDDEN NAME=X  VALUE=->")
   document.write("<INPUT TYPE=HIDDEN NAME=a  VALUE=today-6>")
   document.write("<INPUT TYPE=HIDDEN NAME=b  VALUE=today>")
   document.write("<INPUT TYPE=HIDDEN NAME=I  VALUE=1>")
   document.write("<INPUT TYPE=TEXT   NAME=q style=width:100%;background-color:#BDCDEF;font-weight:bold;font-size:15px;color:#3366CC;border:0 VALUE=''>")
   document.write("</FORM>")
   document.write("</td></tr></table>")
   document.write("</td></tr></table></td></tr></table></center><br>")
   document.write("<center><table border=0><tr><td>")
   document.write("<a href=http://www.me-net.combidom.com><font style='font:12 px Arial, Helvetica, sans-serif; color:#3366CC; font-weight:bold;'>Home page</font></a>")
   document.write("</td><td><font size=2 color=#3366CC><b>-</b></font></td><td>")
   document.write("<a href=http://www.me-net.combidom.com/dutch/><font style='font:12 px Arial, Helvetica, sans-serif; color:#3366CC; font-weight:bold;'>Dutch</font></a>")
   document.write("</td><td><font size=2 color=#3366CC><b>-</b></font></td><td>")
   document.write("<a href=http://www.me-net.combidom.com/library/><font style='font:12 px Arial, Helvetica, sans-serif; color:#3366CC; font-weight:bold;'>Library</font></a>")
   document.write("</td><td><font size=2 color=#3366CC><b>-</b></font></td><td>")
   document.write("<a href=http://www.me-net.combidom.com/melist/><font style='font:12 px Arial, Helvetica, sans-serif; color:#3366CC; font-weight:bold;'>List</font></a>")
   document.write("</td><td><font size=2 color=#3366CC<b>-</b></font></td><td>")
   document.write("<a href=http://www.me-net.combidom.com/quack/><font style='font:12 px Arial, Helvetica, sans-serif; color:#3366CC; font-weight:bold;'>Quackery</font></a>")
   document.write("</td><td><font size=2 color=#3366CC<b>-</b></font></td><td>")
   document.write("<a href=http://www.me-net.combidom.com/cemsep/><font style='font:12 px Arial, Helvetica, sans-serif; color:#3366CC; font-weight:bold;'>Search</font></a>")
   document.write("</td><td><font size=2 color=#3366CC><b>-</b></font></td><td>")
   document.write("<a href=http://www.me-net.combidom.com/meweb/><font style='font:12 px Arial, Helvetica, sans-serif; color:#3366CC; font-weight:bold;'>WebSites</font></a>")
   document.write("</td><td><font size=2 color=#3366CC><b>-</b></font></td><td>")
   document.write("<a href=http://www.me-net.combidom.com/webtv/><font style='font:12 px Arial, Helvetica, sans-serif; color:#3366CC; font-weight:bold;'>WebTV</font></a>")
   document.write("</td></tr></table</center>")