<% Option Explicit Dim strPagina strPagina = Request.QueryString("MOD") If InStr("HOME,DEFAULT,SERVICOS,PARCEIROS,CONTATO,SUPORTE,EMPRESA,CONFIRMA,ROOM,SALA,TREINAMENTO", strPagina) = 0 Or strPagina = "" Then strPagina = "DEFAULT" %>

 

HOME A Empresa Serviços Suporte Parceiros Contato

<% If strPagina = "HOME" Or strPagina = "DEFAULT" Then %> <% ElseIf strPagina = "EMPRESA" Then %> <% ElseIf strPagina = "SERVICOS" Then %> <% ElseIf strPagina = "SUPORTE" Then %> <% ElseIf strPagina = "CONTATO" Then %> <% ElseIf strPagina = "CONFIRMA" Then %> <% ElseIf strPagina = "ROOM" Then %> <% ElseIf strPagina = "SALA" Then %> <% ElseIf strPagina = "TREINAMENTO" Then %> <% End If %>

Home | A Empresa | Serviços | Suporte | Parceiros | Contato