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

What is hepatitis B?

Hepatitis B is caused by the hepatitis B virus. It can lead to serious liver disease. Signs of hepatitis B infection include belly pain, joint pain, dark urine, loss of appetite, nausea, fatigue and jaundice. However, most people who have hepatitis B infection never show any signs.

You can catch hepatitis B if you’re in contact with bodily fluids of someone who has it. For example, you can get the virus from kissing or having sex with an infected person. You also can get it if you share needles with someone who has the virus. During pregnancy, a mom with hepatitis B can pass the infection on to her baby during childbirth. Pregnant women are tested for hepatitis B at a prenatal care visit.

Most people with hepatitis B get better and may not need treatment. However, if you have chronic (long-lasting) hepatitis B infection, you may need treatment with medicines called antivirals that fight the virus. If the liver is badly damaged, you may need a liver transplant. Babies and children are much more likely than adults to get chronic hepatitis B infection.

The hepatitis B vaccine can prevent infection in babies and adults. Your baby gets three doses of hepatitis B vaccine: at birth, 2 months and between 6 and 18 months.