ÿþfunction XML_DB_GET_DATA()	
		window.TBL.innerHTML = ""
		window.LNK.innerHTML = ""
		Dim DAYS,WEEKS,WEEKRS,MONTHS,MONTHRS,LPMDATE,i,j,BODYSTR,xmlDoc,BDay,objNodeList
		dim WeekDArr,LinksArr,LinksStr,a,b,c,d,e,f,g
    	if window.radio1.status = true then
    		if  window.LMPyear.selectedIndex = 0 or window.LMPmonth.selectedIndex = 0 or window.LMPday.selectedIndex = 0 then
    			alert("...êÑ×èÕ êÐèÙÚ ÑÑçéÔ")
    			exit function
    		end if
    	
    		LPMDATE = DateSerial(window.LMPyear.options(window.LMPyear.selectedIndex).text,window.LMPmonth.options(window.LMPmonth.selectedIndex).text,window.LMPday.options(window.LMPday.selectedIndex).text) 
			if DateDiff("d",Now(),LPMDATE) > 0 then
				alert("...ÐÙß ÞÙÓâ ÐÕÓÕê êçÕäê ÔÔèÙÕß ÔàÕÛ×Ùê")
				exit function
			end if
		
			DAYS = abs( DateDiff("d",Now(),LPMDATE)) + 1 
			WEEKS = DAYS \ 7
			WEEKRS = DAYS Mod 7
			MONTHS = WEEKS \ 4
			MONTHRS = WEEKS Mod 4
			if WEEKS > 44 then 
				alert("...ÐÙß ÞÙÓâ ÐÕÓÕê êçÕäê ÔÔèÙÕß ÔàÕÛ×Ùê")
				exit function
			end if 
			
			BODYSTR = ""
			BDay = CDate(LPMDATE) + 7 - 90 - 2 + 365
			LinksArr = Array(86,97,98,99,100,101,102,103,104,104,104,104,104,104)
			LinksStr = "" & "ÜÞÙÓâ àÕáã âÜ êçÕäê ÔÔèÙÕß ÔàÕÛ×Ùê àÙêß ÜÜ×Õå" _
				  & "<a href=http://www.obgyn-wolfson.org.il/Content/Articles/WolfsonArticles.asp?Article=" & LinksArr(MONTHS) & "> ÛÐß </a>"
			a = "èÐéÕß"
			b = "éàÙ"
			c = "éÜÙéÙ"
			d = "èÑÙâÙ"
			e = "×ÞÙéÙ"
			f = "éÙéÙ"
			g = "éÑê"
			WeekDArr  = Array(0,a,b,c,d,e,f,g)
			BODYSTR =  "<p>    ÒÙÜ ÔèÙÕß ÑéÑÕâÕê -  " & WEEKS & " éÑÕâÕê ÕâÕÓ " & WEEKRS & " ÙÞÙÝ</p>" _
				 & "<p>    ÒÙÜ ÔèÙÕß Ñ×ÕÓéÙÝ -   " & MONTHS & " ×ÕÓéÙÝ ÕâÕÓ " & MONTHRS & " éÑÕâÕê</p>" _
				 & "<h3>   ÜÙÓÔ ÑÞÕâÓ ×ÜÔ ÑÙß éÑÕâ 38 ÜéÑÕâ 42  </h3>" _
				 & "<p> éÑÕâ 38 :  " & day(Bday - 14) & "/" & month(Bday - 14) & "/" & year(Bday - 14) & "</p>" _
				 & "<p> éÑÕâ 40 :  " & day(Bday) & "/" & month(Bday) & "/" & year(Bday) & " ÙÕÝ "& WeekDArr(Weekday(BDay,1)) &"</p>" _
				 & "<p> éÑÕâ 42 :  " & day(Bday + 14) & "/" & month(Bday + 14) & "/" & year(Bday + 14) & "</p>" 
			j = 0
	end if
	if window.radio2.status = true then
		if  window.LMPweek.selectedIndex = 0 then
    			alert("...êÑ×èÕ éÑÕâ ÑÑçéÔ")
    			exit function
    	end if
    	
    	WEEKS = (window.LMPweek.options(window.LMPweek.selectedIndex).value)
	end if		
	
	set xmlDoc  = CreateObject("Microsoft.XMLDOM") 
	xmlDoc.async = false
	xmlDoc.resolveExternals = false
	xmlDoc.load("DB.xml")
	set objNodeList = xmlDoc.getElementsByTagName("Row")
	
	    	for i = 0  to objNodeList.length - 1
				if Cint(objNodeList.item(i).childNodes.item(0).text) = Cint(WEEKS) then
				
					BODYSTR = BODYSTR & "<p> ÞéçÜ âÕÑèÙ ÞÞÕæâ ÑÒèÞÙÝ ÜäÙ ÒÙÜ ÔèÙÕß àÕÛ×Ù:"
					for j = 0 to objNodeList.item(i).childNodes.length - 1
						if objNodeList.item(i).childNodes.item(j).nodeName = "NORMAL_RANGE_GR" then
							BODYSTR = BODYSTR & " " & objNodeList.item(i).childNodes.item(j).text & ""
						end if
					next
					BODYSTR = BODYSTR  & " , ØÕÕ×  " & " ("
					for j = 0 to objNodeList.item(i).childNodes.length - 1
						if objNodeList.item(i).childNodes.item(j).nodeName = "WEIGHT_GR" then
							BODYSTR = BODYSTR & "" & objNodeList.item(i).childNodes.item(j).text & ")</p>"
						end if
					next
					BODYSTR = BODYSTR & "<h3>ÑÓÙçÕê ÞÕÞÜæÕê éàÙêß ÜÑæâ ÑêçÕäÔ ÖÕ:</h3>"
				
					BODYSTR = BODYSTR & "<p>ÑÓÙçÕê ÔÞæÕÙÕê ÑáÜ ÔéèÕêÙÝ éÜ ÞéèÓ ÔÑèÙÐÕê / çÕäÕê Ô×ÕÜÙÝ:</p><ul>"
				
					for j = 0 to objNodeList.item(i).childNodes.length - 1
						if left(objNodeList.item(i).childNodes.item(j).nodeName,8)="WOP_TEST" then
							BODYSTR = BODYSTR & "<li>" & objNodeList.item(i).childNodes.item(j).text & "</li>"					
						end if
					next
					BODYSTR = BODYSTR & "</ul><p>ÑÓÙçÕê èéÕê éÐÙàß ÑáÜ ÔÑèÙÐÕê:</p><ul>"					
					if WEEKS >= 5 and WEEKS < 13 then
						BODYSTR = BODYSTR & "<h3>(ÑÓÙçÕê ÒàØÙÕê èç ÑÔèÙÕß èÐéÕß)</h3>"
					end if	
					for j = 0 to objNodeList.item(i).childNodes.length - 1	
						If left(objNodeList.item(i).childNodes.item(j).nodeName,7)="WP_TEST" then			
							BODYSTR = BODYSTR &"<li>"& objNodeList.item(i).childNodes.item(j).text & "</li>"
						end if
					next	
					BODYSTR = BODYSTR &"</ul>"
				end if
			next
			window.LNK.innerHTML = LinksStr  
			window.TBL.innerHTML = BODYSTR

end function