<% strParentPageURL = "/baby/sick-baby-care.aspx" pageGUID = "482E5A4EC3C54972BCC9FB17F245DAE7" %> <% '******************************************** ' VALUES FROM PARENT PAGE ' @strParentPageURL = info_ParentPageURL = URL of calling page '*******************REGEX TO EXTRACT PARENT PAGE GUID*********************** if mainPageGUID = "" then set XMLDom2 = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject2 = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM2 =Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject2.Execute(xmlString, sError ) 'find element guid with link name objXMLDOM2.LoadXml (resXML) Set listLink = objXMLDOM2.getElementsByTagName("LINK") for each e in listLink if e.getAttribute("connectedbykeyword") = "0" then mainLinkPageGUID = e.getAttribute("pageguid") mainLinkGUID = e.getAttribute("guid") end if next parentPageGUID = mainLinkPageGUID else parentPageGUID = mainPageGUID end if if isSectionPage <> "yes" then SaveMainPageLink() end if if parentPageGUID = "87859F6455194CB6940BA3F935B1734E" then call getPageEltGUIDs ("stf_PageType","spotlight") call getPageEltGUIDs ("stf_IsChildPage","no") 'response.write("Spotlights Inheritance") end if '*** ADDED by A Salik - 11/04/2012 '*** Sets the page type to "news" if article is attached to a list on the News Landing Pages '*** REQUIRED TO ALTER THE HTML OF THE ARTICLE DETAIL PAGE FOR NEWS USAGE if parentPageGUID = "566C41A50FC440CC9F8021A3FDDFE759" then call getPageEltGUIDs ("stf_PageType","news") call getPageEltGUIDs ("stf_IsChildPage","no") end if '*** END CHANGE FROM 11/04/2012 '*********************************************** '** SETS THE MAIN LINK OF THE PAGE TO THE NON-KEYWORD CONNECTED PAGES '*********************************************** function SaveMainPageLink() set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute(xmlString, sError ) end function '*********************************************** '** GETS THE GUIDS OF CURRENT PAGE ELTS '*********************************************** sub getPageEltGUIDs (eltName,eltValue) set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute(xmlString, sError ) objXMLDOM.loadXML( resXML ) Set pageElements = objXMLDOM.getElementsByTagName("ELEMENT") for each e in pageElements if e.getAttribute("eltname") = eltName then if e.getAttribute("value") = "" then setEltValue e.getAttribute("guid"),eltValue end if end if next end sub '*********************************************** '** SETS THE VALUES OF THE CURRENT PAGE ELTS '*********************************************** sub setEltValue(eltGUID,eltValue) set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute(xmlString, sError ) objXMLDOM.loadXML( resXML ) 'Set elements = objXMLDOM.getElementsByTagName("ELT") end sub '************Iterate through Parent Page and Get Element Values function getParentPageEltValues(eltName) set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute(xmlString, sError ) objXMLDOM.loadXML( resXML ) Set parentPageElements = objXMLDOM.getElementsByTagName("ELEMENT") 'Itereate through Results and extract and temporarily store the values For each e in parentPageElements if e.getAttribute("eltname") = eltName then if e.getAttribute("value") <> "" then 'response.write("
Line 67: " & e.getAttribute("eltname") & " -- " & e.getAttribute("value") & "
") getPageEltGUIDs e.getAttribute("eltname") ,e.getAttribute("value") end if end if next end function function GetEltContainerGUID(pageGUID, strSection) set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute(xmlString, sError ) objXMLDOM.loadXML( resXML ) 'response.write(server.htmlencode(resXML)) Set Links= objXMLDOM.getElementsByTagName("LINK") 'Itereate through Results and extract and temporarily store the values For each e in Links if e.getAttribute("eltname") = "con_Sidebar" then 'response.write("
Line 67: " & e.getAttribute("eltname") & " -- " & e.getAttribute("value") & "
") SetSidebarReference e.getAttribute("guid"), strSection end if 'if e.getAttribute("eltname") = "con_SectionNav" then 'if inheritSubnav= "yes" then 'SetSubnavReference e.getAttribute("guid"), strSection 'end if 'end if next end function sub SetSidebarReference (eltGUID,strSection) Select Case strSection Case "advocacy" masterContainerGUID = "0439413EF3494562B8763EB3E4B43BF8" Case "Baby" masterContainerGUID = "E6F798E7C6B24B13AAB98754A94AC154" Case "community" masterContainerGUID = "073D8996F5BC4392BDBC6941E8D8DDB3" Case "giving" masterContainerGUID = "2C21FE3BFF654772A8AA6F7D0BA0B997" Case "mission" masterContainerGUID = "C7D89969FB904875926B9860C726523E" Case "professionals" masterContainerGUID = "FF8F1602854E4888A1CEA28BF470C238" Case "Pregnancy" masterContainerGUID = "4E28E765EA144F8DA1A46BA8295C1DB1" Case "research" masterContainerGUID = "72AE7364EA2B41EB84ACA9E6EF8CEF66" Case "volunteers" masterContainerGUID = "4E3A492F8CAC4D2189C38E3E6C62D82A" end select set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" 'response.write(server.htmlencode(xmlString) & "
") resXML = RQLObject.Execute(xmlString, sError ) 'objXMLDOM.loadXML( resXML ) end sub '******************************************************* ' Function to call to reference a strucutural element from ' the strucutral parent page ' This function will get the GUID of the parent element based on the name submitted as ' the parentEltName vaiable ' ---THIS FUNCTION CALLS GetCurrentPageEltGUIDsFromName(parentPageEltGUID,childEltName) ' ---WHICH RESOLVES THE CHILD ELT GUID based on childEltName variable ' @parentEltName = the NAME of the element from the parent page ' @childEltName = the NAME of the elemtent on the child page ' @parentPageGUID = the GUID of the calling page resolved through parsing the URI in SmartEdit '******************************************************* function ReferenceParentStructuralLink(parentEltName,childEltName) set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute(xmlString, sError ) objXMLDOM.loadXML( resXML ) Set Links= objXMLDOM.getElementsByTagName("LINK") 'Itereate through Results and extract and temporarily store the values For each e in Links if e.getAttribute("eltname") = parentEltName then parentPageEltGUID = e.getAttribute("guid") end if next call GetCurrentPageEltGUIDsFromName(parentPageEltGUID,childEltName) end function '******************************************************* ' Gets the GUID of the eltName ' @parentPageEltGUID = the GUID of the element from the parent page ' @childEltName = the NAME of the elemtent on the child page that will reference the parentGUID '******************************************************* function GetCurrentPageEltGUIDsFromName(parentPageEltGUID,childEltName) set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute(xmlString, sError ) 'response.write("
" & server.htmlencode(resXML) & "
") objXMLDOM.loadXML( resXML ) Set pageElements = objXMLDOM.getElementsByTagName("LINK") for each e in pageElements if childEltName = e.getAttribute("eltname") then currentPageEltGUID = e.getAttribute("guid") end if next 'response.write("
childEltName: " & childEltName& "
childEltName: " & childEltName& "
"") call SetLinkReferenceFromParent(currentPageEltGUID,parentPageEltGUID) end function '*************************************************** '**** ASSIGNS KEYWORDS TO LINKS '*************************************************** sub AssignKeywordsToLink(strLinkGUID) xmlString = "" xmlString = xmlString & GetParentKeywords() xmlString = xmlString & "" resXML = objIO.ServerExecuteXML( xmlString, sError ) 'response.write(Server.HTMLEncode(xmlString) & "
") end sub function SetLinkReferenceFromParent(eltGUID,parentPageEltGUID) set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute(xmlString, sError ) objXMLDOM.loadXML( resXML ) end function 'function CheckPageTypeKeyword() ' set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") ' set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") ' set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") ' xmlString = "" ' resXML = RQLObject.Execute(xmlString, sError ) ' objXMLDOM.loadXML( resXML ) ' Set pageKeywords = objXMLDOM.getElementsByTagName("KEYWORD") ' for each e in pageKeywords ' if e.getAttribute("value") = "Satellite" then ' keywordGUID = e.getAttribute("guid") ' end if ' next 'SetPageTypeFieldFromKeyword ("Satellite") 'end function 'function SetPageTypeFieldFromKeyword (eltValue) ' set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") ' set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") ' set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") ' xmlString = "" ' resXML = RQLObject.Execute(xmlString, sError ) ' objXMLDOM.loadXML( resXML ) ' Set pageElements = objXMLDOM.getElementsByTagName("ELEMENT") ' for each e in pageElements ' if e.getAttribute("eltname") = "stf_PageType" then ' if e.getAttribute("value") = "" then ' eltGUID = e.getAttribute("guid") ' end if ' end if ' next ' set XMLDom2 = Server.CreateObject("RDCMSAspObj.RDObject") ' set RQLObject2 = Server.CreateObject("RDCMSServer.XmlServer") ' set objXMLDOM2=Server.CreateObject("Microsoft.XMLDOM") 'xmlString2 = "" 'resXML2 = RQLObject2.Execute(xmlString2, sError ) ' objXMLDOM2.loadXML( resXML2 ) ' Set elements = objXMLDOM2.getElementsByTagName("ELT") 'end function '*********************************************** '** GETS THE FILENAME OF CURRENT PAGE *** '*********************************************** function getFilename(pageGUID) set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute( xmlString, sError ) objXMLDOM.loadXML( resXML ) 'response.write(server.htmlencode(xmlString)) Set Page = objXMLDOM.getElementsByTagName("PAGE") 'set oNode = XMLDOM1.selectSingleNode("//PAGE") for each e in Page filename = e.getAttribute("name") strFilename = filename & ".aspx" next getPageEltGUIDs "stf_ParentPageName",strFilename 'response.write("
String File Name = " & strFilename & "
") end function sub SetInheritanceCountElt() set XMLDom = Server.CreateObject("RDCMSAspObj.RDObject") set RQLObject = Server.CreateObject("RDCMSServer.XmlServer") set objXMLDOM=Server.CreateObject("Microsoft.XMLDOM") xmlString = "" resXML = RQLObject.Execute(xmlString, sError ) objXMLDOM.loadXML( resXML ) Set pageElements = objXMLDOM.getElementsByTagName("ELEMENT") for each e in pageElements if e.getAttribute("eltname") = "stf_ScriptCount" then eltGUID = e.getAttribute("guid") call setEltValue(eltGUID,"1") end if next end sub %> What is measles?
Baby-Health:Sick baby care;Baby-Sub:Healthy Baby;Page Types:FAQ;Section:Baby

What is measles?

Measles is a disease that is easily spread and causes rash, cough and fever. In some cases, it can lead to diarrhea, ear infection, pneumonia, brain damage or even death. Measles can cause serious health problems in young children. It also can be especially harmful to pregnant women and can cause miscarriage.

The measles, mumps and rubella (MMR) vaccine protects against these three diseases. Your baby gets the MMR vaccine in two doses: the first between 12 and 15 months, the second between 4 and 6 years.

If you’re thinking about getting pregnant, make sure you’re protected against measles. If you need to get vaccinated, get the MMR vaccine before pregnancy. Wait at least 1 month before trying to get pregnant after getting the shot.