Español Health Glossary Store State   AK AL AR AZ CA CO CT DC DE FL GA HI IA ID IL IN KS KY LA MA MD ME MI MN MO MS MT NC ND NE NH NJ NM NV NY OH OK OR PA RI SC SD TN TX UT VA VT WA WI WV WY
	Fact Sheets & Reports 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 %> <% End If %> <% If "ENU" <> "ENU" Then %> <% Else %> <% End If %> <% 'This is the breadcrumb string for highlighting the menu Dim strParentPages strParentPages="/issues-action/birth-control/fact-sheets-and-reports-6568.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("/issues-action/birth-control/fact-sheets-and-reports-6568.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 ' %> <% Case 3 %> <% End Select depth=depth-1 %> <% 'to know if there is a subnav subExists19945 = true %> <% End If %> <% Select Case depth Case 1 If Not (Left("/issues-action/abortion/anti-choice-activity-19945.htm", "1") = "/" AND isActive ("/issues-action/abortion/anti-choice-activity-19945.htm")) Then %> <% End If Case 2 If Left("/issues-action/abortion/anti-choice-activity-19945.htm", "1") = "/" AND isActive ("/issues-action/abortion/anti-choice-activity-19945.htm") Then 'If counter3list < counter3 Then %> <% 'End If Else %> <% '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("/issues-action/abortion/abortion-ban-home-14345.htm", "1") = "/" And isActive ("/issues-action/abortion/abortion-ban-home-14345.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("/issues-action/abortion/abortion-ban-home-14345.htm", "1") = "/" And isActive ("/issues-action/abortion/abortion-ban-home-14345.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 highestNavLevel14345 = true If Left("/issues-action/abortion/abortion-ban-home-14345.htm", "1") = "/" And isActive ("/issues-action/abortion/abortion-ban-home-14345.htm") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("/issues-action/abortion/abortion-ban-home-14345.htm", "1") = "/" AND isActive ("/issues-action/abortion/abortion-ban-home-14345.htm") AND depth < 3 Then %> <% depth=depth+1 Select Case depth Case 1 'to know if there is a subnav subExists14346 = true %>   <% If "ENU" <> "ENU" Then %> <% Else %> <% End If %> HomeEspañol Español Health Glossary Store <% If "ENU" <> "ENU" Then %> <% Else %> <% End If %> State   AK AL AR AZ CA CO CT DC DE FL GA HI IA ID IL IN KS KY LA MA MD ME MI MN MO MS MT NC ND NE NH NJ NM NV NY OH OK OR PA RI SC SD TN TX UT VA VT WA WI WV WY   <% if isActive("/health-topics/health-topics-11.htm") then %> <% else %> <% end if %> <% if isActive("/issues-action/issues-action-87.htm") then %> <% else %> <% end if %> <% if isActive("/donate/donate-89.htm") then %> <% else %> <% end if %> <% if isActive("/resources/resources-educators-86.htm") then %> <% else %> <% end if %> <% if isActive("/newsroom/newsroom-88.htm") then %> <% else %> <% end if %> <% if isActive("/about-us/about-us-90.htm") then %> <% else %> <% end if %> <% Case 3 %> <% End Select depth=depth-1 %> <% 'to know if there is a subnav subExists4687 = true %> <% End If %> <% Select Case depth Case 1 If Not (Left("/issues-action/take-political-action-4687.htm", "1") = "/" AND isActive ("/issues-action/take-political-action-4687.htm")) Then %> <% End If Case 2 If Left("/issues-action/take-political-action-4687.htm", "1") = "/" AND isActive ("/issues-action/take-political-action-4687.htm") Then 'If counter3list < counter3 Then %> <% 'End If Else %> <% '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("/issues-action/abortion-issues-5946.htm", "1") = "/" And isActive ("/issues-action/abortion-issues-5946.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("/issues-action/abortion-issues-5946.htm", "1") = "/" And isActive ("/issues-action/abortion-issues-5946.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 highestNavLevel5946 = true If Left("/issues-action/abortion-issues-5946.htm", "1") = "/" And isActive ("/issues-action/abortion-issues-5946.htm") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("/issues-action/abortion-issues-5946.htm", "1") = "/" AND isActive ("/issues-action/abortion-issues-5946.htm") AND depth < 3 Then %> <% depth=depth+1 Select Case depth Case 1 'to know if there is a subnav subExists5949 = true %> Fact Sheets & Reports <% Case 3 %> <% End Select depth=depth-1 %> <% 'to know if there is a subnav subExists4628 = true %> <% End If %> <% Select Case depth Case 1 If Not (Left("/issues-action/take-political-action/youth-speak-out-4628.htm", "1") = "/" AND isActive ("/issues-action/take-political-action/youth-speak-out-4628.htm")) Then %> <% End If Case 2 If Left("/issues-action/take-political-action/youth-speak-out-4628.htm", "1") = "/" AND isActive ("/issues-action/take-political-action/youth-speak-out-4628.htm") Then 'If counter3list < counter3 Then %> <% 'End If Else %> <% '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 3 %> <% End Select depth=depth-1 %> <% 'to know if there is a subnav subExists4627 = true %> <% End If %> <% Select Case depth Case 1 If Not (Left("/issues-action/take-political-action/republican-get-involved-4627.htm", "1") = "/" AND isActive ("/issues-action/take-political-action/republican-get-involved-4627.htm")) Then %> <% End If Case 2 If Left("/issues-action/take-political-action/republican-get-involved-4627.htm", "1") = "/" AND isActive ("/issues-action/take-political-action/republican-get-involved-4627.htm") Then 'If counter3list < counter3 Then %> <% 'End If Else %> <% '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("/issues-action/take-political-action/youth-speak-out-4628.htm", "1") = "/" And isActive ("/issues-action/take-political-action/youth-speak-out-4628.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("/issues-action/take-political-action/youth-speak-out-4628.htm", "1") = "/" And isActive ("/issues-action/take-political-action/youth-speak-out-4628.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 highestNavLevel4628 = true If Left("/issues-action/take-political-action/youth-speak-out-4628.htm", "1") = "/" And isActive ("/issues-action/take-political-action/youth-speak-out-4628.htm") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("/issues-action/take-political-action/youth-speak-out-4628.htm", "1") = "/" AND isActive ("/issues-action/take-political-action/youth-speak-out-4628.htm") AND depth < 3 Then %> <% depth=depth+1 Select Case depth Case 1 'to know if there is a subnav subExists4634 = true %> <% ' for left nav Dim depth depth=0 %> <% depth=depth+1 Select Case depth Case 1 'to know if there is a subnav subExists93 = true %> <% Case 2 %> <% 'if last item, switch bottom gray line counter3 = 0 counter3 = counter3 + 1 '/issues-action/take-political-action-4687.htm counter3 = counter3 + 1 '/issues-action/abortion-issues-5946.htm counter3 = counter3 + 1 '/issues-action/birth-control-family-planning-6783 .htm counter3 = counter3 + 1 '/issues-action/international-issues-5984.htm counter3 = counter3 + 1 '/issues-action/medical-privacy-issues-6071.htm counter3 = counter3 + 1 '/issues-action/sex-education-issues-6129.htm counter3 = counter3 + 1 '/issues-action/stds-hiv-aids-issues-6133.htm counter3 = counter3 + 1 '/issues-action/other-issues-6077.htm 'response.write counter3 counter3list = 1 Case 3 %> <% End Select %> <% Select Case depth Case 1 If Left("/issues-action/take-political-action-4687.htm", "1") = "/" And isActive ("/issues-action/take-political-action-4687.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("/issues-action/take-political-action-4687.htm", "1") = "/" And isActive ("/issues-action/take-political-action-4687.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 highestNavLevel4687 = true If Left("/issues-action/take-political-action-4687.htm", "1") = "/" And isActive ("/issues-action/take-political-action-4687.htm") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("/issues-action/take-political-action-4687.htm", "1") = "/" AND isActive ("/issues-action/take-political-action-4687.htm") AND depth < 3 Then %> <% depth=depth+1 Select Case depth Case 1 'to know if there is a subnav subExists4624 = true %> Take Political Action Take Political Action Take Political Action Take Political Action <% Case 2 %> <% 'if last item, switch bottom gray line counter3 = 0 counter3 = counter3 + 1 'http://www.ppaction.org/network/leg-lookup/search.html counter3 = counter3 + 1 'http://www.ppaction.org/network/join counter3 = counter3 + 1 '/issues-action/take-political-action/republican-get-involved-4627.htm counter3 = counter3 + 1 '/issues-action/take-political-action/youth-speak-out-4628.htm 'response.write counter3 counter3list = 1 Case 3 %> <% End Select %> <% Select Case depth Case 1 If Left("http://www.ppaction.org/network/leg-lookup/search.html", "1") = "/" And isActive ("http://www.ppaction.org/network/leg-lookup/search.html") 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.ppaction.org/network/leg-lookup/search.html", "1") = "/" And isActive ("http://www.ppaction.org/network/leg-lookup/search.html") 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 highestNavLevel4624 = true If Left("http://www.ppaction.org/network/leg-lookup/search.html", "1") = "/" And isActive ("http://www.ppaction.org/network/leg-lookup/search.html") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("http://www.ppaction.org/network/leg-lookup/search.html", "1") = "/" AND isActive ("http://www.ppaction.org/network/leg-lookup/search.html") AND depth < 3 Then %> <% End If %> <% Select Case depth Case 1 If Not (Left("http://www.ppaction.org/network/leg-lookup/search.html", "1") = "/" AND isActive ("http://www.ppaction.org/network/leg-lookup/search.html")) Then %> <% End If Case 2 If Left("http://www.ppaction.org/network/leg-lookup/search.html", "1") = "/" AND isActive ("http://www.ppaction.org/network/leg-lookup/search.html") Then 'If counter3list < counter3 Then %> <% 'End If Else %> <% '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("http://www.ppaction.org/network/join", "1") = "/" And isActive ("http://www.ppaction.org/network/join") 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.ppaction.org/network/join", "1") = "/" And isActive ("http://www.ppaction.org/network/join") 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 highestNavLevel4624 = true If Left("http://www.ppaction.org/network/join", "1") = "/" And isActive ("http://www.ppaction.org/network/join") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("http://www.ppaction.org/network/join", "1") = "/" AND isActive ("http://www.ppaction.org/network/join") AND depth < 3 Then %> <% End If %> <% Select Case depth Case 1 If Not (Left("http://www.ppaction.org/network/join", "1") = "/" AND isActive ("http://www.ppaction.org/network/join")) Then %> <% End If Case 2 If Left("http://www.ppaction.org/network/join", "1") = "/" AND isActive ("http://www.ppaction.org/network/join") Then 'If counter3list < counter3 Then %> <% 'End If Else %> <% '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("/issues-action/take-political-action/republican-get-involved-4627.htm", "1") = "/" And isActive ("/issues-action/take-political-action/republican-get-involved-4627.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("/issues-action/take-political-action/republican-get-involved-4627.htm", "1") = "/" And isActive ("/issues-action/take-political-action/republican-get-involved-4627.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 highestNavLevel4627 = true If Left("/issues-action/take-political-action/republican-get-involved-4627.htm", "1") = "/" And isActive ("/issues-action/take-political-action/republican-get-involved-4627.htm") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("/issues-action/take-political-action/republican-get-involved-4627.htm", "1") = "/" AND isActive ("/issues-action/take-political-action/republican-get-involved-4627.htm") AND depth < 3 Then %> <% depth=depth+1 Select Case depth Case 1 'to know if there is a subnav subExists4629 = true %> Find Your Elected Officials Find Your Elected Officials Find Your Elected Officials Find Your Elected Officials Find Your Elected Officials Find Your Elected Officials Join the Action Network Join the Action Network Join the Action Network Join the Action Network Join the Action Network Join the Action Network Republican? Get Involved Republican? Get Involved Republican? Get Involved Republican? Get Involved <% 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 %> Republican? Get Involved Republican? Get Involved Youth Speak Out Youth Speak Out Youth Speak Out Youth Speak Out <% Case 2 %> <% 'if last item, switch bottom gray line counter3 = 0 counter3 = counter3 + 1 '/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm 'response.write counter3 counter3list = 1 Case 3 %> <% End Select %> <% Select Case depth Case 1 If Left("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm", "1") = "/" And isActive ("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.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("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm", "1") = "/" And isActive ("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.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 highestNavLevel4638 = true If Left("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm", "1") = "/" And isActive ("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm", "1") = "/" AND isActive ("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm") AND depth < 3 Then %> <% End If %> <% Select Case depth Case 1 If Not (Left("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm", "1") = "/" AND isActive ("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm")) Then %> <% End If Case 2 If Left("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm", "1") = "/" AND isActive ("/issues-action/take-political-action/youth-speak-out/college-campus-groups-4638.htm") Then 'If counter3list < counter3 Then %> <% 'End If Else %> <% '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 %> College Campus Groups College Campus Groups College Campus Groups College Campus Groups College Campus Groups College Campus Groups <% case 2 %> Youth Speak Out Youth Speak Out <% case 2 %> Take Political Action Take Political Action Abortion Issues Abortion Issues Abortion Issues Abortion Issues <% Case 2 %> <% 'if last item, switch bottom gray line counter3 = 0 counter3 = counter3 + 1 '/issues-action/abortion/anti-choice-activity-19945.htm counter3 = counter3 + 1 '/issues-action/abortion/abortion-ban-home-14345.htm counter3 = counter3 + 1 '/issues-action/abortion/state-abortion-restrictions-19943.htm counter3 = counter3 + 1 '/issues-action/abortion/freedom-of-choice-act-19942.htm counter3 = counter3 + 1 '/issues-action/abortion/mandatory-parental-involvement-19941.htm counter3 = counter3 + 1 '/issues-action/abortion/roe-v-wade-19940.htm counter3 = counter3 + 1 '/issues-action/abortion/abortion-around-the-world-19939.htm 'response.write counter3 counter3list = 1 Case 3 %> <% End Select %> <% Select Case depth Case 1 If Left("/issues-action/abortion/anti-choice-activity-19945.htm", "1") = "/" And isActive ("/issues-action/abortion/anti-choice-activity-19945.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("/issues-action/abortion/anti-choice-activity-19945.htm", "1") = "/" And isActive ("/issues-action/abortion/anti-choice-activity-19945.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 highestNavLevel19945 = true If Left("/issues-action/abortion/anti-choice-activity-19945.htm", "1") = "/" And isActive ("/issues-action/abortion/anti-choice-activity-19945.htm") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("/issues-action/abortion/anti-choice-activity-19945.htm", "1") = "/" AND isActive ("/issues-action/abortion/anti-choice-activity-19945.htm") AND depth < 3 Then %> <% depth=depth+1 Select Case depth Case 1 'to know if there is a subnav subExists19946 = true %> Anti-Choice Activity Anti-Choice Activity Anti-Choice Activity Anti-Choice Activity <% Case 2 %> <% 'if last item, switch bottom gray line counter3 = 0 counter3 = counter3 + 1 '/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp counter3 = counter3 + 1 '/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm 'response.write counter3 counter3list = 1 Case 3 %> <% End Select %> <% Select Case depth Case 1 If Left("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp", "1") = "/" And isActive ("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp") 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("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp", "1") = "/" And isActive ("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp") 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 highestNavLevel19947 = true If Left("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp", "1") = "/" And isActive ("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp", "1") = "/" AND isActive ("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp") AND depth < 3 Then %> <% End If %> <% Select Case depth Case 1 If Not (Left("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp", "1") = "/" AND isActive ("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp")) Then %> <% End If Case 2 If Left("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp", "1") = "/" AND isActive ("/issues-action/abortion/anti-choice-activity/reports-resources-19947.asp") Then 'If counter3list < counter3 Then %> <% 'End If Else %> <% '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("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm", "1") = "/" And isActive ("/issues-action/abortion/anti-choice-activity/personal-stories-20079.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("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm", "1") = "/" And isActive ("/issues-action/abortion/anti-choice-activity/personal-stories-20079.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 highestNavLevel20079 = true If Left("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm", "1") = "/" And isActive ("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> <% If Left("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm", "1") = "/" AND isActive ("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm") AND depth < 3 Then %> <% End If %> <% Select Case depth Case 1 If Not (Left("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm", "1") = "/" AND isActive ("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm")) Then %> <% End If Case 2 If Left("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm", "1") = "/" AND isActive ("/issues-action/abortion/anti-choice-activity/personal-stories-20079.htm") Then 'If counter3list < counter3 Then %> <% 'End If Else %> <% '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 %> Reports & Resources Reports & Resources Reports & Resources Reports & Resources Reports & Resources Reports & Resources Personal Stories Personal Stories Personal Stories Personal Stories Personal Stories Personal Stories <% case 2 %> Anti-Choice Activity Anti-Choice Activity Federal Abortion Ban Federal Abortion Ban Federal Abortion Ban Federal Abortion Ban <% Case 2 %> <% 'if last item, switch bottom gray line counter3 = 0 counter3 = counter3 + 1 '/issues-action/abortion/federal-abortion-ban/reports-resources-20084.asp counter3 = counter3 + 1 '/issues-action/abortion/federal-abortion-ban/stories-14348.htm 'response.write counter3 counter3list = 1 Case 3 %> <% End Select %> <% Select Case depth Case 1 If Left("/issues-action/abortion/federal-abortion-ban/reports-resources-20084.asp", "1") = "/" And isActive ("/issues-action/abortion/federal-abortion-ban/reports-resources-20084.asp") 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("/issues-action/abortion/federal-abortion-ban/reports-resources-20084.asp", "1") = "/" And isActive ("/issues-action/abortion/federal-abortion-ban/reports-resources-20084.asp") 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 highestNavLevel20084 = true If Left("/issues-action/abortion/federal-abortion-ban/reports-resources-20084.asp", "1") = "/" And isActive ("/issues-action/abortion/federal-abortion-ban/reports-resources-20084.asp") Then 'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted %> <% Else %> <% End If End Select %> Reports and Resources Reports and Resources Reports and Resources Reports and Resources