> <% 'populate left nav name 'This is the breadcrumb string for highlighting the menu dim sNavTitle dim strParentPages dim intDepth dim strWrapperFlag 'populate left nav name sNavTitle = "Birth Control" 'This is the breadcrumb string for highlighting the menu strParentPages="/health-topics/birth-control/take-good-care-your-condoms-19679.htm" intDepth = getDepth(strParentPages) 'response.write "" & vbCRLF 'response.write "" & vbCRLF 'assign value to strWrapperFlag so that promo-specific wrappers are not displayed when they are being used as includes. strWrapperFlag = "wrapper" %> <% Function getBodyStyleClass() ' End Function Function getTitle() ' End Function Function cssFileAssign() ' End Function Function isEnglish() If "ENU" = "ESS" Then isEnglish = false Else isEnglish = true End If End Function response.write space(4) & "" & getTitle() & " - Planned Parenthood" & vbCRLF %>
<% ' 'The delimiter between values in the breadcrumb is different in preview and published versions of the pages 'The sessionkey determines which state you are in If ""<>"" Then 'Preview Mode Token="&" Else 'Published Token=" " End If 'FUNCTION TO CHECK IF NAV ITEMS IS "ACTIVE" (links to the current page or a parent/ancestor of the current page) Function isActive(strURL) ' response.write "" 'Checks if strURL (path/filename of nav item) is anywhere in the strParentPages string. If instr(strURL, Token & "pageguid=")>0 Then If instr(strParentPages, Mid(strURL, instrrev(strURL, Token & "pageguid="), 42))>0 Then isActive=True Else isActive=False End If Else isActive=False End If End Function ' 'FUNCTION TO CHECK IF NAV ITEMS IS "CURRENT" (links to the current page) Function isCurrent(strURL) 'Checks if strURL (path/filename of nav item) is the current page If instr(strURL, Token & "pageguid=")>0 Then If instr("/health-topics/birth-control/take-good-care-your-condoms-19679.htm", Mid(strURL, instrrev(strURL, Token & "pageguid="), 42))>0 Then isCurrent=True Else isCurrent=False End If Else isCurrent=False End If End Function ' FUNCTION TO GET THE DEPTH OF A PAGE IN THE NAVIGATION STRUCTURE Function getDepth(strURL) Dim parentPages, strPart, depthCounter depthCounter=1 parentPages = Split(strParentPages,"|") For Each strPart In parentPages If Not instr(strPart,Mid(strURL,instrrev(strURL,Token & "pageguid="),42)) Then depthCounter = depthCounter+1 Else Exit For End If Next getDepth=depthCounter End Function ' ' DETERMINE CURRENT LANGUAGE AND SET URL FOR CURRENT PAGE IN ALTERNATE LANGUAGE If ("ENU" = "ENU") Then 'eng environment, sp link if (("/esp/temas-de-salud/anticoncepcion/como-cuidar-de-sus-condones-19679.htm" = "/health-topics/birth-control/take-good-care-your-condoms-19679.htm") or (trim("/esp/temas-de-salud/anticoncepcion/como-cuidar-de-sus-condones-19679.htm") = "")) then 'link to homepage if no corresponding page in alternate language exists strUrlAltLang = "http://www.plannedparenthood.org/esp/" else strUrlAltLang = "/esp/temas-de-salud/anticoncepcion/como-cuidar-de-sus-condones-19679.htm" end if Else 'sp environment, eng link if (("/esp/temas-de-salud/anticoncepcion/como-cuidar-de-sus-condones-19679.htm" = "/health-topics/birth-control/take-good-care-your-condoms-19679.htm") or (trim("/esp/temas-de-salud/anticoncepcion/como-cuidar-de-sus-condones-19679.htm") = "")) then 'link to homepage if no corresponding page in alternate language exists strUrlAltLang = "http://www.plannedparenthood.org/" else strUrlAltLang = "/health-topics/birth-control/take-good-care-your-condoms-19679.htm" end if End If 'added ability to set a second image link on right-hand side of the logo nav bar. 'right image should be 357x149. '-alan, 11/17/09 if ("ENU" = "ENU") then strHomeRightLink = "http://plannedparenthoodaction.org/healthreform/" else strHomeRightLink = "/key-issues/ensuring-health-care-access-25937.htm" end if strHomeRightImg = "" strHomeRightTrackingCode = "" %>
<% if (intDepth > 4) then 'only display foundation nav for details pages Dim Depth Depth=0 %>

