dim hetnapjai
hetnapjai = array("", "V","H","K","Sze","Cs","P","Szo")
dim honapok
honapok = array("", "Január","Február","Március","Április","Május","Június","Július","Augusztus","Szeptember","Október","November","December")
dim datum
datum = split(date(), ".")
dim ev, honap, nap
ev=datum(0)
if (datum(1)<"10") then
   honap=CInt(right(datum(1), 1))
else
   honap=datum(1)
end if
if (datum(2)<"10") then
   nap=right(datum(2), 1)
else
   nap=datum(2)
end if
dim melyiknap, elsejemelyiknap
melyiknap = weekDay(Date())
elsejemelyiknap=weekDay(dateSerial(ev, honap, 1))
dim NAPOKAHETEN
NAPOKAHETEN = 7
NAPOKAHONAPBAN = 31
dim szoveg
szoveg = "<CENTER><TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 BORDERCOLOR=""#BBBBBB""><TR><TD><CENTER>"
szoveg = szoveg + "<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2><TR>"
szoveg = szoveg + "<TD COLSPAN="""  & NAPOKAHETEN & """ BGCOLOR=""#00B000""><CENTER><B>"
szoveg = szoveg + ev  + ".   " + honapok(honap) + "</B></Center></TD></TR>"
szoveg = szoveg + "<TR>"
dim i
for i=1 to NAPOKAHETEN
if (melyiknap=i) then
szoveg=szoveg+"<TD WIDTH=""30""><CENTER><B>" + hetnapjai(i) + "</B></CENTER></TD>"
else
szoveg=szoveg+"<TD WIDTH=""30""><CENTER>"+ hetnapjai(i) + "</CENTER></TD>"
end if
next
szoveg=szoveg+"</CENTER></TD></TR>"
szoveg =szoveg +"<TR>"
for i = 1 to elsejemelyiknap-1
j = j + 1
szoveg = szoveg + "<TD WIDTH=""30""><CENTER> </CENTER></TD>"
next
for i = 1 to nap-1
j = j + 1
szoveg = szoveg + "<TD WIDTH=""30""><CENTER>"&i&"</CENTER></TD>"
if (j-CInt(j/7)*7=-0) then szoveg = szoveg + "<TR></TR>"
next
j = j + 1
szoveg = szoveg + "<TD WIDTH=""30"" BGCOLOR=""#00B000""><CENTER><B>"&nap&"</B></CENTER></TD>"
if (j-CInt(j/7)*7=0) then szoveg = szoveg + "<TR></TR>"
for i = nap+1 to NAPOKAHONAPBAN
j = j + 1
szoveg = szoveg + "<TD WIDTH=""30""><CENTER>"&i&"</CENTER></TD>"
if (j-CInt(j/7)*7=0) then szoveg = szoveg + "<TR></TR>"
next
szoveg =szoveg +"</CENTER></TD></TR></TABLE></TABLE></CENTER>"
naptar.innerHTML=szoveg