<% strParentPageURL = "/baby/your-premature-baby.aspx" pageGUID = "3B042047D018447FA630087D341F6C15" %> <% '******************************************** ' 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 does it mean if a baby is born “late preterm?”
Baby-Loss:Your premature baby;Baby-Sub:Complications and Loss;Page Types:FAQ;Section:Baby

What does it mean if a baby is born “late preterm?”

Late preterm means that a baby is born after 34 weeks but before 37 weeks of pregnancy. It's important to try to have your baby as close to 39 weeks of pregnancy as possible. In the last few weeks of pregnancy, your baby's organs, like his brains, lungs and liver, are still growing. Waiting until you're at least 39 weeks also gives your baby time to gain more weight and makes him less likely to have vision and hearing problems after birth. Your baby will also be better able to suck and swallow and stay awake long enough to eat after he's born. Babies born early sometimes can't do these things.