<%
Set rs_layer = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM "&licenca&"_layer"
rs_layer.open sql, conn, 3,3
%>
<%
while not rs_layer.eof
%>
<% If rs_layer("situacao") = "ATIVO" then %>
<% If rs_layer("local") = "TODOS" or rs_layer("local") = "CAPA" then %>
" <% if session("nivel") <> "" and session("nivel") <> "5" then%>class="jqDnR" onmousemove='pega<%=rs_layer("layer")%>()'<% end if %>>
<% if session("nivel") <> "" and session("nivel") <> "5" then%>
|
">
|
<%=rs_layer("nome")%> |
<% end if %>
<% if rs_layer("mostra_titulo") = "SIM" then %>
<% if session("nivel") = "" then %>
<% end if %>
<% end if %>
<%
modulo = rs_layer("tipo")
Select Case modulo
case "PADRAO"
%>
<%= rs_layer("destaque")%>
<% case "GALERIA" %>
<% case "NOTICIAS" %>
<% case "SLIDE" %>
<% case "RSS" %>
<% case "CONTATO" %>
<% case "ENQUETE" %>
<% case "MENU" %>
<% case "RODAPE" %>
<% case "TOPO" %>
<% End Select %>
<% if session("nivel") <> "" and session("nivel") <> "5" then%>
<% end if %>
<% End if %>
<% End if %>
<%
rs_layer.movenext
wend
%>
<%
rs_layer.Close
Set rs_layer = Nothing
%>