%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% url = Request.ServerVariables("SERVER_NAME") pasta = Request.ServerVariables("PATH_INFO") endereco = url & pasta licenca = Mid(pasta,6,5) nivel = session("nivel") set conn = Server.CreateObject("ADODB.Connection") conn.open MM_conecta_STRING Set rs_config = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM "&licenca&"_config" rs_config.open sql, conn, 3,3 %> <% if rs_config("sit_site") = "3" or session("cliente_temp") = "ok" then %>
|
<%
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%>
<% End if %>
<% End if %>
<%
rs_layer.movenext
wend
%>
<%
rs_layer.Close
Set rs_layer = Nothing
%>
|