<%@  Language="VBScript" %>
<%
    
   Response.Status="301 Moved Permanently"

   If LCase(Request.QueryString("QTopMenu")) = "1:1 coaching" then
      Response.AddHeader "Location","/coaching.html"                     
   ElseIf LCase(Request.QueryString("QTopMenu")) = "executive teams" then
       Response.AddHeader "Location","/executiveteams.html"   
   ElseIf LCase(Request.QueryString("QTopMenu")) = "coaching supervision" then
       Response.AddHeader "Location","/coachingsupervision.html"   
   ElseIf LCase(Request.QueryString("QTopMenu")) = "about joy" then
       Response.AddHeader "Location","/aboutjoy.html"   
   Else
       Response.AddHeader "Location","/index.html"  
   End If  
   
  
%>