<% listar = "SELECT * FROM paginas WHERE cod=" & id Set lista = DB.Execute(listar) ' Pega a URL da página url_full = mid(Request.ServerVariables("script_name") & "?" & Request.ServerVariables("query_string"),9) url = split(url_full,"/") session("pagina") = url(ubound(url)) %> ABBESS | Administradora de Benefícios de Saúde
<%= lista("titulo") %>

<% busca = Ucase (Request.form("buscando")) Function Paginas if lista("iframe") = false then response.write ("

" & lista("conteudo") & "

") else Select case lista("cod") Case "13" ' Pesquisa no site response.write ("") Case "10" response.write ("") Case "4" response.write ("") Case "6" response.write ("") Case "68" response.write ("") end select end if End Function If lista("acesso_restrito") = true then if Session("entrada") = "sim" then Paginas else response.Write("



Área de conteúdo restrito!
") end if else Paginas End If %>