<!--
////////////////////////////////////////////////////////////////////////////////
//
//  THIS CODE IS NOT APPROVED FOR USE IN/ON ANY OTHER UI ELEMENT OR PRODUCT COMPONENT.
//  Copyright (c) 2009 Microsoft Corporation.  All rights reserved.
//
////////////////////////////////////////////////////////////////////////////////
-->

<html>
<head>
    <title>Календарь</title>
    <meta http-equiv="MSThemeCompatible" content="yes">
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
    <link href="css/calendar.css" rel="stylesheet" type="text/css" />
	<script src="js/settings.js" type="text/javascript" language="javascript"></script>
	<script src="js/calendar.js" type="text/javascript" language="javascript"></script>
	<body dir="ltr" scroll="no" id="ltr" style="background:no-repeat url(images/1_1.png);" >

<!--<g:background id="imgBackground" src="images/1_1.png">-->

<div id="t1" style="width:100%;" >
            <table id="m1" class="tableFont" height="110px" width="100%" cellpadding="0" cellspacing="0" border="0px solid red" >
            
			 <tr> <td id='x1' class='x1' style="cursor:pointer;font-style:italic" onclick="GetCurrentDay()" >&nbsp</td></tr>
			 <tr><td id='x2' class='x2' onclick="setActiveDay()" style="cursor:pointer">&nbsp</td></tr>
			 <tr><td id='x3' class='x3' onclick="setActiveMonth()" style="cursor:pointer;font-style:italic">&nbsp</td></tr>
			 
            </table>



            <table id="m2" class="tableFont" height="43dpx" width="100%" cellpadding="0" cellspacing="0" border="0px solid red" >
              <tr>
			  <td id="z21" class="z21"> <img id="img21" src='../images/prev.png' tabindex=1 onmouseover="src='images/bPrev-hot.png'; clearInterval(g_timer999999);" onmouseout="src='images/prev.png';stopTimer();newDay();"  onmousedown="evalX(-1,document.getElementById('xval').innerHTML)" onmouseup="stopTimer();" style="cursor:pointer"></a></td>
			  <td id="z22" class="z22" onclick="setActiveYear()"><div id="xval" class="xCenter" style="cursor:pointer;"></div></td>
			  <td id="z23" class="z23"><img id="img21" src='../images/next.png' tabindex=1 onmouseover=src='images/bnext-hot.png' onmouseout="src='images/next.png';stopTimer();" onmousedown="evalX(1,document.getElementById('xval').innerHTML)" style="cursor:pointer" onmouseup="stopTimer();"></td>
			  </tr>
            </table>




             <table id="m3" class="tableFont" height="100px" width="100%" cellpadding="0" cellspacing="0" border="0px solid red" >
            
			 <tr> <td id='x4' class='x4' onclick="GetCurrentDay()"  style="cursor:pointer;font-style:italic">&nbsp</td></tr>
			 <tr><td id='x5' class='x5' onclick="setActiveDay()"  style="cursor:pointer">&nbsp</td></tr>
			 <tr><td id='x6' class='x6' onclick="setActiveMonth()"  style="cursor:pointer;font-style:italic">&nbsp</td></tr>
			 
            </table>
			
			 <table id="m4" class="tableFont" height="60px" width="100%" cellpadding="0" cellspacing="0" border="0px"> 
			  <tr><td height="0px"></td></tr>
            <tr><td id='x7' class='x7'   style="cursor:pointer;"><div style="text-align:center;width:130px;left:0px;top:7px;font-style:italic"><g:background id="gadgetContent" style="font-family: Arial; font-size: 27px;  width:100%;padding-top:5px;padding-left:4px;height:40px" src="images/bg_red.png"></div></td></tr>
			 <tr><td >&nbsp;</td></tr>
            </table>
		
  </div>


