<% 'ASP QUE DEFINE QUAL 1 NIVEL FICARA ABERTO - QUAL 2 E QUAL 3 NIVEL FICARAO MARCADOS dim url url = Request.ServerVariables("URL") url = left(url, InstrRev(url, ".")-1) function mudaClass(ByVal txt, ByVal classe) if not isNull(classe) then if instr(url,txt) > 0 then mudaClass = classe & "Over" exit function end if end if mudaClass = classe end function function exibeMenu(ByVal txt) if instr(url,txt) > 0 then exibeMenu = true else exibeMenu = false end if end function %>
