<% strParentPageURL = "/baby/sick-baby-care.aspx" pageGUID = "49E15FF1A86A48ADAF06817A380E1757" %> <% '******************************************** ' 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 pertussis?
Baby-Health:Sick baby care;Baby-Sub:Healthy Baby;Page Types:FAQ;Section:Baby

What is pertussis?

Pertussis (whooping cough) is a disease caused by bacteria. Pertussis leads to coughing and choking that can last for several weeks. Babies who catch pertussis can get very sick, and some may die. Most deaths from pertussis happen in babies less than 4 months old.

The number of pertussis cases in this country has more than doubled since 2000. This may be because protection from the childhood vaccine fades over time. In the last few years, there have been several large pertussis outbreaks. Outbreaks are common in places like schools and hospitals. The disease spreads easily from person to person, usually by coughing or sneezing. Most infants who get pertussis catch it from someone in their family, often a parent.

The DTaP vaccine for children and the Tdap vaccine for adults can protect you and your children from pertussis, diphtheria and tetanus. Your baby gets the DTaP vaccine in four doses: at 2 months, 4 months, 6 months and between 15 and 18 months. The pertussis part of the vaccine may weaken as your child gets older. So for the best protection, she gets a fifth shot before she starts school, around 4 to 6 years old.

All new parents need the pertussis vaccine. Until your baby gets her first pertussis shot at 2 months, the best way to protect her is for you to get the adult vaccine before pregnancy or soon after you have your baby. The vaccine prevents you from getting pertussis and passing it along to your baby. Caregivers, close friends and relatives who spend time with your baby should get vaccinated, too.