function TypeFooter()
Dim text
text = text & "<DIV align='center'><SPAN class='Zapati'>" & vbcrlf
text = text & vbtab & "Datum poslední úpravy: " & vbcrlf
text = text & vbtab & "<B>" & Day(document.lastModified) & "." & Month(document.lastModified) & "." & Year(document.lastModified) & "</B>" & vbcrlf
text = text & vbtab & "&nbsp;&nbsp;&nbsp;Jestliže se Vám něco nezdá napište nám <A class=Mail href='mailto:kvtrakovnik@quick.cz'>zde </A></SPAN>" & vbcrlf
text = text & "</DIV>" & vbcrlf
TypeFooter = text
end function


function NearAcction()
dim Text
        
	text = ""
if date()< cdate("01.01.2009") then text = "31.12.2004 - Vodácký Silvestr"
if date()> cdate("01.01.2009") and date() < cdate("09.01.2009") then text = "09.01.2009 - Výcvik v bazénu"
if date()> cdate("09.01.2009") and date() < cdate("23.01.2009") then text = "23.01.2009 - Výcvik v bazénu"
if date()> cdate("23.01.2009") and date() < cdate("22.02.2009") then text = "22.02.2009 - Výcvik v bazénu"
if date()> cdate("22.02.2009") and date() < cdate("22.03.2009") then text = "22.03.2009 - Výcvik v bazénu"
if date()> cdate("22.03.2009") and date() < cdate("25.04.2009") then text = "25.04.2009 - ČPV PC Otava"
if date()> cdate("25.04.2009") and date() < cdate("23.05.2009") then text = "23.05.2009 - ČPV PC Sázava"
if date()> cdate("23.05.2009") and date() < cdate("14.06.2009") then text = "14.06.2009 - ČPV PC Svratka + Jihlava"
if date()> cdate("14.06.2009") and date() < cdate("20.06.2009") then text = "20.06.2009 - ČPV PC Blanice"
if date()> cdate("20.06.2009") and date() < cdate("11.07.2009") then text = "11.07.2009 - Báglovka putování Bílina + Ploučnice"
if date()> cdate("11.07.2009") and date() < cdate("21.08.2009") then text = "21.08.2009 - Splutí Berounky"
if date()> cdate("21.08.2009") and date() < cdate("05.09.2009") then text = "05.09.2009 - ČPV PC Úhlava, splutí Klabavy"
if date()> cdate("05.09.2009") and date() < cdate("12.09.2009") then text = "12.09.2009 - ČPV PC Teplá, Střela"
if date()> cdate("12.09.2009") and date() < cdate("18.09.2009") then text = "18.09.2009 - ČPV PC Hamerský potok"
if date()> cdate("18.09.2009") and date() < cdate("11.10.2009") then text = "11.10.2009 - VTJZ Vavřinecký potok"
if date()> cdate("11.10.2009") and date() < cdate("25.12.2009") then text = "25.12.2009 - Vánoční Berounka"
if date()> cdate("25.12.2009") and date() < cdate("31.12.2009") then text = "31.12.2009 - Vodácký silvestr"

	NearAcction = text       
end function