<%
'
'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 isActive("/health-topics/index.htm") then %>
Health Topics
<% else %>
Health Topics
<% end if %>
-
<% if isActive("/health-center/index.htm") then %>
Centers & Services
<% else %>
Centers & Services
<% end if %>
-
<% if isActive("/key-issues/index.htm") then %>
Key Issues
<% else %>
Key Issues
<% end if %>
-
<% if isActive("/about-us/index.htm") then %>
About Us
<% else %>
About Us
<% end if %>
<%
if (intDepth > 4) then
'only display foundation nav for details pages
Dim Depth
Depth=0
%>
<%
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
%>
<%
if ((trim(strHomeRightLink) <> "") and (trim(strHomeRightImg) <> "")) then
response.write(space(10) & "" & vbcr)
response.write(space(12) & " & strHomeRightImg & chr(34) & )
" & vbcr)
response.write(space(10) & "" & vbcr)
end if
%>