>
<% Function getHeadline()
'
End Function
Function getAffiliateName()
'
End Function
Function getKeywords()
'
End Function
dim color
if InStr("/style_violet.css","D9290626179A49B8A96E9A9808D63698")>0 or InStr("/style_violet.css","gold")>0 then
color="gold"
elseif InStr("/style_violet.css","335B15B9F7A0486E862B7FA09CBB8C62")>0 or InStr("/style_violet.css","aqua")>0 then
color="aqua"
elseif InStr("/style_violet.css","E9B16127888242399315B9C1EFBA2E76")>0 or InStr("/style_violet.css","violet")>0 then
color="violet"
elseif InStr("/style_violet.css","560F9C6EFA174898B558C134F4BCC5F6")>0 or InStr("/style_violet.css","pink")>0 then
color="pink"
elseif InStr("/style_violet.css","D3EC501DFCFF4E4882582478ECECE16E")>0 or InStr("/style_violet.css","blue")>0 then
color="blue"
elseif InStr("/style_violet.css","7DDDECB1CBA642B08F5B13949460B956")>0 or InStr("/style_violet.css","lime")>0 then
color="lime"
else
color="default"
end if
%>
Planned Parenthood - <!IoRangePreExecute><%=getHeadline()%><!/IoRangePreExecute>
<%
'populate left nav name
sNavTitle = "Local News & Events"
'This is the breadcrumb string for highlighting the menu
Dim strParentPages
strParentPages="/nassau-county/event-calendar.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("/nassau-county/event-calendar.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
'
%>
<%
Dim counter
counter=0
%>
<%
If counter>0 Then
%>
<%
Else
%>
<%
End If
counter=counter+1
%>
<%
If Left("/nassau-county/Who-We-Are.htm", "1") = "/" And isActive("/nassau-county/Who-We-Are.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
Who We Are
<%
Else
%>
Who We Are
<%
End If
%>
<%
If counter>0 Then
%>
<%
Else
%>
<%
End If
counter=counter+1
%>
<%
If Left("/nassau-county/Our-Health-Services.htm", "1") = "/" And isActive("/nassau-county/Our-Health-Services.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
Our Health Services
<%
Else
%>
Our Health Services
<%
End If
%>
<%
If "true" = "true" Then
%>
<%
If Left("/nassau-county/Local-News-and-Events.htm", "1") = "/" And isActive("/nassau-county/Local-News-and-Events.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
Local News & Events
<%
Else
%>
Local News & Events
<%
End If
%>
<%
Else
%>
<%
End If
%>
<%
If "true" = "true" Then
%>
<%
If Left("/nassau-county/Local-Worskhops-and-Outreach.htm", "1") = "/" And isActive("/nassau-county/Local-Worskhops-and-Outreach.htm") Then
'if the link has no trailing slash, it's considered to be an external link and therefore must not be highlighted
%>
Local Worskhops & Outreach
<%
Else
%>
Local Worskhops & Outreach
<%
End If
%>
<%
End If
%>
<%
If isActive("/nassau-county/get-the-facts-about-prostate-cancer.htm") Then
%>
<%
select case color
case "blue"
sDivColor = "#a1aab3"
%>
<%
End If
%>
<%
If isActive("/nassau-county/are-you-positive-youre-not-positive.htm") Then
%>
<%
select case color
case "blue"
sDivColor = "#a1aab3"
%>
<%
End If
%>
<%
If isActive("/nassau-county/may-is-teen-pregnancy-prevention-month.htm") Then
%>
<%
select case color
case "blue"
sDivColor = "#a1aab3"
%>
