<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% response.Charset = "utf-8" response.ContentType = "text/html" on error resume next Dim objConn, objRs, objRs2, objRs3, strQuery, strQuery2 Dim strConnection Dim idioma, op, codigo, subarea idioma = request("idioma") op = request("op") if op<>"" then op = op else op=1 end if codigo = 3 subarea = request("sub_aux") if idioma="" then idioma = 1 else idioma = request("idioma") end if Dim MM_dados_STRING %> <% Set objConn = Server.CreateObject("ADODB.Connection") StrConnection = MM_dados_STRING objConn.Open strConnection %> Mackenzie Esporte Clube






<% 'Dim objrs2 strQuery = "SELECT *from subareas WHERE area=3 and idioma="&idioma&" and posicao<>0 order by posicao,subarea" Set ObjRs2 = objConn.Execute(strQuery) Dim sub_aux sub_aux = request("subarea") if sub_aux<>"" then sub_aux = sub_aux else sub_aux = objrs2("subarea") 'response.write sub_aux end if While not objRs2.eof %> <% if objrs2("direto")=1 then %>

&idioma=1"><% if objrs2("subarea")<>sub_aux then %><% else %><% end if %><%=objrs2("subarea")%>

<% end if %> <% if objrs2("direto")=2 then %>

&idioma=1"><% if objrs2("subarea")<>sub_aux then %><% else %><% end if %><%=objrs2("subarea")%>

<% end if %> <% objRs2.movenext wend %>


<% if op=1 then %>
<% strQuery2 = "SELECT *FROM dados where area=3 and subarea='"&sub_aux&"' and idioma="&idioma&" and publicar='s' order by codigo desc" 'response.write strquery2 Set objRS = objConn.Execute(strQuery2) %> <% while not objRS.eof %> <% objrs.movenext wend %>
<% if objrs("imagem")<>"" then %> <% end if %>
" width="75%" border="0">

<%=objrs("titulo")%>

<% if objrs("chamada")<>"" then %>

<%=objrs("chamada")%>

<% end if %>

&idioma=<%=idioma%>&cod_info=<%=objrs("codigo")%>">

<% else %>
<% if op="" then strQuery = "SELECT *FROM dados where area="&codigo&" and subarea='"&sub_aux&"' and idioma="&idioma&" and publicar='s'" Set objRS = objConn.Execute(strQuery) end if if op=2 then Dim cod_info cod_info = request("cod_info") strQuery = "SELECT *FROM dados where codigo="&cod_info&"" Set objRS = objConn.Execute(strQuery) end if if op=3 then strQuery = "SELECT *FROM dados where area="&codigo&" and subarea='"&sub_aux&"' and idioma="&idioma&" and publicar='s'" Set objRS = objConn.Execute(strQuery) end if if not objRS.eof then %> <% if objrs("titulo")<>"" then %>

<%=objrs("titulo")%>

<% end if %> <% if objrs("imagem")<>"" then %>

" width="25%">

<% end if %>

<%=objrs("noticia")%>



<% end if %>
<% end if %>

NOTÍCIAS

<% strQuery = "SELECT TOP 3 *FROM dados where area=6 and publicar='s' order by codigo desc" Set objRS = objConn.Execute(strQuery) %> <% while not objRS.eof %> <% objrs.movenext wend %>
<% if objrs("imagem")<>"" then %> <% end if %>
" width="75%" border="0">

<%=objrs("titulo")%>

<% if objrs("chamada")<>"" then %>

<%=objrs("chamada")%>

<% end if %>

">

MEC NAS REDES SOCIAIS


REVISTA MEC

<% strQuery = "SELECT top 4 *FROM baner where posicao=1 order by codigo desc" Set objRS = objConn.Execute(strQuery) %>

<% while not objrs.eof %>" target="_blank"> " width="110" border="0" style="border: 0 solid #C0C0C0"> <% objrs.movenext wend %>

LEIS DE INCENTIVO AO ESPORTE