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

What is tetanus?

Tetanus (also called lockjaw) is a disease caused by bacteria that attacks the nervous system (that includes the brain, spinal cord and nerves).

Stiffness in the neck or stomach muscles may be early symptoms of tetanus. Tetanus also can cause the jaw to “lock,” so that a person can’t open his mouth or swallow. It also can cause serious, painful spasms of all muscles. It sometimes causes death.

Tetanus is not passed from one person to another. Instead, the bacteria that causes tetanus can enter your body through a break in your skin and cause infection. For example, if you step on a nail, cut your skin in an accident, or get a splinter, you may be at risk of tetanus infection.

The DTaP (for children) and Tdap (for adults) vaccines can protect you from tetanus, diphtheria and pertussis. Your baby gets the DTaP vaccine in four doses: at 2 months, 4 months, 6 months and between 15 and 18 months.

If you’re thinking about getting pregnant, make sure you’re protected against tetanus. If you need to get vaccinated, get the adult vaccine before pregnancy.