</body>
<script language="VBscript">
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Get First Day of Week where 1 is Sunday, 2 is Monday, etc.e
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function vbsFirstDayOfWeek()
    Dim MyDate
    MyDate = DateSerial(2002, 9, 1) ' A Sunday
    vbsFirstDayOfWeek = (9 - WeekDay(MyDate, 0))
    if vbsFirstDayOfWeek = 8 then vbsFirstDayOfWeek = 1
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Get Day Of Week
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function vbsDayOfWeek()
    vbsDayOfWeek = WeekDay(Date,0)-1
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Get Month Short Name
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function vbsMonthNameShort(i, tf)
    vbsMonthNameShort = MonthName(i,tf)
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Get Month Long Name
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function vbsMonthNameLong(i)
    vbsMonthNameLong = MonthName(i)
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Get Day of Week Short Name
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''    
Function vbsWeekDayNameShort(i, tf)
    vbsWeekDayNameShort = WeekDayName(i,tf)
End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' Get Day of Week Long Name
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function vbsWeekDayNameLong(i)
    vbsWeekDayNameLong = WeekDayName(i)
End Function
    
	
	Function vGetMonthName(i,lng,n)
if (n=1) then
	if (lng=1) then
if (i=1) then vGetMonthName="АДАМ"
if (i=2) then vGetMonthName="Е В А"
if (i=3) then vGetMonthName="БУДДА"
if (i=4) then vGetMonthName="АВРААМ"
if (i=5) then vGetMonthName="МОИСЕЙ"
if (i=6) then vGetMonthName="ИНДУ"
if (i=7) then vGetMonthName="ИИСУС"
if (i=8) then vGetMonthName="АБДАЛЛА"
if (i=9) then vGetMonthName="СОКРАТ"
if (i=10) then vGetMonthName="КОНФУЦИЙ"
if (i=11) then vGetMonthName="БАХАУЛЛА"
if (i=12) then vGetMonthName="ЗОРОАСТР"

elseif (lng=0)  then

if (i=1) then vGetMonthName="ADAM"
if (i=2) then vGetMonthName="E V E"
if (i=3) then vGetMonthName="BUDDHA"
if (i=4) then vGetMonthName="ABRAHAM"
if (i=5) then vGetMonthName="MOSES"
if (i=6) then vGetMonthName="HINDU"
if (i=7) then vGetMonthName="JESUS"
if (i=8) then vGetMonthName="ABDALLAH"
if (i=9) then vGetMonthName="SOCRATES"
if (i=10) then vGetMonthName="CONFUCIUS"
if (i=11) then vGetMonthName="BAHAULLAH"
if (i=12) then vGetMonthName="ZOROASTER"

end if
else
if (lng=1) then
if (i=1) then vGetMonthName="ЯНВАРЬ"
if (i=2) then vGetMonthName="ФЕВРАЛЬ"
if (i=3) then vGetMonthName="МАРТ"
if (i=4) then vGetMonthName="АПРЕЛЬ"
if (i=5) then vGetMonthName="М А Й"
if (i=6) then vGetMonthName="ИЮНЬ"
if (i=7) then vGetMonthName="ИЮЛЬ"
if (i=8) then vGetMonthName="АВГУСТ"
if (i=9) then vGetMonthName="СЕНТЯБРЬ"
if (i=10) then vGetMonthName="ОКТЯБРЬ"
if (i=11) then vGetMonthName="НОЯБРЬ"
if (i=12) then vGetMonthName="ДЕКАБРЬ"

elseif (lng=0)  then

if (i=1) then vGetMonthName="JANUARY"
if (i=2) then vGetMonthName="FEBRUARY"
if (i=3) then vGetMonthName="MARCH"
if (i=4) then vGetMonthName="APRIL"
if (i=5) then vGetMonthName="M A Y"
if (i=6) then vGetMonthName="JUNE"
if (i=7) then vGetMonthName="JULY"
if (i=8) then vGetMonthName="AUGUST"
if (i=9) then vGetMonthName="SEPTEMBER"
if (i=10) then vGetMonthName="OCTOBER"
if (i=11) then vGetMonthName="NOVEMBER"
if (i=12) then vGetMonthName="DECEMBER"

end if

end if

   
End Function
	
	
	
	
</Script>
    

	
	



<script>loadX();</script>
</html>