<% theQ = request.QueryString("q") theEQ = request.QueryString("as_eq") %> <% sub MakeMonthDrop ' ----------------------------- %> <% end Sub ' MakeMonthDrop %> <% sub MakeYearDrop ' ----------------------------- %> <% end Sub ' MakeYearDrop %> <% sub MakeMediaFilterDrop ' ----------------------------- %> <% mediafilterisActive =1 ' make sure the hidden value is not used end Sub ' MakeMediaFilterDrop%> <% Sub MakeHiddenValues End Sub Sub MakeHiddenValuesOLD ' ----------------------------- %> <% if mediafilterisActive ="" then%> <% end if %> <% End Sub ' MakeHiddenValues %> <% Select Case "pagenotfound" Case "main" %>

<% if theQ = "" then %><% else %><% end if %>

<% if theQ = "" then %> <% else %>

Search results for <%=theQ %><% if theEQ<>"" then %> excluding results that contain <%=theEQ%><% end if %>.

<% end if %>

Search<% if theQ<>"" then %> again<% end if %>

","") response.write theQ %>"/>

          

","") response.write theEQ %>" />
"" then%>disabled="disabled"<% end if %> />
<% MakeHiddenValues %> <% SplitThis = "" If SplitThis <>"" then %><% If instr(SplitThis,"#")>0 then SiteAreas = split(SplitThis,"#") For K =0 to ubound(SiteAreas) %> <% Next Else %> <% End if %> <% end if ' not blank %>
<% if "no" = "yes" and theQ ="" then %>

Search within:

<% HoldSubFolder = request.QueryString("subfolder") SplitThis = "ourapproach|Our Approach#whatweproduce|What we produce#investors|Investors#media|Media#careers|Careers" SiteAreas = split(SplitThis,"#") for K =0 to ubound(SiteAreas) SplitAgain = split(SiteAreas(K),"|") %>

<% next %>
<% end if ' Sub folder %>
<% Case "pagenotfound" %>
<% MakeHiddenValues %>    
<% end Select %>