Topic	<% displayMenu = 1 %> <% '--------------------------------------------------------------- 'This code prints out "pre-formatting" - once at the very beginning bFoundCurrentOrActive = false if count = 0 then menuLevel = 1 resp = "" respCount = 0 end if '--------------------------------------------------------------- 'This code inserts red dots in smart edit mode '--------------------------------------------------------------- 'Below we start processing the list of pages connected to this selector nav %><% listcheck = "http://www.gesb.com.au/index_1476.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_774.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_856.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_1482.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_1483.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_746.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_1481.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_750.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_752.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_antidetrimentfaqs.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_718.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% '--------------------------------------------------------------- 'This code prints out "post-formatting" - once at the very end if displayMenu = 1 and menuLevel = 1 then if (respCount > 0 and bFoundCurrentOrActive = false) then resp = "" & vbCrLf & resp respCount = respCount + 1 end if end if if displayMenu = 2 and menuLevel = 2 then if (respCount > 0 and bFoundCurrentOrActive = false) then resp = "" & vbCrLf & resp respCount = respCount + 1 end if end if if count = 0 then if displayMenu = 1 then if respCount > 0 then response.write "" & vbCrLf end if end if if displayMenu = 2 then if respCount > 0 then response.write "" & vbCrLf end if end if if respCount > 0 then response.write resp end if response.write "" end if %>	Search
	<% displayMenu = 2 %> <% '--------------------------------------------------------------- 'This code prints out "pre-formatting" - once at the very beginning bFoundCurrentOrActive = false if count = 0 then menuLevel = 1 resp = "" respCount = 0 end if '--------------------------------------------------------------- 'This code inserts red dots in smart edit mode '--------------------------------------------------------------- 'Below we start processing the list of pages connected to this selector nav %><% listcheck = "http://www.gesb.com.au/index_1476.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_774.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_856.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_1482.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_1483.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_746.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_1481.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_750.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_752.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_antidetrimentfaqs.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% listcheck = "http://www.gesb.com.au/index_718.html" status = "default" if isActive(listcheck) then status = "active" end if if isCurrent(listcheck) then status = "current" end if '--------------------------------------------------------------- if menuLevel = displayMenu then respCount = respCount + 1 if status = "current" or status = "active" then bFoundCurrentOrActive = true resp = resp & "" & vbCrLf else resp = resp & "" & vbCrLf end if end if '--------------------------------------------------------------- 'Now if current link is active OR current, 'Process potential sub-navigation if status <> "default" then count = count + 1 menuLevel = menuLevel + 1 %><% menuLevel = menuLevel - 1 count = count - 1 end if %><% '--------------------------------------------------------------- 'This code prints out "post-formatting" - once at the very end if displayMenu = 1 and menuLevel = 1 then if (respCount > 0 and bFoundCurrentOrActive = false) then resp = "" & vbCrLf & resp respCount = respCount + 1 end if end if if displayMenu = 2 and menuLevel = 2 then if (respCount > 0 and bFoundCurrentOrActive = false) then resp = "" & vbCrLf & resp respCount = respCount + 1 end if end if if count = 0 then if displayMenu = 1 then if respCount > 0 then response.write "" & vbCrLf end if end if if displayMenu = 2 then if respCount > 0 then response.write "" & vbCrLf end if end if if respCount > 0 then response.write resp end if response.write "" end if %>

Frequently Asked Questions

Results

Quick links