<%
'ASP QUE DEFINE QUAL 1 NIVEL FICARA ABERTO - QUAL 2 E QUAL 3 NIVEL FICARAO MARCADOS
dim url
dim urlArea
urlArea = Request.ServerVariables("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
'FUNCAO QUE RETIRA AS IMAGENS DA LATERAL DE NATURALS
function defineImgLat(ByVal endereco)
if urlArea = endereco then
defineImgLat = "none"
else
defineImgLat = "block"
end if
end function
%>







