C "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<%
Function getHeadline()
'
End Function
Function getKeywords()
'
End Function
Function getDescription()
'
End Function
%>
<% If "" <> "" Then %>
<% Else %>
Planned Parenthood <%=getHeadline()%>
<% End If %>
<% If "ENU" <> "ENU" Then %>
<% Else %>
<% End If %>
<%
'This is the breadcrumb string for highlighting the menu
Dim strParentPages
strParentPages="/health-topics/ask-dr-cullins/ask-dr-cullins-birth-control-5411.htm"
Response.write ""
%>
<%
'
'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/ask-dr-cullins/ask-dr-cullins-birth-control-5411.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
'
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/abortion-4260.htm", "1") = "/" And isActive ("/health-topics/abortion-4260.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel4260 = true
If Left("/health-topics/abortion-4260.htm", "1") = "/" And isActive ("/health-topics/abortion-4260.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/abortion-4260.htm", "1") = "/" AND isActive ("/health-topics/abortion-4260.htm") AND depth < 3 Then
%>
<%
depth=depth+1
Select Case depth
Case 1
'to know if there is a subnav
subExists4352 = true
%>
<%
Case 2
%>
<%
'if last item, switch bottom gray line
counter3 = 0
counter3 = counter3 + 1
'/health-topics/abortion/abortion-pill-medication-abortion-4354.htm
counter3 = counter3 + 1
'/health-topics/abortion/in-clinic-abortion-4359.htm
'response.write counter3
counter3list = 1
Case 3
%>
<%
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm", "1") = "/" And isActive ("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm", "1") = "/" And isActive ("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel4354 = true
If Left("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm", "1") = "/" And isActive ("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm", "1") = "/" AND isActive ("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm") AND depth < 3 Then
%>
<%
depth=depth+1
Select Case depth
Case 1
'to know if there is a subnav
subExists4360 = true
%>
<%
Case 2
%>
<%
'if last item, switch bottom gray line
counter3 = 0
'response.write counter3
counter3list = 1
Case 3
%>
<%
End Select
%>
<%
Select Case depth
case 1
%>
<%
case 2
%>
<%
Case 3
%>
<%
End Select
depth=depth-1
%>
<%
'to know if there is a subnav
subExists4354 = true
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm", "1") = "/" AND isActive ("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm")) Then
%>
<%
End If
Case 2
If Left("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm", "1") = "/" AND isActive ("/health-topics/abortion/abortion-pill-medication-abortion-4354.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/abortion/in-clinic-abortion-4359.htm", "1") = "/" And isActive ("/health-topics/abortion/in-clinic-abortion-4359.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/abortion/in-clinic-abortion-4359.htm", "1") = "/" And isActive ("/health-topics/abortion/in-clinic-abortion-4359.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel4359 = true
If Left("/health-topics/abortion/in-clinic-abortion-4359.htm", "1") = "/" And isActive ("/health-topics/abortion/in-clinic-abortion-4359.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/abortion/in-clinic-abortion-4359.htm", "1") = "/" AND isActive ("/health-topics/abortion/in-clinic-abortion-4359.htm") AND depth < 3 Then
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("/health-topics/abortion/in-clinic-abortion-4359.htm", "1") = "/" AND isActive ("/health-topics/abortion/in-clinic-abortion-4359.htm")) Then
%>
<%
End If
Case 2
If Left("/health-topics/abortion/in-clinic-abortion-4359.htm", "1") = "/" AND isActive ("/health-topics/abortion/in-clinic-abortion-4359.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
case 1
%>
<%
case 2
%>
<%
Case 3
%>
<%
End Select
depth=depth-1
%>
<%
'to know if there is a subnav
subExists4260 = true
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("/health-topics/abortion-4260.htm", "1") = "/" AND isActive ("/health-topics/abortion-4260.htm")) Then
%>
<%
End If
Case 2
If Left("/health-topics/abortion-4260.htm", "1") = "/" AND isActive ("/health-topics/abortion-4260.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/birth-control-4211.htm", "1") = "/" And isActive ("/health-topics/birth-control-4211.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/birth-control-4211.htm", "1") = "/" And isActive ("/health-topics/birth-control-4211.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel4211 = true
If Left("/health-topics/birth-control-4211.htm", "1") = "/" And isActive ("/health-topics/birth-control-4211.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/birth-control-4211.htm", "1") = "/" AND isActive ("/health-topics/birth-control-4211.htm") AND depth < 3 Then
%>
<%
depth=depth+1
Select Case depth
Case 1
'to know if there is a subnav
subExists4212 = true
%>
<%
Case 2
%>
<%
'if last item, switch bottom gray line
counter3 = 0
counter3 = counter3 + 1
'http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm
counter3 = counter3 + 1
'/health-topics/birth-control/abstinence-4215.htm
counter3 = counter3 + 1
'/health-topics/birth-control/birth-control-implant-implanon-4243.htm
counter3 = counter3 + 1
'/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm
counter3 = counter3 + 1
'/health-topics/birth-control/birth-control-pill-4228.htm
counter3 = counter3 + 1
'/health-topics/birth-control/birth-control-vaginal-ring-nuvaring-4241.htm
counter3 = counter3 + 1
'/health-topics/birth-control/birth-control-shot-depo-provera-4242.htm
counter3 = counter3 + 1
'/health-topics/birth-control/birth-control-sponge-today-sponge-4224.htm
counter3 = counter3 + 1
'/health-topics/birth-control/breastfeeding-4219.htm
counter3 = counter3 + 1
'/health-topics/birth-control/cervical-cap-20487.htm
counter3 = counter3 + 1
'/health-topics/birth-control/condom-10187.htm
counter3 = counter3 + 1
'/health-topics/birth-control/diaphragm-4244.htm
counter3 = counter3 + 1
'/health-topics/birth-control/emergency-contraception-19303.htm
counter3 = counter3 + 1
'/health-topics/birth-control/female-condom-4223.htm
counter3 = counter3 + 1
'/health-topics/birth-control/fertility-awareness-4217.htm
counter3 = counter3 + 1
'/health-topics/birth-control/iud-4245.htm
counter3 = counter3 + 1
'/health-topics/birth-control/outercourse-4371.htm
counter3 = counter3 + 1
'/health-topics/birth-control/spermicide-4225.htm
counter3 = counter3 + 1
'/health-topics/birth-control/sterilization-women-4248.htm
counter3 = counter3 + 1
'/health-topics/birth-control/vasectomy-4249.htm
counter3 = counter3 + 1
'/health-topics/birth-control/withdrawal-pull-out-method-4218.htm
'response.write counter3
counter3list = 1
Case 3
%>
<%
End Select
%>
<%
Select Case depth
Case 1
If Left("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm", "1") = "/" And isActive ("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm", "1") = "/" And isActive ("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel4212 = true
If Left("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm", "1") = "/" And isActive ("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm", "1") = "/" AND isActive ("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm") AND depth < 3 Then
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm", "1") = "/" AND isActive ("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm")) Then
%>
<%
End If
Case 2
If Left("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm", "1") = "/" AND isActive ("http://www.plannedparenthood.org/health-topics/birth-control//birth-control-effectiveness-chart-22710.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/birth-control/abstinence-4215.htm", "1") = "/" And isActive ("/health-topics/birth-control/abstinence-4215.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/birth-control/abstinence-4215.htm", "1") = "/" And isActive ("/health-topics/birth-control/abstinence-4215.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel4215 = true
If Left("/health-topics/birth-control/abstinence-4215.htm", "1") = "/" And isActive ("/health-topics/birth-control/abstinence-4215.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/birth-control/abstinence-4215.htm", "1") = "/" AND isActive ("/health-topics/birth-control/abstinence-4215.htm") AND depth < 3 Then
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("/health-topics/birth-control/abstinence-4215.htm", "1") = "/" AND isActive ("/health-topics/birth-control/abstinence-4215.htm")) Then
%>
<%
End If
Case 2
If Left("/health-topics/birth-control/abstinence-4215.htm", "1") = "/" AND isActive ("/health-topics/birth-control/abstinence-4215.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/birth-control/birth-control-implant-implanon-4243.htm", "1") = "/" And isActive ("/health-topics/birth-control/birth-control-implant-implanon-4243.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/birth-control/birth-control-implant-implanon-4243.htm", "1") = "/" And isActive ("/health-topics/birth-control/birth-control-implant-implanon-4243.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel4243 = true
If Left("/health-topics/birth-control/birth-control-implant-implanon-4243.htm", "1") = "/" And isActive ("/health-topics/birth-control/birth-control-implant-implanon-4243.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/birth-control/birth-control-implant-implanon-4243.htm", "1") = "/" AND isActive ("/health-topics/birth-control/birth-control-implant-implanon-4243.htm") AND depth < 3 Then
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("/health-topics/birth-control/birth-control-implant-implanon-4243.htm", "1") = "/" AND isActive ("/health-topics/birth-control/birth-control-implant-implanon-4243.htm")) Then
%>
<%
End If
Case 2
If Left("/health-topics/birth-control/birth-control-implant-implanon-4243.htm", "1") = "/" AND isActive ("/health-topics/birth-control/birth-control-implant-implanon-4243.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm", "1") = "/" And isActive ("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm", "1") = "/" And isActive ("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel4240 = true
If Left("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm", "1") = "/" And isActive ("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm", "1") = "/" AND isActive ("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm") AND depth < 3 Then
%>
<%
depth=depth+1
Select Case depth
Case 1
'to know if there is a subnav
subExists19346 = true
%>
<%
Case 2
%>
<%
'if last item, switch bottom gray line
counter3 = 0
counter3 = counter3 + 1
'/health-topics/birth-control/who-can-use-patch-19273.htm
counter3 = counter3 + 1
'/health-topics/birth-control/starting-patch-19265.htm
counter3 = counter3 + 1
'/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm
'response.write counter3
counter3list = 1
Case 3
%>
<%
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/birth-control/who-can-use-patch-19273.htm", "1") = "/" And isActive ("/health-topics/birth-control/who-can-use-patch-19273.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/birth-control/who-can-use-patch-19273.htm", "1") = "/" And isActive ("/health-topics/birth-control/who-can-use-patch-19273.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel19273 = true
If Left("/health-topics/birth-control/who-can-use-patch-19273.htm", "1") = "/" And isActive ("/health-topics/birth-control/who-can-use-patch-19273.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/birth-control/who-can-use-patch-19273.htm", "1") = "/" AND isActive ("/health-topics/birth-control/who-can-use-patch-19273.htm") AND depth < 3 Then
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("/health-topics/birth-control/who-can-use-patch-19273.htm", "1") = "/" AND isActive ("/health-topics/birth-control/who-can-use-patch-19273.htm")) Then
%>
<%
End If
Case 2
If Left("/health-topics/birth-control/who-can-use-patch-19273.htm", "1") = "/" AND isActive ("/health-topics/birth-control/who-can-use-patch-19273.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/birth-control/starting-patch-19265.htm", "1") = "/" And isActive ("/health-topics/birth-control/starting-patch-19265.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/birth-control/starting-patch-19265.htm", "1") = "/" And isActive ("/health-topics/birth-control/starting-patch-19265.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel19265 = true
If Left("/health-topics/birth-control/starting-patch-19265.htm", "1") = "/" And isActive ("/health-topics/birth-control/starting-patch-19265.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/birth-control/starting-patch-19265.htm", "1") = "/" AND isActive ("/health-topics/birth-control/starting-patch-19265.htm") AND depth < 3 Then
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("/health-topics/birth-control/starting-patch-19265.htm", "1") = "/" AND isActive ("/health-topics/birth-control/starting-patch-19265.htm")) Then
%>
<%
End If
Case 2
If Left("/health-topics/birth-control/starting-patch-19265.htm", "1") = "/" AND isActive ("/health-topics/birth-control/starting-patch-19265.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm", "1") = "/" And isActive ("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm", "1") = "/" And isActive ("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel19266 = true
If Left("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm", "1") = "/" And isActive ("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
End If
End Select
%>
<%
If Left("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm", "1") = "/" AND isActive ("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm") AND depth < 3 Then
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm", "1") = "/" AND isActive ("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm")) Then
%>
<%
End If
Case 2
If Left("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm", "1") = "/" AND isActive ("/health-topics/birth-control/if-patch-falls-off-or-make-mistake-19266.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
case 1
%>
<%
case 2
%>
<%
Case 3
%>
<%
End Select
depth=depth-1
%>
<%
'to know if there is a subnav
subExists4240 = true
%>
<%
End If
%>
<%
Select Case depth
Case 1
If Not (Left("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm", "1") = "/" AND isActive ("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm")) Then
%>
<%
End If
Case 2
If Left("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm", "1") = "/" AND isActive ("/health-topics/birth-control/birth-control-patch-ortho-evra-4240.htm") Then
'If counter3list < counter3 Then %>
<%
'response.write counter3list
'response.write counter3
If counter3list < counter3 Then %>
<%
End If
End If
counter3list = counter3list + 1
'response.write counter3list
End Select
%>
<%
Select Case depth
Case 1
If Left("/health-topics/birth-control/birth-control-pill-4228.htm", "1") = "/" And isActive ("/health-topics/birth-control/birth-control-pill-4228.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case1PostContainer = true
End If
Case 2
If Left("/health-topics/birth-control/birth-control-pill-4228.htm", "1") = "/" And isActive ("/health-topics/birth-control/birth-control-pill-4228.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
<%
Else
Case2PostContainer = true
End If
Case 3
highestNavLevel4228 = true
If Left("/health-topics/birth-control/birth-control-pill-4228.htm", "1") = "/" And isActive ("/health-topics/birth-control/birth-control-pill-4228.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
