IN.gov - Skip Navigation

Note: This message is displayed if (1) your browser is not standards-compliant or (2) you have you disabled CSS. Read our Policies for more information.


Mobile Site RSS Feeds
Amber Alert
Amber Alert - TEST
C "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <% foundation_sessionKey = "" foundation_projectGUID = "D9CBC668047D460B98EE9D885871407D" foundation_pageParentPath = "/dnr/2331.htm|/dnr/outdoor/2604.htm|/dnr/outdoor/4237.htm|/dnr/outdoor/4452.htm" foundation_pageTitle = "Bicycle Road Routes" foundation_pageID = "4452" foundation_pageIDTC = "4452" foundation_pageGUID = "2EE08C5DAB494E4D87463729961F9458" foundation_pageGUIDTC = "2EE08C5DAB494E4D87463729961F9458" fp_inexistentPageGUID = getPageGuidFromLink( "" ) fp_subListCounter = 0 %> <% ' +--------------------------------------------------------------------------------------------+ ' | General Settings | ' +--------------------------------------------------------------------------------------------+ ' Here are any ASP based settings that might be tweaked for easy project administration ' setting_openAllMenus: when this is true, then for the current open section all sub menus will be expanded automatically setting_openAllMenus = false ' setting_boldLinkPath: When enabled, all links leading to current page are bolded setting_boldLinkPath = true ' setting_disableCurrentLink: Should the link for the current page be disabled? setting_disableCurrentLink = true ' setting_boldCurrentLink: Should current link be bolded (if boldLinkPath is enabled, this option is ignored). ' This setting is meant to allow bolding of current link even if linkPath is not bolded. setting_boldCurrentLink = true ' +--------------------------------------------------------------------------------------------+ ' | Navigation Logic | ' +--------------------------------------------------------------------------------------------+ Dim strParentPages strParentPages = foundation_pageParentPath If foundation_sessionKey <> "" Then 'Preview Mode Token="&" Else 'Published Token=" " End If 'FUNCTION TO CHECK IF NAV ITEMS IS "ACTIVE" Function isActive(strURL) 'Checks if strURL 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 'Test if a Target Container is in use on this Web page & set page title dim pageTitle pageTitle = "" If foundation_pageID <> foundation_pageIDTC Then 'display headline of body-page pageTitle = getPageName( foundation_pageGUIDTC ) Else pageTitle = foundation_pageTitle End If 'Check current page ID, used to highlight nav dim pageID pageID = foundation_pageID set objIO = Server.CreateObject("RDCMSASP.RdPageData") objIO.XmlServerClassName = "RDCMSServer.XmlServer" set objXMLDOM = Server.CreateObject("Microsoft.XMLDOM") ' Set session ID once sessKey = getSessionKey("publisher", "publisher") function countElements( obj ) if isObject( obj ) or isArray( obj ) then count = 0 for each o in obj count = count + 1 next countElements = count else countElements = -1 end if end function function getLinkGUID( pageGUID, elemName ) ' Using this RQL XML string, fetch all elements on this page xmlString = "" resXML = objIO.ServerExecuteXML( xmlString, sError ) objXMLDOM.LoadXml( resXML ) ' Extract all elements from RedDot XML result set elements = objXMLDOM.getElementsByTagName("LINK") res = "" for each elem in elements eName = elem.getAttribute( "name" ) eGUID = elem.getAttribute( "guid" ) if strComp( eName, elemName, 1 ) = 0 then res = eGUID ' If we found an element by the required name, no more searching is necessary exit for end if next getLinkGUID = res end function function getPageName( pageGUID ) ' Using this RQL XML string, fetch all elements on this page xmlString = "" resXML = objIO.ServerExecuteXML( xmlString, sError ) objXMLDOM.LoadXml( resXML ) ' Extract all elements from RedDot XML result set elements = objXMLDOM.getElementsByTagName("PAGE") res = "" for each elem in elements res = elem.getAttribute( "headline" ) exit for ' Just need one iteration in this case (not an array, so can't just access element 0) next getPageName = res end function function getSessionKey( username, password ) 'if sessKey <> "" then ' sessionKey = sessKey 'elseif foundation_sessionKey = "" then xmlString = "" resXML = objIO.ServerExecuteXML( xmlString, sError ) loginGUID = objIO.getAttribute("LOGIN","guid", resXML) xmlString = "" &_ "" resXML = objIO.ServerExecuteXML( xmlString, sError ) sessionKey = objIO.getAttribute("SERVER", "key", resXML) 'else ' sessionKey = foundation_sessionKey 'end if getSessionKey = sessionKey end function function getPageGUIDFromLink( link ) dim pos pos = InStr(link, "&pageguid=") if pos = 0 then getPageGUIDFromLink = "" else getPageGUIDFromLink = Mid(link, pos+10, 32) end if end function function isLinkEmpty( link, emptyLinkGUID ) dim linkPageGUID linkPageGUID = getPageGUIDFromLink( link ) if emptyLinkGUID = linkPageGUID AND ( emptyLinkGUID <> "" OR link = "" ) then isLinkEmpty = true else isLinkEmpty = false end if end function 'Set Global Variables isActiveDefined = true isCurrentDefined = true 'Checks if we are in preview or publication modes; logic is slightly different for each If "" <> "" Then 'Preview Mode Token="&" Else 'Publication mode Token=" " End If 'FUNCTION TO CHECK IF NAV ITEMS IS "ACTIVE" Function isActive(strURL) 'Checks if strURL 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 is the current page If instr(strURL, Token & "pageguid=") > 0 Then If inStr("/dnr/outdoor/4452.htm", Mid(strURL, inStrRev(strURL, Token & "pageguid="), 42)) > 0 Then isCurrent=True Else isCurrent=False End If Else isCurrent=False End If End Function %> <% ' 11 fp_optionReplaceNavigation = "" fp_activePageGUID = "" fp_displaySectionRightContent = "0" fp_displayHomeRightContent = "0" if isActive( "/dnr/index.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "BACEB8EEA7E0403786DCDECC1ED9C018" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/5050.htm" ) then fp_optionReplaceNavigation = "" fp_activePageGUID = "12EF5D5AE1E14809B66EE8169872ADA2" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2340.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "F44697A59EC640B481A6F2A39A5785A4" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2339.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "1F123BC32AEB4794BC1A37D1B47CFFA5" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2338.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "3D07B10422C44B47BE0392C6FE866DA1" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2337.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "728FCAC29E1D4FF58D9A19173644E822" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2336.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "9E2EE3BE04314FB481CB34F216CD9375" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2335.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "B2A27D2AD90747AEA43F0D2A10201039" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2334.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "741B5C30513E4280AF257901C788FCAB" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2333.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "92642025B9EC459DB27C56F2D472D668" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2332.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "F4C19CD44B704FE7841E78308261A21E" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2331.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "86FCA948478447C48BF240FDAC9401EB" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2330.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "D8DEECBCE9D045818F8FE49C7FC923F5" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2463.htm" ) then fp_optionReplaceNavigation = "" fp_activePageGUID = "EA263CE636A346D6AA78773D9A33D08A" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2329.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "373DD2E43790433882A6C176ADB3D310" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/2328.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "4B785684BB914D95A6E2A76411A0BCD4" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if if isActive( "/dnr/4721.htm" ) then fp_optionReplaceNavigation = "replace" fp_activePageGUID = "C5DA4950AB524BAEA83ED706E66837F7" fp_displaySectionRightContent = Right("11",1) fp_displayHomeRightContent = Left("11",1) end if fp_isSectionPage = false fp_isHomePage = false if fp_activePageGUID = foundation_pageGUID then fp_isSectionPage = true elseif fp_activePageGUID = "" then fp_isHomePage = true end if %> <% if ("DNR" <> "Bicycle Road Routes") then %> DNR: Bicycle Road Routes <% else %> DNR: Home <% end if %> <% if ("" <> "") then %> <% else %> <% end if %>

IN.gov - Skip Navigation

Note: This message is displayed if (1) your browser is not standards-compliant or (2) you have you disabled CSS. Read our Policies for more information.

<% if ("" <> "") then %> <% else %> <%= " DNR: Outdoor Recreation Home

IN.gov - Skip Navigation

Note: This message is displayed if (1) your browser is not standards-compliant or (2) you have you disabled CSS. Read our Policies for more information.



Stay Connected

You are leaving the IN.gov website. By clicking OK, you will be taken to a website that is not affiliated with the State of Indiana and may have different privacy and security policies. The State of Indiana is not responsible for, and does not endorse, guarantee, or monitor content, availability, viewpoints, products, or services that are offered or expressed on this non IN.gov portal website.

2010 U.S. Census for Indiana