function getCurrentMonth()
	Dim someMonths(11)
	someMonths(0) = "january"
	someMonths(1) = "february"
	someMonths(2) = "march"
	someMonths(3) = "april"
	someMonths(4) = "may"
	someMonths(5) = "june"
	someMonths(6) = "july"
	someMonths(7) = "august"
	someMonths(8) = "september"
	someMonths(9) = "october"
	someMonths(10) = "november"
	someMonths(11) = "december"
	SetLocale("en-gb")	
	myDate=Date()
	myMonthidx = Month(myDate) - 1
	myYear = Year(myDate)
	myDest = "calendar/" & someMonths(myMonthidx) & myYear & ".htm"
	parent.main.location.href = myDest
end function


function checkUser(newLink)
	Set WSHNetwork = CreateObject("WScript.Network")
	strUserName = WSHNetwork.UserName
	if strUserName = "5118409" _
	or strUsername = "4725476" _
	or strUsername = "4229371" _
	or strUsername = "5143578" _
	or strUsername = "4564014" then
		newLink = "itn0" & newLink & ".htm"
		parent.main.location.href=newLink
	else
		msgbox "Bugger off...!"
	end if
end function