IC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<%
'populate left nav name
sNavTitle = "Elections & Politics"
Function getBodyStyleID()
'
End Function
Function getTitle()
'
End Function
Function getTitleTag()
'
End Function
Function featureImage()
'
End Function
Function featureHeadline()
'
End Function
Function featureText()
'
End Function
Function featureAnchor()
'
End Function
Function featureTarget()
'
End Function
Function featureLinkText()
'
End Function
Function isC4Home()
'
End Function
Function displayLeftNav()
'
End Function
%>
<% If "" <> "" Then %>
<%=getTitleTag()%> - Planned Parenthood Action Center
<% End If %>
<% If "ENG" <> "ENG" Then %>
<% Else %>
<% End If %>
<% If "getBodyStyleID()" <> "" Then %>
<% Else %>
<% End If %>
<%
'This is the breadcrumb string for highlighting the menu
Dim strParentPages
strParentPages="/elections-politics/voter-guide-endorsements-797.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("/elections-politics/voter-guide-endorsements-797.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
'
%>
<% If isC4Home <> "yes" Then %>
<% if isC4 = "yes" then %><% else %>
<% else %><% end if %>Planned Parenthood® Action Center
<% If featureImage <> "" Then %>
<% If featureImage <> "" Then %> %>)
<% End If %>
<% if featureHeadline <> "" OR featureText <> "" OR (featureLinkText <> "" AND featureAnchor <> "") Then %>
<% If isLanding = "yes" Then %>
<% If featureText <> "" Then %><% response.write(featureText) %><% End If %>
<% If featureImage <> "" Then %><% End If %>
<% End If %>
<% If displayLeftNav <> "no" Then %>
<% Else %>
<% End If %>
<% Else %>
<% End If %>
<% If featureHeadline <> "" Then %>
<% end if %><% response.write(featureHeadline) %>
<% End If %> <% If featureText <> "" Then %><% response.write(featureText) %>
<% End If %> <% If featureAnchor <> "" AND featureLinkText <> "" Then %> <% End If %><% If featureHeadline <> "" Then %><% response.write(featureHeadline) %><% End If %>
<% If featureText <> "" Then %><% response.write(featureText) %><% End If %> 
<%
Dim Depth
Depth=0
%>
Elections & Politics
-
<%
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("http://www.plannedparenthoodaction.org/elections-politics/2010-elections-map.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("http://www.plannedparenthoodaction.org/elections-politics/2010-elections-map.htm") then
status = current
End If
%>
- <%
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("/elections-politics/press-releases-60.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("/elections-politics/press-releases-60.htm") then
status = current
End If
%>
- <%
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("/elections-politics/cecile-richards-53.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("/elections-politics/cecile-richards-53.htm") then
status = current
End If
%>