Birth Control

    <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" If depth > 1 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/birth-control-effectiveness-chart-29421.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/birth-control-effectiveness-chart-29421.htm") then status = current End If %> > Birth Control Effectiveness Chart <% highestNavLevel29421 = true If isActive("/health-topics/birth-control/birth-control-effectiveness-chart-29421.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/abstinence-4215.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/abstinence-4215.htm") then status = current End If %> > Abstinence <% highestNavLevel4215 = true If isActive("/health-topics/birth-control/abstinence-4215.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/birth-control-implant-implanon-4243.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/birth-control-implant-implanon-4243.htm") then status = current End If %> > Birth Control Implant (Implanon) <% highestNavLevel4243 = true If isActive("/health-topics/birth-control/birth-control-implant-implanon-4243.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm") then status = current End If %> > Birth Control Patch (Ortho Evra) <% highestNavLevel4240 = true If isActive("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm") and depth < 4 Then %>
      <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" If depth > 1 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/who-can-use-patch-19273.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/who-can-use-patch-19273.htm") then status = current End If %> > Who Can Use the Patch? <% highestNavLevel19273 = true If isActive("/health-topics/birth-control/who-can-use-patch-19273.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/starting-patch-19265.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/starting-patch-19265.htm") then status = current End If %> > Starting the Patch <% highestNavLevel19265 = true If isActive("/health-topics/birth-control/starting-patch-19265.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm") then status = current End If %> > If the Patch Falls Off or You Make a Mistake <% highestNavLevel19266 = true If isActive("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm") and depth < 4 Then %> <% End If %>
    <% subExists4240 = true %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/birth-control-pill-4228.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/birth-control-pill-4228.htm") then status = current End If %> > Birth Control Pill <% highestNavLevel4228 = true If isActive("/health-topics/birth-control/birth-control-pill-4228.htm") and depth < 4 Then %>
      <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" If depth > 1 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/who-can-take-pill-19272.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/who-can-take-pill-19272.htm") then status = current End If %> > Who Can Take the Pill? <% highestNavLevel19272 = true If isActive("/health-topics/birth-control/who-can-take-pill-19272.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/starting-pill-19264.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/starting-pill-19264.htm") then status = current End If %> > Starting the Pill <% highestNavLevel19264 = true If isActive("/health-topics/birth-control/starting-pill-19264.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/if-forget-take-pill-19269.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/if-forget-take-pill-19269.htm") then status = current End If %> > If You Forget to Take the Pill <% highestNavLevel19269 = true If isActive("/health-topics/birth-control/if-forget-take-pill-19269.htm") and depth < 4 Then %> <% End If %>
    <% subExists4228 = true %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/birth-control-vaginal-ring-nuvaring-4241.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/birth-control-vaginal-ring-nuvaring-4241.htm") then status = current End If %> > Birth Control Vaginal Ring (NuvaRing) <% highestNavLevel4241 = true If isActive("/health-topics/birth-control/birth-control-vaginal-ring-nuvaring-4241.htm") and depth < 4 Then %>
      <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" If depth > 1 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/who-can-use-ring-19270.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/who-can-use-ring-19270.htm") then status = current End If %> > Who Can Use the Ring? <% highestNavLevel19270 = true If isActive("/health-topics/birth-control/who-can-use-ring-19270.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/starting-ring-19271.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/starting-ring-19271.htm") then status = current End If %> > Starting the Ring <% highestNavLevel19271 = true If isActive("/health-topics/birth-control/starting-ring-19271.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/if-ring-slips-out-or-make-mistake-19267.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/if-ring-slips-out-or-make-mistake-19267.htm") then status = current End If %> > If the Ring Slips Out or You Make a Mistake <% highestNavLevel19267 = true If isActive("/health-topics/birth-control/if-ring-slips-out-or-make-mistake-19267.htm") and depth < 4 Then %> <% End If %>
    <% subExists4241 = true %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/birth-control-shot-depo-provera-4242.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/birth-control-shot-depo-provera-4242.htm") then status = current End If %> > Birth Control Shot (Depo-Provera) <% highestNavLevel4242 = true If isActive("/health-topics/birth-control/birth-control-shot-depo-provera-4242.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/birth-control-sponge-today-sponge-4224.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/birth-control-sponge-today-sponge-4224.htm") then status = current End If %> > Birth Control Sponge (Today Sponge) <% highestNavLevel4224 = true If isActive("/health-topics/birth-control/birth-control-sponge-today-sponge-4224.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/breastfeeding-4219.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/breastfeeding-4219.htm") then status = current End If %> > Breastfeeding <% highestNavLevel4219 = true If isActive("/health-topics/birth-control/breastfeeding-4219.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/cervical-cap-20487.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/cervical-cap-20487.htm") then status = current End If %> > Cervical Cap (FemCap) <% highestNavLevel20487 = true If isActive("/health-topics/birth-control/cervical-cap-20487.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/condom-10187.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/condom-10187.htm") then status = current End If %> > Condom <% highestNavLevel10187 = true If isActive("/health-topics/birth-control/condom-10187.htm") and depth < 4 Then %>
      <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" If depth > 1 Then %> <% End If %>
    <% subExists10187 = true %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/diaphragm-4244.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/diaphragm-4244.htm") then status = current End If %> > Diaphragm <% highestNavLevel4244 = true If isActive("/health-topics/birth-control/diaphragm-4244.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/emergency-contraception-19303.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/emergency-contraception-19303.htm") then status = current End If %> > Emergency Contraception (Morning After Pill) <% highestNavLevel19303 = true If isActive("/health-topics/birth-control/emergency-contraception-19303.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/female-condom-4223.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/female-condom-4223.htm") then status = current End If %> > Female Condom <% highestNavLevel4223 = true If isActive("/health-topics/birth-control/female-condom-4223.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/fertility-awareness-4217.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/fertility-awareness-4217.htm") then status = current End If %> > Fertility Awareness-Based Methods (FAMs) <% highestNavLevel4217 = true If isActive("/health-topics/birth-control/fertility-awareness-4217.htm") and depth < 4 Then %>
      <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" If depth > 1 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/fam-calendar-method-22139.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/fam-calendar-method-22139.htm") then status = current End If %> > Calendar Method <% highestNavLevel22139 = true If isActive("/health-topics/birth-control/fam-calendar-method-22139.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/fam-cervical-mucus-method-22140.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/fam-cervical-mucus-method-22140.htm") then status = current End If %> > Cervical Mucus Method <% highestNavLevel22140 = true If isActive("/health-topics/birth-control/fam-cervical-mucus-method-22140.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/fam-standard-days-method-22141.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/fam-standard-days-method-22141.htm") then status = current End If %> > Standard Days Method <% highestNavLevel22141 = true If isActive("/health-topics/birth-control/fam-standard-days-method-22141.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/symptothermal-method-22142.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/symptothermal-method-22142.htm") then status = current End If %> > Symptothermal Method <% highestNavLevel22142 = true If isActive("/health-topics/birth-control/symptothermal-method-22142.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/temperature-method-22143.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/temperature-method-22143.htm") then status = current End If %> > Temperature Method <% highestNavLevel22143 = true If isActive("/health-topics/birth-control/temperature-method-22143.htm") and depth < 4 Then %> <% End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/menstrual-cycle-22144.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/menstrual-cycle-22144.htm") then status = current End If %>
    <% subExists4217 = true %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/iud-4245.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/iud-4245.htm") then status = current End If %> > IUD <% highestNavLevel4245 = true If isActive("/health-topics/birth-control/iud-4245.htm") and depth < 4 Then %>
      <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" If depth > 1 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/who-can-use-iud-19274.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/who-can-use-iud-19274.htm") then status = current End If %> > Who Can Use the IUD? <% highestNavLevel19274 = true If isActive("/health-topics/birth-control/who-can-use-iud-19274.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/iud-insertion-19268.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/iud-insertion-19268.htm") then status = current End If %> > IUD Insertion <% highestNavLevel19268 = true If isActive("/health-topics/birth-control/iud-insertion-19268.htm") and depth < 4 Then %> <% End If %>
    <% subExists4245 = true %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/outercourse-4371.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/outercourse-4371.htm") then status = current End If %> > Outercourse <% highestNavLevel4371 = true If isActive("/health-topics/birth-control/outercourse-4371.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/spermicide-4225.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/spermicide-4225.htm") then status = current End If %> > Spermicide <% highestNavLevel4225 = true If isActive("/health-topics/birth-control/spermicide-4225.htm") and depth < 4 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/sterilization-women-4248.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/sterilization-women-4248.htm") then status = current End If %> > Sterilization for Women <% highestNavLevel4248 = true If isActive("/health-topics/birth-control/sterilization-women-4248.htm") and depth < 4 Then %>
      <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" If depth > 1 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/what-expect-20980.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/what-expect-20980.htm") then status = current End If %> > What to Expect <% highestNavLevel20980 = true If isActive("/health-topics/birth-control/what-expect-20980.htm") and depth < 4 Then %> <% End If %>
    <% subExists4248 = true %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/vasectomy-4249.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/vasectomy-4249.htm") then status = current End If %> > Vasectomy <% highestNavLevel4249 = true If isActive("/health-topics/birth-control/vasectomy-4249.htm") and depth < 4 Then %>
      <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" If depth > 1 Then %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/what-expect-21239.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/what-expect-21239.htm") then status = current End If %> > What to Expect <% highestNavLevel21239 = true If isActive("/health-topics/birth-control/what-expect-21239.htm") and depth < 4 Then %> <% End If %>
    <% subExists4249 = true %> <% End If %> <% 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/withdrawal-pull-out-method-4218.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/withdrawal-pull-out-method-4218.htm") then status = current End If %> > Withdrawal (Pull Out Method) <% highestNavLevel4218 = true If isActive("/health-topics/birth-control/withdrawal-pull-out-method-4218.htm") and depth < 4 Then %> <% End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/sponge-video-31485.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/sponge-video-31485.htm") then status = current End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/spermicide-video-31465.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/spermicide-video-31465.htm") then status = current End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/iud-video-31464.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/iud-video-31464.htm") then status = current End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/implanon-video-31463.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/implanon-video-31463.htm") then status = current End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/breastfeeding-video-31461.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/breastfeeding-video-31461.htm") then status = current End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/cap-diaphragm-video-31460.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/cap-diaphragm-video-31460.htm") then status = current End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/shot-video-31459.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/shot-video-31459.htm") then status = current End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/fams-video-31458.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/fams-video-31458.htm") then status = current End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/female-condom-video-31457.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/female-condom-video-31457.htm") then status = current End If %> <% 'now display shadow pages 'set default state status = default 'is the link a parent page if isActive("/health-topics/birth-control/birth-control-effectiveness-21872.htm") then status = active end if 'is the linked page a sub page, this is for future use if sub-navs need special formatting. if isCurrent("/health-topics/birth-control/birth-control-effectiveness-21872.htm") then status = current End If %>