> <% 'This is the breadcrumb string for highlighting the menu Dim strParentPages, intDepth strParentPages="/teen-talk/index.htm|/teen-talk/ask/sex-masturbation-25541.htm|/teen-talk/ask/sex-masturbation/teen-sexual-violence-26059.htm|/teen-talk/ask/sex-masturbation/teen-sexual-violence/teen-sexual-violence-archive-26077.htm|/teen-talk/ask/sex-masturbation/teen-sexual-violence/raped-im-scared-could-be-pregnant-or-have-an-std-how-can-handle-this-26231.htm" intDepth = getDepth(strParentPages) dim strWrapperFlag 'strWrapperFlag is used to determine whether or not to display the wrapper when a promo page is being edited in RedDot. 'if it is an empty string, then a generic wrapper will be displayed for each promo page. 'assign a value to this string in foundation pages to prevent this when a wrapper is already being used. -alan, 3/13/09 strWrapperFlag = "wrapper" %> <% Function getHeadline() ' End Function Function SecSection() ' End Function Function AskSelected() ' End Function If "" <> "" Then %> <% Else %> <%=getHeadline()%>Planned Parenthood <% End If %> <% Function getBodyStyleClass() ' End Function Function headerImage() ' End Function Function getTitle() ' End Function Function getMainClass() ' End Function %> <% If "getBodyStyleClass()" <> "" Then %> <% Else %> <% End If %>
    <% ' '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("/teen-talk/ask/sex-masturbation/teen-sexual-violence/raped-im-scared-could-be-pregnant-or-have-an-std-how-can-handle-this-26231.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 (("" = "/teen-talk/ask/sex-masturbation/teen-sexual-violence/raped-im-scared-could-be-pregnant-or-have-an-std-how-can-handle-this-26231.htm") or (trim("") = "")) then 'link to homepage if no corresponding page in alternate language exists strUrlAltLang = "http://www.plannedparenthood.org/esp/" else strUrlAltLang = "" end if Else 'sp environment, eng link if (("" = "/teen-talk/ask/sex-masturbation/teen-sexual-violence/raped-im-scared-could-be-pregnant-or-have-an-std-how-can-handle-this-26231.htm") or (trim("") = "")) then 'link to homepage if no corresponding page in alternate language exists strUrlAltLang = "http://www.plannedparenthood.org/" else strUrlAltLang = "/teen-talk/ask/sex-masturbation/teen-sexual-violence/raped-im-scared-could-be-pregnant-or-have-an-std-how-can-handle-this-26231.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 = "" %>
    ">
      <% Dim Depth Depth=0 %> <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("/teen-talk/dating-family-friends-25035.htm") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/dating-family-friends-25035.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("/teen-talk/dating-family-friends-25035.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "/teen-talk/teen-images/teen_banner-family-friends.jpg" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/dating-family-friends-25035.htm" carryTitle = "Dating, Family & Friends " response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/dating-family-friends-25035.htm") Then %> > Dating, Family & Friends <% ElseIf depth = 2 AND isActive("/teen-talk/dating-family-friends-25035.htm") Then %>
    • Dating, Family & Friends <% Else %>
    • Dating, Family & Friends <% End If %> <% highestNavLevel25035 = true If isActive("/teen-talk/dating-family-friends-25035.htm") and depth < 3 Then %>
        <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("/teen-talk/dating-family-friends/dating-hooking-up-25046.htm") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/dating-family-friends/dating-hooking-up-25046.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("/teen-talk/dating-family-friends/dating-hooking-up-25046.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/dating-family-friends/dating-hooking-up-25046.htm" carryTitle = "Dating & Hooking Up" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/dating-family-friends/dating-hooking-up-25046.htm") Then %> > Dating & Hooking Up <% ElseIf depth = 2 AND isActive("/teen-talk/dating-family-friends/dating-hooking-up-25046.htm") Then %>
      • Dating & Hooking Up <% Else %>
      • Dating & Hooking Up <% End If %> <% highestNavLevel25046 = true If isActive("/teen-talk/dating-family-friends/dating-hooking-up-25046.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25046 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/dating-family-friends/family-25045.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("/teen-talk/dating-family-friends/family-25045.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/dating-family-friends/family-25045.htm" carryTitle = "Family" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/dating-family-friends/family-25045.htm") Then %> > Family <% ElseIf depth = 2 AND isActive("/teen-talk/dating-family-friends/family-25045.htm") Then %>
      • Family <% Else %>
      • Family <% End If %> <% highestNavLevel25045 = true If isActive("/teen-talk/dating-family-friends/family-25045.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25045 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/dating-family-friends/friends-25044.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("/teen-talk/dating-family-friends/friends-25044.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/dating-family-friends/friends-25044.htm" carryTitle = "Friends" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/dating-family-friends/friends-25044.htm") Then %> > Friends <% ElseIf depth = 2 AND isActive("/teen-talk/dating-family-friends/friends-25044.htm") Then %>
      • Friends <% Else %>
      • Friends <% End If %> <% highestNavLevel25044 = true If isActive("/teen-talk/dating-family-friends/friends-25044.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25044 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/dating-family-friends/teen-sexual-violence-25043.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("/teen-talk/dating-family-friends/teen-sexual-violence-25043.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/dating-family-friends/teen-sexual-violence-25043.htm" carryTitle = "Teen Sexual Violence" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/dating-family-friends/teen-sexual-violence-25043.htm") Then %> > Teen Sexual Violence <% ElseIf depth = 2 AND isActive("/teen-talk/dating-family-friends/teen-sexual-violence-25043.htm") Then %>
      • Teen Sexual Violence <% Else %>
      • Teen Sexual Violence <% End If %> <% highestNavLevel25043 = true If isActive("/teen-talk/dating-family-friends/teen-sexual-violence-25043.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25043 = true %> <% End If %>
        • <% If NOT isActive("/teen-talk/dating-family-friends/dating-hooking-up-25046.htm") AND depth = 3 Then %> <% End If %>
      <% subExists25035 = true %> <% End If %>
      • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind-25034.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("/teen-talk/body-mind-25034.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "/teen-talk/teen-images/teen_banner-body-mind.jpg" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind-25034.htm" carryTitle = "Body & Mind" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind-25034.htm") Then %> > Body & Mind <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind-25034.htm") Then %>
    • Body & Mind <% Else %>
    • Body & Mind <% End If %> <% highestNavLevel25034 = true If isActive("/teen-talk/body-mind-25034.htm") and depth < 3 Then %>
        <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("/teen-talk/body-mind/anatomy-25055.htm") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind/anatomy-25055.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("/teen-talk/body-mind/anatomy-25055.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind/anatomy-25055.htm" carryTitle = "Anatomy" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind/anatomy-25055.htm") Then %> > Anatomy <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind/anatomy-25055.htm") Then %>
      • Anatomy <% Else %>
      • Anatomy <% End If %> <% highestNavLevel25055 = true If isActive("/teen-talk/body-mind/anatomy-25055.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25055 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind/teens-menstrual-periods-25054.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("/teen-talk/body-mind/teens-menstrual-periods-25054.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind/teens-menstrual-periods-25054.htm" carryTitle = "Teens & Menstrual Periods" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind/teens-menstrual-periods-25054.htm") Then %> > Teens & Menstrual Periods <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind/teens-menstrual-periods-25054.htm") Then %>
      • Teens & Menstrual Periods <% Else %>
      • Teens & Menstrual Periods <% End If %> <% highestNavLevel25054 = true If isActive("/teen-talk/body-mind/teens-menstrual-periods-25054.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25054 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind/puberty-body-changes-25053.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("/teen-talk/body-mind/puberty-body-changes-25053.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind/puberty-body-changes-25053.htm" carryTitle = "Puberty & Body Changes" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind/puberty-body-changes-25053.htm") Then %> > Puberty & Body Changes <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind/puberty-body-changes-25053.htm") Then %>
      • Puberty & Body Changes <% Else %>
      • Puberty & Body Changes <% End If %> <% highestNavLevel25053 = true If isActive("/teen-talk/body-mind/puberty-body-changes-25053.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25053 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind/going-doctor-25052.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("/teen-talk/body-mind/going-doctor-25052.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind/going-doctor-25052.htm" carryTitle = "Going to the Doctor" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind/going-doctor-25052.htm") Then %> > Going to the Doctor <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind/going-doctor-25052.htm") Then %>
      • Going to the Doctor <% Else %>
      • Going to the Doctor <% End If %> <% highestNavLevel25052 = true If isActive("/teen-talk/body-mind/going-doctor-25052.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25052 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind/my-body-normal-25051.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("/teen-talk/body-mind/my-body-normal-25051.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind/my-body-normal-25051.htm" carryTitle = "Is My Body Normal?" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind/my-body-normal-25051.htm") Then %> > Is My Body Normal? <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind/my-body-normal-25051.htm") Then %>
      • Is My Body Normal? <% Else %>
      • Is My Body Normal? <% End If %> <% highestNavLevel25051 = true If isActive("/teen-talk/body-mind/my-body-normal-25051.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25051 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind/teen-fitness-food-25050.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("/teen-talk/body-mind/teen-fitness-food-25050.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind/teen-fitness-food-25050.htm" carryTitle = "Teen Fitness & Food" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind/teen-fitness-food-25050.htm") Then %> > Teen Fitness & Food <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind/teen-fitness-food-25050.htm") Then %>
      • Teen Fitness & Food <% Else %>
      • Teen Fitness & Food <% End If %> <% highestNavLevel25050 = true If isActive("/teen-talk/body-mind/teen-fitness-food-25050.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25050 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind/teens-self-esteem-25049.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("/teen-talk/body-mind/teens-self-esteem-25049.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind/teens-self-esteem-25049.htm" carryTitle = "Teens & Self-Esteem" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind/teens-self-esteem-25049.htm") Then %> > Teens & Self-Esteem <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind/teens-self-esteem-25049.htm") Then %>
      • Teens & Self-Esteem <% Else %>
      • Teens & Self-Esteem <% End If %> <% highestNavLevel25049 = true If isActive("/teen-talk/body-mind/teens-self-esteem-25049.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25049 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind/depression-stress-25048.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("/teen-talk/body-mind/depression-stress-25048.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind/depression-stress-25048.htm" carryTitle = "Depression & Stress" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind/depression-stress-25048.htm") Then %> > Depression & Stress <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind/depression-stress-25048.htm") Then %>
      • Depression & Stress <% Else %>
      • Depression & Stress <% End If %> <% highestNavLevel25048 = true If isActive("/teen-talk/body-mind/depression-stress-25048.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25048 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/body-mind/alcohol-drugs-smoking-25047.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("/teen-talk/body-mind/alcohol-drugs-smoking-25047.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/body-mind/alcohol-drugs-smoking-25047.htm" carryTitle = "Alcohol, Drugs & Smoking" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/body-mind/alcohol-drugs-smoking-25047.htm") Then %> > Alcohol, Drugs & Smoking <% ElseIf depth = 2 AND isActive("/teen-talk/body-mind/alcohol-drugs-smoking-25047.htm") Then %>
      • Alcohol, Drugs & Smoking <% Else %>
      • Alcohol, Drugs & Smoking <% End If %> <% highestNavLevel25047 = true If isActive("/teen-talk/body-mind/alcohol-drugs-smoking-25047.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25047 = true %> <% End If %>
        • <% If NOT isActive("/teen-talk/body-mind/anatomy-25055.htm") AND depth = 3 Then %> <% End If %>
      <% subExists25034 = true %> <% End If %>
      • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/sex-masturbation-25033.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("/teen-talk/sex-masturbation-25033.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "/teen-talk/teen-images/teen_banner-Sex.jpg" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/sex-masturbation-25033.htm" carryTitle = "Sex & Masturbation" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/sex-masturbation-25033.htm") Then %> > Sex & Masturbation <% ElseIf depth = 2 AND isActive("/teen-talk/sex-masturbation-25033.htm") Then %>
    • Sex & Masturbation <% Else %>
    • Sex & Masturbation <% End If %> <% highestNavLevel25033 = true If isActive("/teen-talk/sex-masturbation-25033.htm") and depth < 3 Then %>
        <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("/teen-talk/sex-masturbation/vaginal-oral-anal-sex-25060.htm") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/sex-masturbation/vaginal-oral-anal-sex-25060.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("/teen-talk/sex-masturbation/vaginal-oral-anal-sex-25060.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/sex-masturbation/vaginal-oral-anal-sex-25060.htm" carryTitle = "Vaginal, Oral & Anal Sex" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/sex-masturbation/vaginal-oral-anal-sex-25060.htm") Then %> > Vaginal, Oral & Anal Sex <% ElseIf depth = 2 AND isActive("/teen-talk/sex-masturbation/vaginal-oral-anal-sex-25060.htm") Then %>
      • Vaginal, Oral & Anal Sex <% Else %>
      • Vaginal, Oral & Anal Sex <% End If %> <% highestNavLevel25060 = true If isActive("/teen-talk/sex-masturbation/vaginal-oral-anal-sex-25060.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25060 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/sex-masturbation/understanding-sexual-satisfaction-25059.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("/teen-talk/sex-masturbation/understanding-sexual-satisfaction-25059.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/sex-masturbation/understanding-sexual-satisfaction-25059.htm" carryTitle = "Understanding Sexual Satisfaction" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/sex-masturbation/understanding-sexual-satisfaction-25059.htm") Then %> > Understanding Sexual Satisfaction <% ElseIf depth = 2 AND isActive("/teen-talk/sex-masturbation/understanding-sexual-satisfaction-25059.htm") Then %>
      • Understanding Sexual Satisfaction <% Else %>
      • Understanding Sexual Satisfaction <% End If %> <% highestNavLevel25059 = true If isActive("/teen-talk/sex-masturbation/understanding-sexual-satisfaction-25059.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25059 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/sex-masturbation/teens-virginity-25058.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("/teen-talk/sex-masturbation/teens-virginity-25058.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/sex-masturbation/teens-virginity-25058.htm" carryTitle = "Teens & Virginity" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/sex-masturbation/teens-virginity-25058.htm") Then %> > Teens & Virginity <% ElseIf depth = 2 AND isActive("/teen-talk/sex-masturbation/teens-virginity-25058.htm") Then %>
      • Teens & Virginity <% Else %>
      • Teens & Virginity <% End If %> <% highestNavLevel25058 = true If isActive("/teen-talk/sex-masturbation/teens-virginity-25058.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25058 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/sex-masturbation/masturbating-25057.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("/teen-talk/sex-masturbation/masturbating-25057.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/sex-masturbation/masturbating-25057.htm" carryTitle = "Masturbating" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/sex-masturbation/masturbating-25057.htm") Then %> > Masturbating <% ElseIf depth = 2 AND isActive("/teen-talk/sex-masturbation/masturbating-25057.htm") Then %>
      • Masturbating <% Else %>
      • Masturbating <% End If %> <% highestNavLevel25057 = true If isActive("/teen-talk/sex-masturbation/masturbating-25057.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25057 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/sex-masturbation/other-sexual-behaviors-25056.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("/teen-talk/sex-masturbation/other-sexual-behaviors-25056.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/sex-masturbation/other-sexual-behaviors-25056.htm" carryTitle = "Other Sexual Behaviors" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/sex-masturbation/other-sexual-behaviors-25056.htm") Then %> > Other Sexual Behaviors <% ElseIf depth = 2 AND isActive("/teen-talk/sex-masturbation/other-sexual-behaviors-25056.htm") Then %>
      • Other Sexual Behaviors <% Else %>
      • Other Sexual Behaviors <% End If %> <% highestNavLevel25056 = true If isActive("/teen-talk/sex-masturbation/other-sexual-behaviors-25056.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25056 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/sex-masturbation/teen-sexual-violence-25390.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("/teen-talk/sex-masturbation/teen-sexual-violence-25390.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/sex-masturbation/teen-sexual-violence-25390.htm" carryTitle = "Teen Sexual Violence" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/sex-masturbation/teen-sexual-violence-25390.htm") Then %> > Teen Sexual Violence <% ElseIf depth = 2 AND isActive("/teen-talk/sex-masturbation/teen-sexual-violence-25390.htm") Then %>
      • Teen Sexual Violence <% Else %>
      • Teen Sexual Violence <% End If %> <% highestNavLevel25390 = true If isActive("/teen-talk/sex-masturbation/teen-sexual-violence-25390.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25390 = true %> <% End If %>
        • <% If NOT isActive("/teen-talk/sex-masturbation/vaginal-oral-anal-sex-25060.htm") AND depth = 3 Then %> <% End If %>
      <% subExists25033 = true %> <% End If %>
      • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-25029.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("/teen-talk/birth-control-25029.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "/teen-talk/teen-images/teen_banner-birth-control.jpg" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-25029.htm" carryTitle = "Birth Control" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-25029.htm") Then %> > Birth Control <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-25029.htm") Then %>
    • Birth Control <% Else %>
    • Birth Control <% End If %> <% highestNavLevel25029 = true If isActive("/teen-talk/birth-control-25029.htm") and depth < 3 Then %>
        <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("/teen-talk/birth-control-teens/teens-abstinence-25070.htm") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/teens-abstinence-25070.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("/teen-talk/birth-control-teens/teens-abstinence-25070.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/teens-abstinence-25070.htm" carryTitle = "Teens & Abstinence" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/teens-abstinence-25070.htm") Then %> > Teens & Abstinence <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/teens-abstinence-25070.htm") Then %>
      • Teens & Abstinence <% Else %>
      • Teens & Abstinence <% End If %> <% highestNavLevel25070 = true If isActive("/teen-talk/birth-control-teens/teens-abstinence-25070.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25070 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/teens-implant-25069.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("/teen-talk/birth-control-teens/teens-implant-25069.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/teens-implant-25069.htm" carryTitle = "Teens & the Implant" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/teens-implant-25069.htm") Then %> > Teens & the Implant <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/teens-implant-25069.htm") Then %>
      • Teens & the Implant <% Else %>
      • Teens & the Implant <% End If %> <% highestNavLevel25069 = true If isActive("/teen-talk/birth-control-teens/teens-implant-25069.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25069 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/teens-patch-25068.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("/teen-talk/birth-control-teens/teens-patch-25068.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/teens-patch-25068.htm" carryTitle = "Teens & the Patch" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/teens-patch-25068.htm") Then %> > Teens & the Patch <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/teens-patch-25068.htm") Then %>
      • Teens & the Patch <% Else %>
      • Teens & the Patch <% End If %> <% highestNavLevel25068 = true If isActive("/teen-talk/birth-control-teens/teens-patch-25068.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25068 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/teens-pill-25067.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("/teen-talk/birth-control-teens/teens-pill-25067.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/teens-pill-25067.htm" carryTitle = "Teens & the Pill" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/teens-pill-25067.htm") Then %> > Teens & the Pill <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/teens-pill-25067.htm") Then %>
      • Teens & the Pill <% Else %>
      • Teens & the Pill <% End If %> <% highestNavLevel25067 = true If isActive("/teen-talk/birth-control-teens/teens-pill-25067.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25067 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/teens-ring-25066.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("/teen-talk/birth-control-teens/teens-ring-25066.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/teens-ring-25066.htm" carryTitle = "Teens & the Ring" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/teens-ring-25066.htm") Then %> > Teens & the Ring <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/teens-ring-25066.htm") Then %>
      • Teens & the Ring <% Else %>
      • Teens & the Ring <% End If %> <% highestNavLevel25066 = true If isActive("/teen-talk/birth-control-teens/teens-ring-25066.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25066 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/teens-shot-25065.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("/teen-talk/birth-control-teens/teens-shot-25065.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/teens-shot-25065.htm" carryTitle = "Teens & the Shot" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/teens-shot-25065.htm") Then %> > Teens & the Shot <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/teens-shot-25065.htm") Then %>
      • Teens & the Shot <% Else %>
      • Teens & the Shot <% End If %> <% highestNavLevel25065 = true If isActive("/teen-talk/birth-control-teens/teens-shot-25065.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25065 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/teens-sponge-25064.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("/teen-talk/birth-control-teens/teens-sponge-25064.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/teens-sponge-25064.htm" carryTitle = "Teens & the Sponge" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/teens-sponge-25064.htm") Then %> > Teens & the Sponge <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/teens-sponge-25064.htm") Then %>
      • Teens & the Sponge <% Else %>
      • Teens & the Sponge <% End If %> <% highestNavLevel25064 = true If isActive("/teen-talk/birth-control-teens/teens-sponge-25064.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25064 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/teens-cervical-cap-25063.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("/teen-talk/birth-control-teens/teens-cervical-cap-25063.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/teens-cervical-cap-25063.htm" carryTitle = "Teens & the Cervical Cap" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/teens-cervical-cap-25063.htm") Then %> > Teens & the Cervical Cap <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/teens-cervical-cap-25063.htm") Then %>
      • Teens & the Cervical Cap <% Else %>
      • Teens & the Cervical Cap <% End If %> <% highestNavLevel25063 = true If isActive("/teen-talk/birth-control-teens/teens-cervical-cap-25063.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25063 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/condoms-female-condoms-25062.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("/teen-talk/birth-control-teens/condoms-female-condoms-25062.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/condoms-female-condoms-25062.htm" carryTitle = "Condoms & Female Condoms" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/condoms-female-condoms-25062.htm") Then %> > Condoms & Female Condoms <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/condoms-female-condoms-25062.htm") Then %>
      • Condoms & Female Condoms <% Else %>
      • Condoms & Female Condoms <% End If %> <% highestNavLevel25062 = true If isActive("/teen-talk/birth-control-teens/condoms-female-condoms-25062.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25062 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/emergency-contraception-ec-25061.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("/teen-talk/birth-control-teens/emergency-contraception-ec-25061.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/emergency-contraception-ec-25061.htm" carryTitle = "Emergency Contraception (EC)" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/emergency-contraception-ec-25061.htm") Then %> > Emergency Contraception (EC) <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/emergency-contraception-ec-25061.htm") Then %>
      • Emergency Contraception (EC) <% Else %>
      • Emergency Contraception (EC) <% End If %> <% highestNavLevel25061 = true If isActive("/teen-talk/birth-control-teens/emergency-contraception-ec-25061.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25061 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/birth-control-teens/teens-pull-out-method-25381.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("/teen-talk/birth-control-teens/teens-pull-out-method-25381.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/birth-control-teens/teens-pull-out-method-25381.htm" carryTitle = "Teens & the Pull-Out Method" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/birth-control-teens/teens-pull-out-method-25381.htm") Then %> > Teens & the Pull-Out Method <% ElseIf depth = 2 AND isActive("/teen-talk/birth-control-teens/teens-pull-out-method-25381.htm") Then %>
      • Teens & the Pull-Out Method <% Else %>
      • Teens & the Pull-Out Method <% End If %> <% highestNavLevel25381 = true If isActive("/teen-talk/birth-control-teens/teens-pull-out-method-25381.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25381 = true %> <% End If %>
        • <% If NOT isActive("/teen-talk/birth-control-teens/teens-abstinence-25070.htm") AND depth = 3 Then %> <% End If %>
      <% subExists25029 = true %> <% End If %>
      • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/safer-sex-stds-25032.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("/teen-talk/safer-sex-stds-25032.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "/teen-talk/teen-images/teen_banner-STDs.jpg" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/safer-sex-stds-25032.htm" carryTitle = "Safer Sex & STDs" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/safer-sex-stds-25032.htm") Then %> > Safer Sex & STDs <% ElseIf depth = 2 AND isActive("/teen-talk/safer-sex-stds-25032.htm") Then %>
    • Safer Sex & STDs <% Else %>
    • Safer Sex & STDs <% End If %> <% highestNavLevel25032 = true If isActive("/teen-talk/safer-sex-stds-25032.htm") and depth < 3 Then %>
        <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("/teen-talk/safer-sex-std/safer-sex-25078.htm") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/safer-sex-std/safer-sex-25078.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("/teen-talk/safer-sex-std/safer-sex-25078.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/safer-sex-std/safer-sex-25078.htm" carryTitle = "Safer Sex" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/safer-sex-std/safer-sex-25078.htm") Then %> > Safer Sex <% ElseIf depth = 2 AND isActive("/teen-talk/safer-sex-std/safer-sex-25078.htm") Then %>
      • Safer Sex <% Else %>
      • Safer Sex <% End If %> <% highestNavLevel25078 = true If isActive("/teen-talk/safer-sex-std/safer-sex-25078.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25078 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/safer-sex-std/std-25077.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("/teen-talk/safer-sex-std/std-25077.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/safer-sex-std/std-25077.htm" carryTitle = "STDs" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/safer-sex-std/std-25077.htm") Then %> > STDs <% ElseIf depth = 2 AND isActive("/teen-talk/safer-sex-std/std-25077.htm") Then %>
      • STDs <% Else %>
      • STDs <% End If %> <% highestNavLevel25077 = true If isActive("/teen-talk/safer-sex-std/std-25077.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25077 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/safer-sex-std/chlamydia-25076.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("/teen-talk/safer-sex-std/chlamydia-25076.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/safer-sex-std/chlamydia-25076.htm" carryTitle = "Chlamydia" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/safer-sex-std/chlamydia-25076.htm") Then %> > Chlamydia <% ElseIf depth = 2 AND isActive("/teen-talk/safer-sex-std/chlamydia-25076.htm") Then %>
      • Chlamydia <% Else %>
      • Chlamydia <% End If %> <% highestNavLevel25076 = true If isActive("/teen-talk/safer-sex-std/chlamydia-25076.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25076 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/safer-sex-std/gonorrhea-25075.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("/teen-talk/safer-sex-std/gonorrhea-25075.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/safer-sex-std/gonorrhea-25075.htm" carryTitle = "Gonorrhea" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/safer-sex-std/gonorrhea-25075.htm") Then %> > Gonorrhea <% ElseIf depth = 2 AND isActive("/teen-talk/safer-sex-std/gonorrhea-25075.htm") Then %>
      • Gonorrhea <% Else %>
      • Gonorrhea <% End If %> <% highestNavLevel25075 = true If isActive("/teen-talk/safer-sex-std/gonorrhea-25075.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25075 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/safer-sex-std/herpes-25074.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("/teen-talk/safer-sex-std/herpes-25074.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/safer-sex-std/herpes-25074.htm" carryTitle = "Herpes" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/safer-sex-std/herpes-25074.htm") Then %> > Herpes <% ElseIf depth = 2 AND isActive("/teen-talk/safer-sex-std/herpes-25074.htm") Then %>
      • Herpes <% Else %>
      • Herpes <% End If %> <% highestNavLevel25074 = true If isActive("/teen-talk/safer-sex-std/herpes-25074.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25074 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/safer-sex-std/hiv-aids-25073.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("/teen-talk/safer-sex-std/hiv-aids-25073.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/safer-sex-std/hiv-aids-25073.htm" carryTitle = "HIV/AIDS" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/safer-sex-std/hiv-aids-25073.htm") Then %> > HIV/AIDS <% ElseIf depth = 2 AND isActive("/teen-talk/safer-sex-std/hiv-aids-25073.htm") Then %>
      • HIV/AIDS <% Else %>
      • HIV/AIDS <% End If %> <% highestNavLevel25073 = true If isActive("/teen-talk/safer-sex-std/hiv-aids-25073.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25073 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/safer-sex-std/hpv-genital-warts-25072.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("/teen-talk/safer-sex-std/hpv-genital-warts-25072.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/safer-sex-std/hpv-genital-warts-25072.htm" carryTitle = "HPV & Genital Warts" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/safer-sex-std/hpv-genital-warts-25072.htm") Then %> > HPV & Genital Warts <% ElseIf depth = 2 AND isActive("/teen-talk/safer-sex-std/hpv-genital-warts-25072.htm") Then %>
      • HPV & Genital Warts <% Else %>
      • HPV & Genital Warts <% End If %> <% highestNavLevel25072 = true If isActive("/teen-talk/safer-sex-std/hpv-genital-warts-25072.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25072 = true %> <% End If %>
        • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/safer-sex-std/other-std-25071.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("/teen-talk/safer-sex-std/other-std-25071.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/safer-sex-std/other-std-25071.htm" carryTitle = "Other STDs" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/safer-sex-std/other-std-25071.htm") Then %> > Other STDs <% ElseIf depth = 2 AND isActive("/teen-talk/safer-sex-std/other-std-25071.htm") Then %>
      • Other STDs <% Else %>
      • Other STDs <% End If %> <% highestNavLevel25071 = true If isActive("/teen-talk/safer-sex-std/other-std-25071.htm") and depth < 3 Then %>
          <% Depth = Depth + 1 response.write "" & vbVRLF default = "" active = " class='active'" current = " class='active'" 'If depth > 1 and isCurrent("") Then %> <% If depth < 3 Then %> <% End If 'End If %> <% If NOT isActive("") AND depth = 3 Then %> <% End If %>
        <% subExists25071 = true %> <% End If %>
        • <% If NOT isActive("/teen-talk/safer-sex-std/safer-sex-25078.htm") AND depth = 3 Then %> <% End If %>
      <% subExists25032 = true %> <% End If %>
      • <% 'set default state status = default 'is the link a parent page if isActive("/teen-talk/teen-pregnancy-25031.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("/teen-talk/teen-pregnancy-25031.htm") then status = current End If %> <% If depth = 1 Then ' This is what passes the top image for each section along with the class setting for that image carryImage = "/teen-talk/teen-images/teen_banner-pregnancy.jpg" response.write("" & vbVRLF) End If If depth = 2 Then ' This passes the breadcrumb link from depth 2 to depth 3 carryLink = "/teen-talk/teen-pregnancy-25031.htm" carryTitle = "Teen Pregnancy" response.write("" & vbVRLF) End If %> <% If depth = 1 AND isActive("/teen-talk/teen-pregnancy-25031.htm") Then %> > Teen Pregnancy <% ElseIf depth = 2 AND isActive("/teen-talk/teen-pregnancy-25031.htm") Then %>
    • Teen Pregnancy <% Else %>
    • Teen Pregnancy <% End If %> <% highestNavLevel25031 = true If isActive("/teen-talk/teen-pregnancy-25031.htm") and depth < 3 Then %>